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oyce heißt der neue Star bei 
Schneider. Ein halbes Jahr hat es 
gedauert, bis der für den Ge- 
schäftsbereich gedachte Computer auf 
Platz eins der Schneider-Verkaufshit- 
parade vorrückte. Nicht zuletzt der dra- 
stische Preissturz auf 1799 Mark hat 
diese Entwicklung hervorgerufen. 

Der Name Joyce steht für einen Com- 
puter, der bewährte Technologie zu 
einem günstigen Preis bietet. Wie von 
Schneider gewohnt, ist das Angebot 
wieder rundherum komplett. Monitor, 
Drucker, Diskettenlaufwerk, Computer 
und Software, nichts fehlt zum Einstieg 
in die elektronische Datenverarbeitung. 
Da man wieder auf bewährte »Bau- 
steine« - wie den Z80 als CPU und 
CP/M Plus als Betriebssystem, vereint 
mit modernen Komponenten wie 
Mallard-Basic und hochintegrierte 
Schaltungen - gesetzt hat, ist auch der 
Joyce ein interessantes Gerät. 

Aber natürlich bleiben bei diesem 
Computer wieder eine Menge Fragen 
offen, sowohl beim Einsteiger als auch 
beim Profi. Deshalb haben wir be- 
schlossen, dieses Schneider-Sonder- 
heft (es ist übrigens schon das vierte) 
um einen Joyce-Teil zu bereichern. Dort 
finden Sie unter anderem Programme 
zum Abtippen und eine Einführung in 
das sehr gute Mallard-Basic. Freunde 
von CP/M Plus kommen im CP/M-Teil 
auf ihre Kosten. 

Dieser Teil ist natürlich auch für die 
Besitzer des CPC 6128 gedacht. Denn 
hier werden alle Hilfsprogramme auf 
den Systemdisketten zusammenhän- 
gend und ausführlich besprochen. 

Aber auch die Besitzer der ersten 
Schneider-Computer haben wir nicht 
vergessen. Die neuesten Spieletrends 
hat unser Spielespezialist wieder für 
Sie zusammengetragen. Spiele-Li- 
stings zum Abtippen für die Fleißigen, 
dazu interessante Anwendungspro- 
gramme und wieder eine ganze »Latte« 
mit Tips & Tricks. 

Trotzdem glauben wir, noch mehr auf 
Ihre Wünsche eingehen zu können. 
Aber dazu brauchen wir Ihre Hilfe. Eine 


große Umfrage mit tollen Preisen soll 
dabei helfen. Und deshalb eine Bitte an 
Sie: Machen Sie mit. Denn es lohnt sich 
doppelt. Zum einen können Sie einen 
der Preise - beispielsweise ein Disket- 
tenlaufwerk oder eine Speichererwei- 
terung - gewinnen, zum anderen 
bestimmen Sie, was in zukünftigen Son- 
derheften und Ausgaben von Happy- 
Computer für Schneider-Freaks stehen 
wird. 

Dem Heimcomputer-Markt steht ein 
Wandel bevor wie noch nie zuvor - trotz 
seiner Geschichte. Die 8-Bit-Computer 
werden angesichts der neuen 
68000er von vielen schon totgesagt. 
Das mag für alte Geräte dieser Klasse 
vielleicht zutreffen, aber moderne aus- 
gereifte Konzepte machen auch den 
Z80 weiterhin aktuell. Und neben den 
68000ern dringen immer mehr die 
IBM-kompatiblen 16-Bit-Computer in 
die untere Preisklasse ein. Die Vielfalt 
der Prozessoren und damit der Geräte 
ist noch lange gesichert. Und in dieser 
Klasse wird Schneider mit seinen Com- 
putern auch in Zukunft ein Wörtchen 
mitreden. 

Nicht zuletzt der Kauf von Sinclair 
durch Amstrad, dem englischen Ent- 
wickler der Schneider-Computer, zeigt, 
daß viele diesem Markt noch eine große 
Zukunft geben. Auch Vortex, der 
bekannteste Peripheriehersteller für 
Schneider-Geräte, setzt auf diese 
Welle. Denn die Versorgung mit Neuent- 
wicklungen aus Neuenstadt ist gewähr- 
leistet. 

Mit diesem Heft liefern wir Ihnen wie- 
der mehr als 120 Seiten Informationen 
an die Hand. Ich möchte an dieser 
Stelle allen danken, die uns ihr Wissen 
zur Verfügung gestellt haben. Denn nur 
mit Ihrer Mitarbeit können wir auf »alle« 
Ihre Fragen eine Antwort finden. 

Also machen Sie mit und schicken 
Sie uns Artikel, Informationen, Anre- 
gungen, Listings oder was Ihnen sonst 
noch einfällt. 


Ihr 
Andreas Hagedorn 
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Es ist noch kein Beethoven vom Himmel gefallen, aber unser 
Grundlagen-Artikel über Soundprogrammierung kann Ihnen einen 
Schritt weiterhelfen. Daneben helfen Ihnen weitere Beiträge beim 
Einstieg in die Grafikwelt und in die Basic-Programmierung. 33 
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Die Welt liegt Ihnen zu Füßen, wenn Sie es in unserem Listing 
»Feldherr« bis zum Diktator gebracht haben. Es ist dem Brettspiel 
»Risiko« nachempfunden und bedarf einer ordentlichen Portion an 
strategischem Talent, um seinen Gegner zu bezwingen. 58 


Der Joyce fand im Büroalltag schon weite Verbreitung. Trotzdem 
sind sich viele Anwender über seine Fähigkeiten noch nicht im kla- 
ren. Vom Umgang mit Mallard-Basic und CPIM Plus bis hin zur Soft- 
wareübersicht stellen wir den Joyce im Detail vor. 22 
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Das Diskettenlaufwerk von Schneider 


ıs ist nichts Ungewöhnliches im 
Bereich der Heim- und Personal- 
Computer, daß für ein Gerät Lauf- 

werke verschiedener Hersteller ange- 
boten werden. Daß aber die Fremdfabri- 
kate der Firma Vortex ein solch riesiger 
Verkaufserfolg sind, verwundert nun 
doch. Woher kommt das? Eigentlich 
gibt es zwei Gründe. Einmal gehört 
Amsdos, das Diskettenbetriebssystem 
von Schneider, nicht gerade zu den 
komfortabelsten und leistungsfähig- 
sten DOS-Versionen auf dem Compu- 
termarkt. VDOS, das Vortex Disk 
Operating System, kann da - beson- 
ders in der aktuellen Version 2.0 - 
schon erheblich mehr. Ausschlagge- 
bend für viele Vortex-Kunden sind aber 
garantiert die Diskettenpreise. Rech- 
nen Sie doch einmal mit: Eine Vortex- 
Diskette kann rund 700 KByte spei- 
chern, das ist mehr als das Doppelte 
der Kapazität der Schneider-Disketten 
(pro Seite 154 KByte im IBM-Format, 
169 KByte im CP/M- und Vendorformat 
sowie 178 KByte im Data-Only-Format). 
Für eine 3-Zoll-Diskette müssen Sie 
etwa zwölf bis vierzehn Mark aufwen- 
den. Die ungleich leistungsfähigeren 
Vortex-Scheiben kosten Sie selbst bei 
Verwendung der empfohlenen Quali- 
tätsdisketten nur sechs bis sieben 
Mark. Das Laufwerk von Schneider 
arbeitet nicht mit 3'/>z Zoll wie beim 
Atari-ST, Amiga von Commodore oder 
einige IBM-Kompatiblen, sondern mit 
dem etwas ungewöhnlichen 3-Zoll- 
Format. Außer Amstrad hat nur die 
britische Firma Tatung die Hitachi- 





Der Schneider CPC kann sich 
inzwischen an einem reichhalti- 
gen Angebot an Diskettenstatio- 
nen erfreuen. Wir haben die bei- 
den gebräuchlichsten heraus- 
gesucht und unter die Lupe 
genommen. 


Laufwerke dieses Formats in ihren - in 
Deutschland kaum bekannten - Com- 
puter »Einstein« eingebaut.Es gibt aber 
auch Gründe, die für dieses Format 
sprechen. Erheblich kleiner als der 
5'/4-Zoll-Bruder, kann man die Disket- 
ten auch in der Hemden- oder Hosenta- 
sche transportieren. Die Disketten 
besitzen nämlich ein stabiles Plastik- 
Gehäuse, das Deformationen beim 
Transport - sogar auf dem Postweg - 
verhindert. Nimmt man die Disketten 
aus dem Laufwerk, verschließt ein Me- 
tallschieber das Gehäuse, so daß kein 
Staub oder ähnliches die empfindliche 
Beschichtung verunreinigt. 

Weniger angenehm bekommt der 
Anwender die bereits angesprochene 
Speicherkapazität zu spüren. Die Dis- 
ketten speichern auf jeder Seite 
184320 Byte. Je nach Format stehen 
154 bis 178 KByte zur Verfügung. Die 
Kapazität verdoppelt sich, wenn man 
die Disketten umdreht und den Compu- 
ter die Rückseite beschreiben läßt. Das 
ist kein Geheimtip aus der Trickkiste, 
sondern wird von Schneider und den 
Diskettenherstellern offiziell empfoh- 
len. Dennoch wird die Umdreherei mit 


514 Zoll heißt das Format von Vortex 


der Zeit lästig, und man sehnt sich nach 
einem Doppelkopf-Laufwerk. 

Auch die vierzig Tracks a neun Sekto- 
ren, mit denen die Disketten formatiert 
werden, sind nicht mehr der letzte 
Stand der Technik. Die Vortex- 
Laufwerke formatieren 80 Spuren und 
benötigen dann die altbewährten 
5'/4-Zoll-Disketten in der Ausfertigung 





DSDD (Double Sided Double Density) 


mit 96 tpi (Tracks per inch). Diese Dis- 
ketten sind zwar bekanntlich sehr emp- 
findlich gegen Fingergrabbeleien, dafür 
aber auch erheblich billiger. 


Amsdos contra 
VDOs 


Amsdos liegt in einem 16-KByte- 


ROM. Da aber der Logo-Interpreter im ° 
selben ROM »beheimatet« ist, bleiben 
in Wirklichkeit leider nur noch acht 


davon übrig. In diesem Bereich ein kom- 
plettes DOS unterzubringen, ist schon 


eine große Leistung. Zwangsläufig wur- 
den aber Kompromisse eingegangen. 


So ist das Kopieren und Formatieren 
von Disketten unter Basic nicht mög- 


lich. Der Anwender muß dazu auf die 
mitgelieferte CP/M-Software zurück- 


greifen. In Basic vorhanden sind nur die 
wichtigsten Befehle wie DIR (Inhalts- 
verzeichnis der Diskette), 
(Löschen von Dateien), REN (Umbe- 


nennen von Dateien), USER (Auswahl | 


des Benutzerbereichs), DRIVE, AundB 
(Selektion eines Laufwerks). DISK, 
DISK.IN und DISK.OUT schalten vom 
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Kassettenrecorder auf die Disketten- 
station um, TAPE, TAPE.IN und TAPE. 
OUT bewirken das Gegenteil. VDOS 
2.0 istda entschieden leistungsstärker. 
Vortex entfernte den Logo-Interpreter 
aus dem ROM und implementierte statt 
dessen andere Routinen. Über RSX- 
Befehle (»Resident System Exten- 
sions«) kann der Benutzer Disketten for- 
matieren (FORMAT), einen Dateischutz 
vereinbaren (CODE) und Dateiattribute 
setzen (ATTRIBUT). Die relative Datei- 
verwaltung, die beim Schneider- 
Laufwerk völlig fehlt, wird bei VDOS 
über FILES, OPEN, FIELD, GET, PUT 
und CLOSE realisiert. Uber DERROR 
kann man auch beim CPC 464 Fehler- 
meldungen von der Diskettenstation 
abfangen. Vortex ließ den verbleiben- 
den Platz im ROM nicht ungenutzt und 
nahm neben diesen diskettenorientier- 
ten Befehlen noch eine Reihe weiterer 
nützlicher Utilities auf. FAST etwa 
beschleunigt die Bildschirmausgabe im 
Modus 2 um etwa das Doppelte, wenn 
der Anwender auf Windows verzichtet. 
SLOW hebt dies wieder auf. Auch die 
vom 664- und 6128-Basic bekannten 
Befehle FRAME, GCHAR (Getchar), 
GPAPER (Graphics Paper), GPEN (Gra- 
phics Pen), MASK und UNMASK findet 
man als RSX-Erweiterungen wieder. 





„Jetzt gibt es Small-C, ein EEE 
und vielen weiteren Utilities. 


Alle Programme sind in Small-C geschrieben, der Quellcode wird mitgeliefert. 
So können Sie das Entwicklungssystem nach eigenen Wünschen und Erfordernissen 


 enweitern und modilizieren. 


Das Programmpaket enthält: 

® Small-C-Compiler 

© Small-Mac: Assembler und Utilities 
® Small-Tools: Editor und TextTools 


niorderungen: 
Schneider-Computer mit mindestens 56 KByte TPA und einem Diskettenlaufwerk. 
Bei den Modellen CPC 484 und 664 ist eine Speichererweiterung notwendig. 


Bestell-Nr. MS 484 (3”-Diskette) 


Jetzt nur noch DM 99.80.10: 03 


* inkl. MwSt., unverbindliche Preisempfehlung. 


en Vortag Eossabn won: Gagen Vonmaknnen Husch Vervaninunge: 


scheck oder mit der abgedruckten Zahlka 
Bestellungen im Ausland bitte an untenstehende 


Schweiz: Markt & Technik Vertriebs AG, Kollerstrasse 3, 3. CH-8300 Zug 
Österreich: Ueberreuter Media Verlagsges. mbH, Alser Straße 24, A-1091 Wien 





Markt&Technik 


Hans-Pinsel-Straße 2, 8013 Haar bei München 
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Entwicklungssystem im CPIM-Modus für die 
Schneider-Computer CPC 4864/685/6128 und Joyce. Mit Editor, Compiler, Linker 


Alle Maschinensprache-Freunde wer- 
den von dem eingebauten Maschinen- 
sprache-Monitor sehr angetan sein. In 
etwa so leistungsfähig wie das CP/M- 


Programm DDT.COM, verarbeitet er 
aber Z80-Mnemonics. Er kann Break- 
points in Maschinencode-Programmen 
verwalten, Speicherbereiche mit Byte- 
mustern füllen, Binärdateien lesen und 
auf Diskette schreiben, disassemblie- 
ren, Speicherbereiche kopieren und 
sogar Maschinenprogramme Schritt für 
Schritt (Single Step) ausführen. Der ein- 
gebaute Zeilenassembler enttäuscht 
dagegen etwas. Er versteht zwar den 
kompletten Befehlssatz des Z80-Pro- 
zessors, viel mehr kann er aber nicht. 
Labels, symbolische Sprünge oder 
sogar Makros sind Fremdwörter für ihn. 


Immer wieder 
Kompatibilität 


Leider ist es aber mit der versproche- 
nen Amsdos-Kompatibilität bei VDOS 
nicht allzuweit her. Sogar reine Basic- 
Programme sind nicht frei zwischen 
beiden DOS-Betriebssystemen auszu- 
tauschen. Warum muß denn die 
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»CAS« heißen? Die Tabelle listet de ; 
RSX-Erweiterungen unter Amsdosund 


VDOS auf. Es soll Ihnen helfen, beste 


hende Programme von einem DOS ins 
andere umzuschreiben. 

Bis vor nicht allzulanger Zeit besaßen 
Heimcomputer kein Betriebssystem. 


CP/M oder gar MS-DOS haftete stets 


der Geruch des Unnahbaren an. Seit- 
dem aber Amstrad und Schneider CP/M 
auf ihren Maschinen implementiert 
haben und kostenlos bei der Disketten- 
station mitliefern, erlebt es einen unge- 
ahnten neuen Aufschwung. Das uner- 
wartete Comeback von CP/M in einer 
Zeit der 16-Bit-Computer unterstützte 
auch der Commodore 128. Bei allen 
Schneider CPCs gehört das CP/M- 
Betriebssystem in der weitverbreiteten 
Version 2.2 zum Lieferumfang der Dis- 
kettenstation. Der CPC 6128 verarbei- 
tet zusätzlich noch das weit anwender- 
freundlichere CP/M Plus (Version 3.0). 
Auch Vortex liefert CP/M 2.2 zu seinen 
Laufwerken aus. Ein großer Teil der 
CP/M-Standardsoftware ist somit auf 
dem Schneider-CPC zu verwenden. 
Wenn auch der Speicher für die CP/M- 
Programme (TPA = Transient Program 
Area) mit nicht einmal 40 KByte doch 
sehr knapp geraten ist. Zusammen mit 
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der Speichererweiterung - ebenfalls 
von Vortex - gewinnt dieser Bereich 
jedoch noch an Umfang. 

CP/M-Programme befinden sich 
meist auf 5'/,-Zoll-Disketten. Hier 
herrscht allerdings ein wahres Chaos. 
Jeder Hersteller verwendet sein eige- 
nes Format. Als Besitzer einer 3-Zoll- 
Diskettenstation bleibt einem nichts 
anderes übrig, als Firmen zu suchen, 
die CP/M-Programme in diesem Format 
anbieten oder in dieses Format konver- 
tieren. Das Angebot nimmt zwar mit der 
Zeit immer mehr zu, aber den großen 
Rest der Programme kann man nur auf 
5'/,-Zoll-Disketten kaufen. Und das 
zählt zu den eindeutigen Pluspunkten 
der Vortex-Laufwerke. Vortex liefert 
nämlich das Programm »PARA«, mit 
dem der Benutzer eine Vielzahl von 
CP/M-Formaten lesen und schreiben 
kann. 

Zumindest werden für die 3-Zoll- 
Formate aber Programme wie Turbo 
Pascal und Wordstar angeboten. Sie 
sind inzwischen auch preislich attraktiv 
geworden, während die Mehrheit der 
CP/M-Programme sich preislich noch in 
höheren Sphären befindet. Bei CP/M 
selbst gibt es keine Unterschiede zwi- 
schen den Konkurrenten aus dem 
Schneider-- und dem Vortex-Lager. 
Denn CP/M 2.2 unterliegt strengen 
Normen, und Digital Research wacht 
eisern darüber, daß sich niemand an 
dem Betriebssystem zu schaffen 
macht. Den üblichen Satz von 
Standard-Hilfsprogrammen bieten 
beide: ASM, DDT, ED, PIP, STAT und wie 
sie alle heißen. Doch bei den system- 
spezifischen Utilities finden sich quali- 
tative Unterschiede. Die Schneider- 
Programme unter CP/M 2.2 erfüllen 
ihre Aufgabe einwandfrei, glänzen aber 
nicht gerade durch Benutzerfreundlich- 
keit. Dagegen strengte sich Vortex bei 
den neuesten Versionen der Dienstpro- 
gramme wirklich an und erstellte 
ansprechende Software. Die beiden 
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Auch 
ein Doppel- 
laufwerk ist 

erhältlich 


wichtigsten Vortex-Programme heißen 
Disktool 1.0 und Filecopy 3.0. DISK- 
TOOL.COM erlaubt das Formatieren 
und Kopieren ganzer Disketten sowie 
die Übertragung der CP/M-Systemspu- 
ren und Parametersektoren zwischen 
den Disketten. Die Bedienung von Disk- 
tool ähnelt der von DISCKIT3.COM, 
dem Disketten-Dienstprogramm von 
CP/M Plus auf dem Schneider CPC 
6128. FILECOPY.COM bietet dem 
Benutzer die Möglichkeit, einzelne 


B 

CPM 

DIR 

DISC 
DISC.IN 
DISC.OUT 
A oder B 
ERA 
REN 
CAS 
CAS.IN 
CAS.OUT 
SELECT 
RESET 
FORMAT 
CODE 
ATTRIBUT 
FILES 
OPEN 


DERROR 
FRAME ; 
GCHAR 
GPAPER 
GPEN 
MASK 








Dateien oder Dateigruppen zu kopie- 
ren. Esistbereits für jetzige und zukünf- 
tige Hardware-Entwicklungen gerüstet 
und arbeitet auch mit RAM-Disks und 
Festplatten zusammen. 

Preise sindimmer einleidiges Thema. 
Besonders da der Geldbeutel der Com- 
puterfreaks von Natur aus ständig leer 
zu sein scheint. Deshalb ein kurzer 
Preisvergleich. Als Einzel-Laufwerk 
kommt die 3-Zoll-Station von Schneider 
erheblich billiger als das Vortex- 
Laufwerk. Wählen Sie allerdings gleich 
eine Doppelstation, schmilzt der Preis- 
vorteil recht schnell zusammen. Die 
Konfiguration DDI-1 mit FD-1 kostet nur 
unwesentlich weniger als das Doppel- 
laufwerk von Vortex. Beachten Sie aber 
auch, daß der größte Teil der 
Schneider-spezifischen Diskettensoft- 
ware, die aus dem Ausland zu uns 
kommt, nur im 3-Zoll-Format lieferbar 
ist. Dagegen setzt Vortex den Vorteil 
einer um ein Vielfaches höheren Spei- 
cherkapazität. 

Fazit: Wieder einmal kann Ihnen nie- 
mand die Entscheidung abnehmen. Es 
bieten beide Laufwerke Vorteile, doch 
muß sich wohl jeder an seinen Bedürf- 
nissen orientieren, welchen Kompro- 
miß er eingehen will. 

(Martin Kotulla/Udo Reetz) 


Die RSX-Befehle unter Amsdos und VDOS im Vergleich 
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Bestell-Nr. LH 8657 SD 


Happy-Computer, Ausgabe 6/86 
Tron-Construction-Set: Das Spiel des Monats 
und Listing des Monats zugleich verspricht eine 
Menge Spielspaß. Auf zwei Bildschirmen bewe- 
gen zwei Spieler gleichzeitig ihre Figuren. 
HiRes-Hardcopy: Das C64-Programm zum 
Schwerpunkt. Drucker anschließen, Programm 
laden und starten: Schon kann man die schön- 
sten Hardcopies von HiRes-Bildern drucken. 
Ultralaad: Auch diesmal ist das sensationelle 
m (Ausgabe 1/86) wieder 
mit auf Diskette. 
Checksummer: Diese Eingabehilfe ist für 
Basic-Programme kaum noch wegzudenken. 
MSE: Maschinensprac! me sind 
schnell und sicher mit MSE eingegeben. 
Diskette für den C64/C 128 
Bestell-Nr. LH 8606 CD 
DM 29,90" sFr. 24,90155 299,- 


Happy-Computer, Ausgabe 5/86 
Commodore 64, Commodore 128 

Ein Kletter- und Sammelspiel für den 564. 
Ultrabont. 

Ergänzung zu »Ultraload Plus«. 104 zusätzliche 
Blöcke auf der Diskette. 

Simple Sound. 

Eine kleine Soundbibliothek bietet Klänge für 
jede Gelegenheit. 

Aus Ausgabe 4/86. 

Quadroph 





1enia. 

Spiel des Monats für den Commodore 64. 
Kurven. 

Mathematische Kurven auf dem C 128 schnell 
programmiert. (Läuft nicht im C64-Modus!) 
Kalender. 

Ein Kalender für die Jahre bis 2000. 


Das Angebot dieser Ausgabe: 


Programme für Schneider-Computer 

Spiele Öl. Eifern Sie den Ewings nach mit Ihrem Öl-Imperium. Feldherr. 
Taktisches Spiel für zwei bis vier Personen um die Weltherrschaft. Lunar-Lander. 
Reaktion und Geschicklichkeit sind gefordert. Mit Spielfeldgenerator. 
Anwendungen Taschenrechner. Eine Simulation für mathematisch Interes- 
sierte. Statistik. Statistische Daten grafisch aufbereitet. 

Grafik 3D-Dreh. Mit erstaunlich wenig Programmieraufwand betrachten Sie 
auf Ihrem Monitor Gegenstände in dreidimensionaler Vektordarstellung. 
Background-Painter. Hintergrundgrafiken für eigene Spiele komfortabel und mit 
geringstem Speicherbedarf erzeugen. 

CPIM Deutsche Tastatur für alle CPCs. Damit Sie auf Ihrem Computer wie mit der 
Schreibmaschine arbeiten können. WordStar-Verbesserung. Unglaublich, was 
man aus leistungsfähigen Programmen noch mehr herausholen kann. 


DM 34,90* 


(sFr. 29,50/65 349,-*) 


Besteirär.ınassrsc DM 34,90* 








(sFr. 29,50/65S 349,#) 


Auto-Boot 128. 

Das Programm nutzt die Fähigkeit des C 128, 
CP/M-Programme automatisch zu booten 
(laden). (Nicht für C64.) 

Widerstände. 

Eine Utility, die Ihnen hilft, Widerstandswerte 
aus Farbskalen in numerische Werte umzurech- 
man. Aus Ausgabe 5/86. 

Diskette für den C64/C 128 

Bestell-Nr. LH 8605 CD 

DM 29,90" sFr. 24,90155 299, 


Happy-Computer, Ausgabe 4/86 

Schneider CPC 

D-Mon. 

Daten auf Diskette Byte für Byte lesen und än- 
dern. Fehlerhafte Dateienkorrigierenundretten. 
GOTO XY (nur CPC 464). 

Eine mächtige RSX-Befehlserweiterung, die 
erlaubt, das Ziel von GOTO-GOSUB-Befehlen 
mit Hilfe einer Variablen zu bestimmen. 
Accept. 

Ein komfortabler Ersatz für den normalen 
INPUT-Befehl, mit dem sich jetzt die maximale 
Eingabe-Länge begrenzen läßt. 

Turbo-Screen (nur CPC 464). 

Mit dieser RSX-Erweiterung machen Sie der 
Bildschirmausgabe im Modus 2 Beine. 

Aus Ausgabe 2/86. 

Explora. 

Mit diesem Prüfsummen-Generator entfällt die 
lästige und zeitaufwendige Fehlersuche. 
Stack-Manipulation (nur CPC 464). 
Basic-Programmierung mit vier RSX-Befehlen. 
Aus Ausgabe 3/86. 

Tool-Basic. 

44 neue RSX-Befehle für Grafik-, Sprite-, Dis- 
ketten- und Kassetten-Programmierung. 

























Achtes Bit. 

Endlich Abhilfe für den Umstand, daß der 
Schneider CPC über die Drucker-Schnittstelle 
nur sieben Datenbits ausgibt. 

Mord im Computer. 

Das DFU-Spiel mit Adventure-Charakter. 

Aus Ausgabe 4/B6. 

Best.-Nr. LH 8604 5SK (Kassette) 

DM 29,90" sFr. 24,901685 299, 

Best.-Nr. LH 8604 SD (Diskette) 

DM 29,90* sFr. 24,80/85 299,* 





Happy-Computer, Ausgabe 3/86 
Commodore 64/Commodore 128 
Gopter-Fight, Husky-Basic, Unser Sonnensy- 
stem, Wahlautomat, Softpaint 

Bestell-Nr. LH 8603 CD 

DM 29,90" sFr. 24,90/585 299,* 





BRD ONMENE, ER 2186 


Here erg Börse, Poster Hardcopy, 
Kassetten-Designer, Super-Sprite, Transbit, 
Alle 6 Programme auf Diskette für den 
Commodore 64/128. 

Basiell-Nr. LH 2602 CD 

DM 29,90* sFr. 24,90155 299,* 


Happy-Computer, Ausgabe 1/86 

Commodore 64/Commodore 1285 

Bestell-Nr. LH 8601 CD 

DM 29,90* !sFr. 24,90/55 299,- 
puter, Ausgabe 12/85 

Atari BOOXL/130KE/800 

Bestell-Nr. LH 8512 B 

DM 29,90* /sFr. 24,90/65 299, 

Happy-Computer, Ausgabe 12/85 

Schneider GPC 

Diskette für den Schneider GPC 

Bestell-Nr. LH 8512 G (Kassette) 

DM 29,90* /sFr. 24,90/685 299, -* 

Bestell-Nr. LH 8512 D (Diskette) 

DM 34,90* !sFr. 29,50/85 349, 

Happy-Computer, Ausgabe 11/85 

Commodore 64 

Bestell-Nr. LH 8511 A 

DM 29,90" /sFr. 24,90/88 299, - 

Happy-Computer, Ausgabe 10/85 

Sinclair Spectrum 

Bestell-Nr. LH 8510 D 

DM 19,90* /sFr. 17 ,-'65 199,-* 

Atari BOOKL 

Bestell-Nr. LH 8510 B 

DM 29,90 * !sFr. 24,90/88 299,- 

Happy-Computer, Ausgabe 9185 

Commodore 64 

Bestell-Nr. LH 8509 A (Diskette) 

DM 29,90 * /sFr. 24,90/88 299, 

Happy-Computer, Ausgabe 8/85 

Schneider CPC 464 

Bestell-Nr. LH 8508 G (Kassette) 

DM 29,90* /sFr. 24,90/55 299, 

Happy-Computer, Ausgabe 7/85 

Commodore 64 

Bestell-Nr. LH 8507 A (Diskette) 

DM 293,90* !sFr. 24,90/85 299,- 








Bestellungen in der Schweiz: Markt& Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Tel. 042/41 5656 


Bestellungen in Österreich; Bücherzentrum Meidling, Schönbrunner Straße 261, A-1120 Wien, Tel. 0222/8331 96, 
Microcomput-ique E. Schiller, Fasangasse 21, A-1030 Wien, Tel. 0222/785661, 
Ueberreuter Media Handels- und Verlagsgesellschaft mbH, Alser Straße 24, A-1091 Wien, Tel. 0222/48 1538-0 


Bestellungen aus anderen Ländern bitte per Auslandspostanweisung! 


Happy-Computer, Ausgabe 6/85 
Commodore 64 

Bestell-Nr. LH 8506 A (Diskette) 
DM 29,90* !sFr. 24,90/88 299, 
Happy-Computer, Ausgabe 5/85 
Schneider GPC 464 

Bestell-Nr. LH 8505 G (Kassette) 
DM 29,90" !sFr. 24,90/85 299, 


Happy-Computer, Ausgabe 4/85 
Commodore 64 

Bestell-Nr. LH 8504 A (Diskette) 
DM 29,80* /sFr. 24,.90/55 299, 


Happy-Computer, Ausgabe 3/85 

Schneider CPC 464 

Bestell-Nr. LH 8503 G (Kassette) 

DM 29,90* !sFr. 24,90/88 299,- 


Happy-Sonderhefte | 2 


Bestell-Nr. LH 8856 D1 

DM 34,90" /sFr. 29,50/85 349,- 
Forth-Compiler für Atari ST 
Bestell-Nr. LH 8656 D2 

DM 28,90* /sFr. 24,.90/65 299," 


DM 34, 90* /sFr. 29, 50/85 349, 


Sonderheft 5/86: Programmiersprachen 
Bestell-Nr. LH 8655 SD, für Schneider 
DM 34,90* /sFr. 29,50/85 349, 
Bestell-Nr. LH 8655 CD, für 664 

DM 29,90" /sFr. 24,90/65 299, 
Bestell-Nr. LH 8655 BD, für. C128 

DM 29,90 * /sFr. 24,90/85 299, 


Sonderheft 4/86: Schneider 
Bestell-Nr. LH 8654 K (Kassette) 
DM 29,90* !sFr. 24,90/85 299, 
Bestell-Nr. LH 8654 D (Diskette) 
DM 34,90* /sFr. 2950/55 349, 
Sonderheft 3/86: 68000 
Bestell-Nr. LH 8653 D (Diskette) 
DM 29,90" !sFr. 24,90/85 299, 


Sonderheft 2/86: ATARI 
Bestell-Nr. LH 8652 D (2 Disketten) 
DM 34,90" /sFr. 29,50/05 349, 


Sonderheft 1/86: Schneider 
Bestell-Nr. LH 8651 D (Diskette) 
DM 34,90* /sFr. 29,50/85 349,-* 
Bestell-Nr. LH 8651 K (Kassette) 
DM 29,90* /sFr. 24,90/65 299, 


Sonderheft 2/85: Schneider 
Bestell-Nr. LH 8582 D (3”-Diskette) 
DM 34,90" /sFr. 29,50/88 349, 
Bestell-Nr. LH 8552 V (5'#"-Diskette) 
DM 34,90* /sFr. 29.50/65 349, - 
Bestell-Nr. LH 8552 K (Kassette) 

DM 29,90* !sFr. 24,90/65 299, 
Sonderheft 1185: Spectrum 
Bestell-Nr. LH 8581 D (Kassette) 

DM 19,90* /sFr. 17. -/68 199, > 


" inkl. MwSt. Unverbindliche Preisempfehlung 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro- -Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 
Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 






























































Ein bombiges Kerlchen 


Den Spielhallen-Renner »Bomb 
Jack« gibt es jetzt auch für den 
Schneider CPC. Neben allerfein- 
ster Farbgrafik lockt das Pro- 
gramm mit fantastischem Spiel- 
witz- ein Fest für Arkade-Freaks. 





Ilzeit bereit, rund um die Welt: 
Bomb Jack, der agile Terrori- 
"wa stenschreck, ist wieder unter- 
wegs. Bomben entschärfen ist sein 
Metier, das er trotz aller Widrigkeiten 
blendend beherrscht. Dieser Bursche 
begeistert schon seit ein paar Jahren 
die Besucher von Spielhallen. Das eng- 
lische Softwarehaus Elite Systems hat 
sich die Rechte für die Heimcomputer- 
umsetzungen gesichert. Bei der Ver- 
sion für die Schneider-Computer er- 
wischte Elite Systems zum Glück die 
richtigen Programmierer: Die Grafik ist 
ein Augenschmaus und der Spielwitz 
steht dem Automaten-Original in nichts 
nach. 

Die Regeln sind einfach: Sie steuern 
Bomb Jack, der auf jedem Bild 24 Bom- 
ben entschärfen muß. Das geschieht 
durch Berühren jeder einzelnen Bom- 
be, die dann sofort verschwindet. Auf 
dem Bildschirm ist immer eine Bombe 
zu sehen, deren Zündschnur glimmt. 
Erwischt Bomb Jack so eine Spezial- 
ausführung, bekommt er gleich die dop- 
pelte Punktzahl - normalerweise gibt es 
100 Punkte pro Knallkörper - gutge- 
schrieben. 

Wenn es Ihnen gelingt, mindestens 
20 Bomben mit brennender Zünd- 
schnur zu erwischen, winken saftige 
Sonder-Punkte. Bei 20 Stück gibt es 
10000, bei 21 Stück 20000, bei 22 


Stück 30000 und bei 23 brennenden 
Bomben gar 50000 Punkte extra! 

Die Steuerung ist einfach. Auf 
Joystick-Knopfdruck hin springt Bomb 
Jack in die Höhe, drückt man den Joy- 
stick gleichzeitig nach oben, macht er 
gar einen ultra-hohen Sprung. Durch er- 
neuten Feuerknopfdruck kann man den 
Sprung abbrechen und Bomb Jack 
sinkt wieder zu Boden. Eine besondere 
Technik ermöglicht es Bomb Jack, 
sogar waagrecht zu fliegen: Wenn man 
in der Sprungphase blitzschnell auf den 
Feuerknopf drückt, klappt die Lenkung 
nach links und rechts. 

Doch das Schicksal schlägt wieder 
einmal in Form von Bösewichten zu, die 
über den Bildschirm kreuchen und flie- 
gen und Bomb Jack bei Berührung ein 
Leben kosten. Ab und zu schwirrt aber 
auch ein Bällchen über dem Bildschirm, 
das bei Berührung Freude bringt. 

Es gibt drei Sorten von Buchstaben- 
Bällen, die sich Bomb Jack unbedingt 
schnappen sollte. B-Modelle erhöhen 





MD 


den Bonus, den es beim Aufsammeln 
brennender Bomben gibt, P-Bälle erlau- 
ben einige Sekunden lang das Ängrei- 
fen der Gegner, und Bälle der Marke E 
bringen gar ein Extraleben. 

Es gibt nur fünf verschiedene Hinter- 
grundgrafiken, doch langweilig wird es 
nicht. Der Aufbau der Plattformen, auf 
denen die Bomben liegen, ändert sich 
nämlich von Bild zu Bild. 

»Bomb Jack« erfreute sich bei uns in 
der Redaktion einer ungeheuren Be- 
liebtheit, die in abendlichen High Score- 
Jagden ausartete. Selbst unser Com- 
modore-Experte ging fremd und ver- 
gnügte sich mit der Schneider-Version, 
wo er es auf stattliche 207000 Punkte 
brachte. Übertroffen wurde er nur vom 
absoluten Redaktions-High Score, den 
unser Spiele-Spezialist Heinrich 
»Quickfinger« hält: 250000 Punkte! 
Wer mehr aufs Konto bringt, möge sich 
doch mal mit einem Briefchen bei der 
Redaktion melden! 

(Heinrich Lenhardt/hg) 


Bomb Jack muB 

| quer durch die Welt 
' reisen und Bomben 
| sammeln. Hier 

| befindet er sich 
gerade vor einem 
deutschen Traum- 
schloß 
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Hier steuert Gerald auf einen Lift zu 











Mit etwas Anlauf kann Gerald das Hindernis als Sprung- 


schanze benutzen 


Der 3D-Effekt der 
Grafik ist verblüf- 
fend. Da man sei- 
nen Blickwinkel 
ändern kann, ist es 
möglich, die »ver- 
deckten« Ecken 
eines Screens zu 
sehen 


Welten-Bummiler 


Suchen Sie ein Spiel mit atem- 
beraubender 3D-Grafik, kniffli- 
gen Puzzles und joystickgefähr- 
dender Action? Kein Problem, 
mit »Spindizzy« werden Sie in 
allen Belangen bestens bedient. 


pindizzy stellt Sie vor die Auf- 
gabe, eine verrückte Bildschirm- 
welt zu erforschen und ganz 
nebenbei Diamanten aufzusammeln. 
Wenn Sie jeden der über 300 Räume 
besucht und alle Edelsteine eingesackt 
haben, ist das Spiel gelöst. Das klingt 
alles aber viel einfacher, als es ist: 
Tückische Screens mit Schikanen, 
Bösewichten und üblen Tricks gilt es zu 
meistern. Wer »Spindizzy« bewältigen 
will, muß ein Meister mit dem Joystick 
sein und hier und da auch mal kräftig 
nachdenken. 

Die Spielfigur, die Sie steuern, hört 
auf den Namen Gerald. Die Bilder, 
durch die Gerald unterwegs ist, erin- 
nern grafisch sehr an den Spielhallen- 








Kulthit »Marble Madness«. Diese Ähn- 
lichkeit ist bestimmt kein Zufall. Bei 
»Spindizzy« hat es ein Programmierer 
erstmals geschafft, diese perspektivi- 
sche Grafik im »Marble Madness«-Stil 
vernünftig auf einem 8-Bit-Heimcompu- 
ter zu realisieren - ein Kompliment an 
Paul Shirley, dem »Spindizzy« ganz 
allein zu verdanken ist. 

Um an die Diamanten zu kommen, 
müssen Sie Gerald oft über halsbreche- 
risch enge Passagen steuern, springen 
und so manchen Trick anwenden. Es 
gibt Aufzüge, die erst aktiviert werden 
müssen, Trampolinfelder und Eiszonen, 
auf denen Gerald ganz schön ins 
Schleudern kommt. »Spindizzy« ist also 
nicht »nur« ein Geschicklichkeits-Test 
mit schöner Grafik, sondern ein gewitz- 
tes Spiel mit vielen unterschiedlichen 
Elementen. Dazu gehört auch ein gehö- 
riger Schuß Logik. Manche Hindernisse 
lassen sich nur per Aufzug überwinden. 
Doch diese Aufzüge müssen erst per 
Schalter aktiviert werden. Dabei kön- 
nen maximal zwei Aufzüge eingeschal- 
tet sein. 





Komfortabel ist die Edelstein-Hatz 
auch: Durch Druck auf »M« erscheint 
eine Karte, »S« zeigt den aktuellen 
Punktestand an, »C« schaltet auf einen 
speziellen Modus für monochrome Mo- 
nitore um, »P« hält das Spiel an und mit 
»l« kann man sogar Gerald’s Aussehen 
verändern: Drei Formen stehen dabei 
zur Auswahl. Über die Cursortasten 
können Sie wählen, von welcher Seite 
aus Sie das Spielfeld betrachten. Da die 
Grafik perspektivisch erscheint, kommt 
man bei einigen Bildern ohne diese 
Hilfe gar nicht weiter. 

»Spindizzy« und das oben erwähnte 
»Bomb Jack« sind nach unserer Mei- 
nung die derzeit besten Actionspiele für 
den Schneider. Sie bieten beide hervor- 
ragende Grafik, erstklassigen Spielwitz 
und als entscheidendes Kriterium eine 
langfristig hohe Motivation. Beide Pro- 
gramme sind auf Kassette und 3-Zoll- 
Diskette erhältlich und kosten je nach 
Datenträger zwischen 35 und 60 Mark. 

(Heinrich Lenhardt/hg) 


Bezugsquelle: Korona Soft, Postfach 3115, 4830 Gütersloh 1 
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ROM-Listings im Vergleich 





Mit der Verbreitung der Schneider-Computer wächst auch die Zahl der Buchveröffentlichungen. 
Hier eine Auswahlhilfe für Maschinensprache-Programmierer. 


rei Dinge braucht ein 
Maschinensprache-Pro- 
grammierer beim Schnei- 
der CPC: einen Assembler, ein 
Firmware-Handbuch und ein 
ROM-Listing. Doch gerade bei 
den ROM-Listings gibt es reich- 
lich Auswahl. Welche sind beson- 
ders empfehlenswert? Wo liegen 
ihre Schwächen und ihre Stär- 
ken? 





CPC 464 inside out 

Beginnen wir mit einem der 
ältesten auf dem Markt, dem 
Buch »CPC 464 inside out«. Esist 
- wie der Name schon erkennen 
läßt - ausschließlich auf den CPC 
464 zugeschnitten. Nachfolge- 
bände für den CPC 664 und CPC 
6128 sind bis jetzt noch nicht 
erschienen. 

Das Buch gliedert sich in unter- 
schiedliche Kapitel. Am Anfang 
steht eine Beschreibung der 
RAM/ROM-Umschaltung und 
des internen Aufbaus von Basic- 
Programmen. Darauf folgt das 
RÖM-Listing, das durch Verwen- 
dung farbiger Seiten auch optisch 
aufgeteilt wurde: Auf weißen Sei- 
ten steht das Disassembler- 
Listing des Betriebssystems, auf 
den gelben Seiten das komplette 
System-RAM mit den Systemva- 
riablen und Sprungvektoren. 
Daran schließen sich wieder 


weiße Seiten an, die den Inhalt 


des Basic-ROÖMs wiedergeben. 
Nachteilig ist, daß der Autor 
sämtliche Kommentare zu den 
ROM-Listings in englischer Spra- 
che gehalten hat. Was er damit 
bezweckt, ist etwas unklar, da alle 
übrigen Texte in Deutsch sind. 
Sehr positiv zu vermerken ist hin- 
gegen die »stack-orientierte« 
Schreibweise in den Listings. 
Nach einem PUSH-Befehl er- 
scheinen die folgenden Z80-Be- 


fehle eingerückt, bis durch POP 


der Stapelzeiger SP wieder auf 





Inside out - 
der Oldtimer 


den alten Stand gebracht wird. So 
hat der Leser stets einen Über- 
blick darüber, wie ein ROM- 
Programm den Stapelspeicher 
verwaltet. Äußerst nützlich sind 
auch die Querverweise auf 
andere Teile des ROMs und 
RAMs, die jede ROM-Routine und 
Systemvariable, sei sie nun offi- 
ziell bekanntgegeben oder nicht, 
begleiten. Ein Kennbuchstabe 
macht ersichtlich, ob auf die 
Adresse schreibend oder lesend 
zugegriffen, ob sie als Datum 
oder als Unterprogramm verwen- 
det wird. In diesem Buch, als ein- 
zigem der drei getesteten, sind 
auch die RAM-Routinen (!) ab der 
Adresse B921 hex disassem- 
bliert. 


CPC 464 Intern und CPC 
664/6128 Intern 

Das »464 Intern« gehört eben- 
falls zu den schon etwas älteren 
Büchern (wenn man etwa einein- 
halb Jahre »alt« nennen will). Es 
entwickelte sich inzwischen zu 
einer Art »Standardwerk« für den 
Schneider CPC 464. 

Das Buch beschreibt sehr aus- 
führlich die Hardware, die einzel- 
nen Chips im Computer und die 
Komponenten des Betriebssy- 
stems. Auch die Einbindung von 
RSX-Befehlen, die Manipulation 
der nur beim CPC.464 vorhande- 
nen »Error- Patches«e, der Aufbau 
von Basic- Programmzeilen und 
die Verwaltung des Basic-Stacks 
sind erläutert. Zum ROM-Listing 
selbst kann man eigentlich recht 
wenig sagen. Man vermißt aller- 
dings die Einrückungen und 
Querverweise, Die Tabelle im 
Anhang ist nicht so vollständig 
wie im »inside out«, Dafür sind die 
Kommentare in deutscher Spra- 
che gehalten und zum größten 
Teil recht ausführlich. Bei einigen 
Routinen des Betriebssystems 
hat sich das Autorenteam aller- 


dings nicht allzuviel Mühe gege- 
ben. So kommt der Sound-Mana- 
ger besonders schlecht weg und 
erfährt über Seiten hinweg fast 
keine Kommentierung. Da infor- 
miert »inside out« eindeutig bes- 
ser. Andererseits ist für den Bast- 
ler noch der Schaltplan des Com- 
puters im Anhang des Buches 
von Interesse. Deshalb kann man 
das »464 Interne quten Gewis- 
sens empfehlen. Beim »664/ 
6128 Intern« hat Data-Becker alle 
Disassembler-Listings aus dem 
Buch verbannt. Daher kam es zu 
der etwas seltsam anmutenden 
Situation, daß nur noch die Kom- 
mentare dazu abgedruckt sind. 
Im Anhang ist dann auf 15 Seiten 
ein in Basic geschriebener Disas- 
sembler zu finden. Diesen muß 
man erst abtippen und mit ihm die 
passenden Teile des ROMs 
disassemblieren, bevor man mit 
den Kommentaren im Buch etwas 
anfangen kann. Dies ist allerdings 
zeitaufwendig und nicht gerade 
der Sinn eines ROM-Listing- 
Buches. Außerdem setzt es beim 
Leser einen Drucker voraus. 
Ansonsten ist das »664/6128 
Interne im Textteil weitgehend 
identisch mit dem »464 Intern«. 
Nur ein Kapitel über die hard- und 
softwaremäßige Integration der 
zweiten 64-KByte-Speicherbank 
beim CPC 6128 wurde zusätzlich 
aufgenommen. 


ROM-Listing CPC 464166416128 

Dieses Buch ist das jüngste der 
vorgestellten und auch das 
umfangreichste. Es umfaßt 
immerhin fast 700 Seiten. Die bei- 
den Autoren hatten sich vorge- 
nommen, nichtnureinkomplettes 
ROM-Listing des CPC 464 vorzu- 
legen, sondern auch auf die 
Unterschiede zwischen den 


ROMs der drei Schneider CPCs 
einzugehen. Eine Auflistung der 
ROMs von CPC 464, CPC 664 





CPC Intern - 
das Standardwerk 





ROM-Listing CPC - 
drei auf einen Schlag 





und CPC 6128 wäre natürlich viel 
zu umfangreich gewesen. So fin- 
det der Leser ein komplettes 
Disassembler- Listing des CPC 
464-ROÖMs sowie auf weiteren 
50 Seiten Listings derjenigen 
Betriebssystem- und Interpreter- 
Teile der Modelle 664 und 6128, 
die sich erheblich von denen des 
464-ROMs unterscheiden. Eine 
durchaus sinnvolle Lösung. 

Den Anfang des Buches bildet 
- wie gehabt - eine Einführung in 
die grundlegenden Strukturen 
der Hard- und Software des 
Schneider CPC. Beim »ROM- 
Listing CPC 464/664/6128« 
gerieten sie aber besonders aus- 
führlich. Dinge wie Ringpuffer, 
LIFO- und FIFÖ-Prinzipien und 
die theoretischen Grundlagen 
der Arithmetikroutinen, die hier 
zur Sprache kommen, sind bei 
keinem der anderen ROM-Li- 
stings zu finden. Positiv ist außer- 
dem zu werten, daß stets Verglei- 
che zwischen den verschiede- 
nen CPC-Versionen gezogen 
werden, so daß der Leser sofort 
erfährt, inwieweit eine bestimmte 
ihm vorschwebende Software- 
Lösung überhaupt portabel ist. 
Die Besprechung der Speicher- 
erweiterung beim CPC 6128 ist 
zwar umfassender als beim »CPC 
664/6128 Intern«, aber leider 
auch noch nicht völlig korrekt. 

Eine wirkliche Meisterleistung 
haben die Autoren vollbracht, 
indem sie sämtliche Routinen des 
Betriebssystems und des Basic- 
Interpreters sowie des System- 
und Basic-RAMs nebeneinander 
für alle CPCs auflisten. Hier kann 
man nachschlagen, wenn man auf 
eine ROM-Routine oder System- 
variable bei einem der CPCs 
gestoßen ist und wissen will, wel- 
che Adresse sie bei den anderen 
CPCs besitzt. Programmkonver- 
sionen zwischen den verschiede- 
nen Modellen sind dadurch wirk- 
lich kinderleicht. Ein ausführli- 
ches Stichwortverzeichnis run- 
det den Eindruck des Buches 
positiv ab. 

(Elisabeth Stenzel/ja) 

Into: 
Winfried Huslik, »CPCG 464 inside oute, 
5. Huslik Verlag, Augsburg 1985, 
ISBN 3-925159-00-2, 59 Mark. 
Brückmann, Englisch, Gerits, »CPC 464 
Intern«, Data-Becker, Düsseldorf 1985, 
ISBN 3-89011-080-0, 89 Mark. 
Brückmann, Englisch, Gerits, Steigers, 
»CPC 664/6128 Intern«, Data-Becker, Düssel- 
dorf 1985, ISBN 3-59011-135-1, 69 Mark. 
Janneck, Mossakowski, »ROM-Listing GPC 
464/664/6128«, Markt & Technik, Haar bei 


München 1986, ISBN 3-89090-134-4, 64 
Mark. 
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Ge Unter den Einsendern dieses Coupons werden 25 Exem- 
plare des klassischen Arcade-Spiels AIRWOLF verlost. 
Der Rechtsweg ist ausgeschlossen. 


Name und Adresse: 


Be puter-Typ: 


Name des Magazins, welchem Sie diesen Coupon ent- 
nommen haben: 


Senden Sie diesen Coupon an: 
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ONSTRUCTION 


RCADE 


Eine Basicerweiterung für den CPC 464 ohne RSX. 
ACB erlaubt das einfache Programmieren von Arcade-Spielen. 
Sehr einfach zu handhaben. 


P> Alle Befehle werden direkt eingegeben. 
2 Zu dem Paket gehören ein SPRITE EDITOR und ein 
| ndieran! ragen an: AUSFÜHRLICHES DEUTSCHES HANDBUCH. 
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leichzeitig VDOS, Amsdos und 

CP/M verspricht das neue F1- 

X-Laufwerk von Vortex. 
Doch vor den Genuß solcher »Wunder- 
dinge« haben die Götter den Schweiß 
gesetzt. Denn im mitgelieferten Hand- 
buch ist die hard- und softwaremäßige 
Integration der Diskettenstation in die 
übrige Computer-Anlage weder aus- 
führlich noch fehlersicher beschrieben. 

Und dabei ist es ganz einfach, dieses 
Laufwerk mit dem CPC 464 und CPC 
664 zu verbinden. Zuerst aber für die 
464-Besitzer einige Hinweise zum 
Anschluß des Controllers, da dies auf 
eine reichlich ungewöhnliche Weise vor 
sich geht. 

Sie brauchen zum Aufbau einen klei- 
nen Kreuzschlitz-Schraubenzieher - 
das ist alles! Schalten Sie unbedingt als 
erstes den Computer und alle Periphe- 
riegeräte ab. Dann trennen Sie den an 
die Konsole gesteckten Controller ab 
und ziehen den Stecker des Flach- 
bandkabels vorsichtig von der 3-Zoll- 
Diskettenstation. Nun ist Ihr Amsdos- 
Controller völlig vom System getrennt 
und Sie wenden sich dem neuen von 
Vortex zu. Mit dem Schraubenzieher 
lösen Sie die vier Schrauben auf der 
Unterseite und nehmen die Abdeckung 
ab. Vor Ihnen liegt nun offen eine kleine 
Platine mit dem VDOS-Eprom und eini- 
gen anderen ICs. 

Falls Sie bereits ein Erweiterungs- 
ROM an Ihren Computer angeschlos- 
sen haben, kann es zu Überschneidun- 
gen bei der ROM-Nummer kommen. 
Die Vordergrund-ROMs besitzen beim 
Schneider CPC 464 die Nummern O bis 
7, beim 664 und CPC 6128 die Num- 
mern O bis 15. VDOS belegt beim X- 
Laufwerk die Nummer 5. Und genau 
dasselbe macht auch der Maxam- 
Assembler in der RÖM-Version. Das hat 
zur Folge, daß der Computer bereits 
beim Einschalten ständig aussteigt, 
solange beide ROMs gleichzeitig vor- 
handen sind. Doch Vortex hat das vor- 
ausgesehen und bietet Abhilfe. Auf der 
VDOS-Platine befinden sich zwei Jum- 
perfelder (Bild 1). Das sind die weißen 
Rechtecke, aus denen je 16 Pins her- 
vorstehen. Unter den Jumpern steht 


Bild 1. 

Der »Jumper« 
selektiert die 

ROM-Nummer 


auf der Platine der Text »A-ROÖM-Be. 
Gefunden? Dann sehen Sie sicher auch 
den kleinen schwarzen Klotz, der auf 
den Pins der Nummer 5 steckt. Das 
bedeutet, daß das ROM die Nummer 5 
haben wird. Um eine andere ROM- 
Nummer zu wählen, ziehen Sie mit den 
Fingern den Klotz heraus und stecken 
ihn im linken Jumperfeld auf zwei neue 
Pins - am rechten Rand stehen die 
jeweiligen ROM-Nummern. 

Hier eine kleine Übersicht der bisher 
vergebenen Nummern: 
7 - Amsdos-ROM 
6 - BOS-EPROM für die Speicher- 


erweiterung 
5 - Maxam-Assembler 
O - Basic-ROM 


Es sind also noch die Nummern 1, 2, 
3 und 4 frei. 

Wenn Sie diese Bastelei gemacht 
haben, nehmen Sie wieder Ihren 
Amsdos-Controller zur Hand und legen 
den VDOS-Controller so vor sich, daß 
das herausstehende Flachbandkabel 
zu Ihnen hin zeigt. Beim Amsdos- 
Controller muß das Kabel links aus dem 
Gehäuse kommen. Nun stecken Sie 
vorsichtig den Amsdos-Controller auf 
die hervorstehende Platine im VDOS- 
Controller und drücken die beiden fest 
zusammen. Dann verschrauben Sie das 
Ganze wieder. Nun können Sie den 
VDOS-Controller, in dessen »Bauch« 
der Amsdos-Controller steckt, an die 
3-Zoll-Diskettenstation und die Kon- 
sole anschließen. Das Vortex-Laufwerk 
verbinden Sie mit dem auf dem Kabel 
eingepreßten Stecker. 

Damit sind alle hardwaremäßigen 
Anpassungen durchgeführt und das 
Computersystem ist wieder einsatzbe- 
reit. Beachten Sie bitte die Reihenfolge 
beim Einschalten: Zuerst kommt die 
3-Zoll-Station an die Reihe, dann das 
Vortex-Laufwerk und zuletzt der Com- 








Anpassungsprobleme 


Das neue Fi-X-Laufwerk für den Schneider CPC 
verspricht wahre Wunderdinge: rund 700 KByte 
Speicherkapazität sowohl in Basic als auch unter 
CPIM, wahlweiser Betrieb von VDOS und Amsdos, 
Zusammenarbeit mit der Speichererweiterungs- 
Karte von Vortex und einiges mehr. 





puter. Wenn Sie alles richtig gemacht 
haben, erscheint im Titelbild die fol- 
gende Meldung: 

(C)1986 VDOS 2.0-X by vortex GmbH 

Sollten beide Laufwerksmotoren in 
Betrieb sein und überhaupt nicht mehr 
stoppen, haben Sie höchstwahrschein- 
lich deri Stecker von der 5'/4-Zoll- 
Diskettenstation falsch herum auf das 
Flachbandkabel gesteckt. In diesem 
Fallmüssen Sie sofort alles ausschalten 
und den Fehler beheben. 

Kommen wir zur Software-Seite. Sie 
ist ungleich schwieriger zu handhaben 
als die Anpassung der Hardware. Unter 
Basic gibt es keine Probleme: »|B« 
schaltet auf das Zweitlaufwerk um und 
»|X« vertauscht die Zuordnung der Lauf- 
werksnamen A und B. Aber unter CP/M 
2.2 wird es schwierig. 

Vortex empfiehlt allen Ernstes, das 
gepatchte CP/M auf die mitgelieferte 
Original-Diskette zu schreiben. Geht da 
etwas schief, ist die Katastrophe unver- 
meidlich. Vortex hat zwar für diesen Fall 
zugesichert, eine Ersatzdiskette zu 
stellen, aber ärgerlich und zeitaufwen- 
dig ist das trotzdem. 

Unsere Methode ist zwar etwas 
umständlicher, aber dafür hundertpro- 
zentig sicher. Nehmen Sie Ihre Original- 
CP/M-Systemdiskette im 3-Zoll- Format 
und legen Sie sie ins A- Laufwerk. Dann 
starten Sie mit »|ICPM« das Betriebssy- 
stem und übertragen mit DISCCOPY. 
COM den kompletten Inhalt der Seite A 
auf eine leere 3-Zoll-Diskette. 

Lassen Sie die neue Diskette im Lauf- 
werk und verstauen Sie die Original- 
Diskette wieder sicher. Mit MOVCPM. 
COM müssen Sie nun den Speicher- 
platz verkleinern: 

A>MOVCPM 178 * 

CONSTRUCTING 44k CP/M vers 2.2 
READY FOR "SYSGEN” OR 

"SAVE 34 CPM44.COM” 





Jetzt schreiben Sie das neue CP/M 
mit SYSGEN.COM auf Ihre 3-Zoll- 
Diskette: 

A>SYSGEN * 

Lösen Sie einen Reset aus und legen 
Sie in das B-Laufwerk eine unfor- 
matierte 51/,-Zoll-Diskette. Mit 
»!FORMAT,2« formatieren Sie diese von 
Basic aus. Danach laden Sie CP/M, 
diesmal mit dem RSX-Befehl »ICPM,1«. 
Der Computer zeigt folgende Meldung: 
CP/M 2.2 - Amstrad Consumer 
Electronics ple 
4uK CP/M vers. 2.2-03/86 
vortex GmbH 

Legen Sie die mitgelieferte Vortex- 
Systemdiskette ins B-Laufwerk und 
starten Sie von dieser SYSGEN.COM: 
A>B: 

B> SYSGEN 
SYSGEN 2.0 (C)1985 vortex GmbH 

Die Frage nach der Quell-Diskette 
beantworten Sie mit »A« und drücken 
eine weitere Taste. Nun wechseln Sie im 
Laufwerk B die Diskette gegen die neu 
formatierte aus. Dann können Sie die 
Frage nach dem Ziellaufwerk mit »B« 
und einem weiteren Tastendruck beant- 
worten. Bei »Noch eine Diskette?« tip- 
pen Sie »N« für »Nein« Danach lösen 
Sie einen Reset aus und legen in B die 
Original-Vortex-Systemdiskette ein. Mit 
»!CPM,2« starten Sie wieder CP/M, 
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diesmal vom B-Laufwerk aus. Kurz 
danach erscheint die Meldung: »Keine 
CP/M-Diskette - Wiederholen?«. 

Warten Sie, bis der Laufwerksmotor 
abgeschaltet ist und legen Sie in das B- 
Laufwerk Ihre neue 5'/4-Zoll-Diskette. 
Dann tippen Sie »J« für »Ja«, worauf der 
Computer den Rest von CP/M lädt. Auf 
dem Bildschirm erscheint: 
AuK CP/M vers. 2.2-03/86 
vortex GmbH 

Diesmal in gelber Schrift auf blauem 
Grund. Der Computer verwaltet jetzt die 
Vortex-Station als A- und die 3-Zoll- 
Station als B-Laufwerk. Sie können das 
ohne weiteres mit DIR nachprüfen. Ins 
5'/4-Zoll-Laufwerk kommt wieder die 
Vortex-Systemdiskette, von der Sie 
DISKTOOL.COM starten: 
A>DISKTOOL 

Wählen Sie aus dem erscheinenden 
Menü den Punkt »Komplettkopie einer 
Diskette erzeugen« und nennen Sie als 
Quelle und Ziel beide Male das A- 
Laufwerk. Bei »Formatieren der Ziel- 
Diskette?« und »Testen der Ziel- 
Diskette?« müssen Sie zweimal »J« ein- 
geben. Nun kommt ein äußerst mühseli- 
ger Kopiervorgang, denn die zweimal 
80 Tracks der Diskette werden von 
DISKTOOL in Happen zu je acht Spuren 
übertragen. Nicht genug damit, 
anscheinend auf Grund eines Program- 
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mierfehlers läuft der Diskettenmotor 
ungebührlich lange nach: immerhin 
rund 15 Sekunden. Das summiert sich 
erheblich, wenn man sich nicht gerade 
zu einer Verzweiflungstat hinreißen läßt 
und beschließt, die Disketten bei lau- 
fendem Motor zu wechseln. 

Dafür haben Sie dann endlich eine 
vollständige Kopie der mitgelieferten 
Vortex-Diskette. Verlassen Sie jetzt 
wieder DISKTOOL mit ESCAPE und 
einer weiteren Taste. Es erscheint das 
wohlbekannte »Keine CP/M-Diskette - 
Wiederholen?«. Sie lösen einfach einen 
Reset aus und starten CP/M neu von 
der 3-Zoll-Diskette, die immer noch im 
Laufwerk liegt, mit dem RSX-Befehl 
»ICPM,1«. Schalten Sie dann auf B um 
und starten Sie SYSGEN.COM: 

A>EB: 
B>S5YSGEN 
SYSGEN 2.0 (C)1985 vortex GmbH 

Es gilt: Quell-Diskette in A, Ziel- 
Diskette in B, »Noch eine Diskette?« - 
»N« für Nein. Lösen Sie nun ein letztes 
Mal einen Reset aus. Mit »ICPM,2« kön- 
nen Sie von jetzt an das CP/M- 
Betriebssystem stets von der 5'/s-Zoll- 
Diskettenstation laden. DISKTOOL 
erlaubt die Übertragung der System- 
spuren auf beliebige weitere Disketten: 
Menüpunkt 2 »CP/M-Systemspuren 
übertragen«. (Martin Kotulla/hg) 
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AD ist die Abkürzung von 
»Analog-Digital«.. Eine solche 
Signalwandlung verwendet man 
nicht nur zur Meßdatenerfas- 
sung. Bauen Sie einen A-D- 
Wandler, um beispielsweise 
einen Trackball abzufragen. 


uns mit einer sehr wirkungsvollen 

A-D-Wandlerkarte als Trackball- 
steuerung. Die Vielfalt auf der Karte 
erklärt sich daraus, daß sie mit zwei A-D- 
Wandlern von je zehn Bit Breite ausge- 
stattet ist. Dies gewährleistet eine sehr 
hohe Genauigkeit und Auflösung. Die A- 
D-Wandler setzen analoge Signale digi- 
tal so um, daß sie der Computer verar- 
beiten kann. Die Geschwindigkeit der 
Wandlung ist hoch, wenn man bedenkt, 
daß der Wandler für zehn Bit nur 
0,000015 Sekunden benötigt. 

Stellen Sie sich einmal vor, Sie bewe- 
gen eine Kugel in alle Richtungen und 
wollen die Bewegungen mit dem Com- 
puter erfassen. Dann müssen Sie an 
der x- und der y-Achse die Bewegun- 
gen in analoge elektrische Signale 
umsetzen. In unserem Falle nehmen Sie 
ein Zehn-Gang-Potentiometer, das als 
Spannungsteiler geschaltet ist. So 
erhalten Sie ein analoges Signal, 'das 
Sie dann an die Eingänge der A-D- 
Wandler legen. Der A-D-Wandler wie- 
derum setzt die Spannung, die zwi- 
schen minus 5 und plus 5 Volt liegt, am 
Ausgang in einen numerischen Wert 
zwischen O und 1023 um. Daraus resul- 
tiert eine Auflösung von jeweils 1024 


E n diesem Beitrag beschäftigen wir 
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Bild 1. Der fertige A-D-Wandler für alle CPCs 


Werten in der x- und der y-Achse. Da die 
abgebildete Wandler-Karte ein Muster 
ist, weicht sie ein wenig von der endgül- 
tigen Version ab (ein IC und zwei kleine 
Abgleichpotis entfallen). 

Kommen wir zur Software für unsere 
A-D-Wandlerkarte. Das Programm (Li- 
sting) ist vollkommen _ interrupt- 
gesteuert und mit folgenden RSX- 
Befehlen in das Basic des Schneider 
CPC 464 eingebunden: 

1. »IADON« schaltet den Trackball- 
Modus ein. 

2. »lADOFF« schaltet ihn wieder aus. 

Das Aussehen des Trackball-Cursors 
bestimmt »SYMBOL 255«. Über die 
Variablen XPOS und YPOS läßt sich die 
momentane Position des Trackball- 


40 Pins 





Bild 2. Lageplan der Bauteile auf der Platine 
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Cursors ermitteln. Den Wert aus den A- ° 
D-Wandlern stellen Sie mit: 


PRINT PEEK(&B013)+256*PEEK 
(&B014) 


für den ersten A-D-Wandler und mit 


PRINT PEEK( &B015 )+256%PEEK 
(&B016) 
für den zweiten fest. 

Die erste Feuertaste läßt sich über 
»PEEK(&b010)« und die zweite über 
»PEEK(&bO11)« abfragen. Wichtig ist 
außerdem noch die Zeile »PRINT 
CHR$(23)+CHR$(1)e. Sie gehört an 
den Anfang jedes Programms. 

Nach Abtippen des Listings empfiehlt 
es sich, es sofort auf Kassette oder Dis- 
kette zu sichern. Man kann nun eigene 
Programme anfügen - beispielsweise 
Grafik-Programme - die mit dem Track- 
ball zusammenarbeiten. 

Kommen wir zur Praxis - dem Hard- 
wareteil - zu unserer A-D-Wandler- 
Karte (Bild 1). Wir brauchen einen Löt- 
kolben, Lötzinn, Kupfer-Lackdraht (0,2 
mm Durchmesser), eine Lochraster- 
Leiterplatte, einige Widerstände, zwei 
A-D-Wandler des Typs AD 571, eine PIO 
8255 und ein bißchen »digitalen Klein- 
krame«. Die Leiterplatte wird nach Bild 3 
verdrahtet. Doch bevor Sie sich nun an 
das Zusammenbauen der Platine her- 
anmachen, noch einige wichtige Tips: 
- Setzen Sie möglichst alle ICs auf 
Sockel. 

- Setzen Sie die ICs nach Lageplan ein 
(Bild 2). 

- Die A-D-Wandler sind mit Vorsicht zu 
genießen (MOS-ICs). | 





Bild 3. Schaltplan des Wandlers 


— Verwenden Sie Platinenstecker für den 
hluß an den Erweiterungs-Bus. 

-Seibs angefertigte Bus-Kabel sollten 
auf Kurzschlüsse überprüft werden. 

- Löten Sie sauber; kalte Lötstellen und 
Kurzschlüsse vermeiden. 

- Eten Sie unbedingt auf die richtige 
Polung der Elkos. 

- Nach Fertigstellung der Leiterplatte 
prüfen Sie die 5-Volt-Leitung gegen 
pe se auf Kurzschlüsse. 

So ICs müssen richtigherum in der 
> sung sitzen. Sie benötigen ein Netz- 
il mit minus 5 und 15 Volt. 
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Vom Selbstbau sei abzuraten, denn 
220 Volt können lebensgefährlich sein. 

Die Rollkugel brauchen Sie nicht 
unbedingt selbst zu bauen; es gibt fer- 
tige Trackballs zu kaufen. Dann aller- 
dings ist ein wenig Bastelei vonnöten, 
damit die Rollkugel mit der Steuerkarte 
zusammenarbeitet. Das Arbeitsprinzip 
eines gekauften Trackballs beruht auf 
der Verwendung von Reed-Relais und 
Magneten auf beiden Achsen. Die 
Mechanik ist jederzeit für unsere 
Zwecke brauchbar, wenn Sie anstelle 
der Magneten die Zehn-Gang-Potis ein- 
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setzen. Dazu bohren Sie in die Achse 
der Übertragungsrolle ein Lochmit etwa 


dem Durchmesser der Achse desPotis 


und stecken ihn dort ein. Wichtig ist, 


daß die Achse des PotisfestinderRole 
sitzt. Jetzt bauen Sie die veränderten 


Achsen wieder in das Gehäuse ein. 


Wenn das alles soweit erledigt ist, ver- 


# 


- 


drahten Sie die Potis R8 und R9 mit nr 


beiden Germanium-Dioden D1 undD2, 


wie Bild 2 zeigt. Den Eingang F1 wi = 3 | 


Sie über die Feuertaste an plus 5 Volt. 








18 "TRACKBALL LODADER [AFILE] 








28 SYMBOL 255,128,192,224,240,249,252,16 
‚8 CO45E] 
CLs [EBCA] 


38 

48 PRINT CHR$ (23) +CHR$ (1) C3D2C) 
5@ MEMORY &BFFF L&D5C 
68 DATA 21,76,90,6,4,E,8,1 
88 Lj 
98 







1,0,91 [BACH] 

7@ DATA CD,EF,BC,21,78,98,11,9,8,1 [A124] 
DATA 1,8,CD,E9,BC,21,76,98,CD,F2 [53E2] 
DATA BE,21,56,90,5,1,E,8,11,6A [3588] 
180 DATA 91,CD,ErF,„BC,21,50,9@,11,28,8 [473A] 
11@ DATA 1,3,8,CD,E9,BC,21,56,9@,CD [SCAB] 
120 DATA F2,BC,2,0,0,0,0,8,0,0 [&CECI 
15@ DATA 0,0,90,0,0,0,0,0,0,0 [52B4] 
148 DATA 8,0,90,0,0,0,2,8,0,0 [E2B6] 
158 DATA 8,0,2,0,0,0,0,0,0,0 CB2B8) 
15@ DATA 8,0,0.90,0,0,0,0,0,0 [22BA] 
170 DATA 8,0,0,0,0,0,0,0,0,0 C4ABCI 
188 DATA 8,0,0,0,0,0,02,0,0,0 [BABE] 
1970 DATA 8,2,8,0,0,0,0,0,0,0 L2ACH] 
200 DATA 0,0,0,0,0,0,0,0,82,8 CBSB@] 
Z2i@ DATA 8,0,0,0,0,0,02,0,0,0 [ESB2] 
220 DATA 8,0,2,0,0,0,2,0,0,0 C4DB4] 
230 DATA 0,0,0,0,0,0,0,0,0,0 [25B61 
240 DATA 8,0,0,0,0,0,0,8,8,0 [1DBB] 
258 DATA 8,0,0,0,0,0,8,0,0,8 [BDBA) 
2648 DATA 8.0,90,0,0,0,0,0,0,0 [S5BC) 
278 DATA 0,0,8,0,0,0,0,0,0,0 CDDBEI 
280 DATA 0,2,08,2,0,08,28,8,0,8 [ESCB] 
29@ DATA 8,02,0,0,0,0,0,0,0,0 [9502] 
300 DATA 2,2,90,0,0,0,2,0,0,0 [DCB21 
310 DATA 8,0,0,0,80,8,1,F3,F8,3E [3F74] 
328 DATA 93,6D,79,1,F2,F8,3E,28,ED,79 [2CB4] 
33@ DATA 1,F2,F8,3E,80,ED,79,1,F3, [2BD8] 
348 DATA 3£,9B,ED,79,1,F2,F8,ED,78,E6 [67861 
358 DATA 18,C2,1C,91,1,F2,F8,ED,78,E6 [8398] 
340 DATA 88,32,1@,B0,1,F2,F8,ED,78,E6 [7472] 
37@ DATA 48,32,11,B@,1,F2,F8,ED,78,E6 [O36E] 
38@ DATA C8,32,12,BQ,1,F@,F8,ED,78,5F [@38C1 
398 DATA 1,F2,F9,ED,78,E6,3,57,1,Fi LEAC6] 
4808 DATA F&,ED,78,6F,1,F2,F8,ED,78,E6 [BIC 
D,53,13,B8,22,15 [1654] 

13,B8,2A,15,B0,8 [A276] 

B,1B,1B,1B,2B,2B [D974] 


























Wir sind ein moderner, ständig wachsender Fach- 
verlag mit ca. 350 Mitarbeitern und zwei Tochter- 
gesellschaften in den USA (Silicon Valley in Kali- 
fornien) und der Schweiz. Wir verlegen Fachzeit- 
schriften und Bücher aus dem Bereich Computer 
und Elektronik sowie Software für Heim- und Perso- 


Begeistert Sie die Computertechnik? Als Redakteur 
in unserem Team sollten Sie aber nicht nur fachlich 
Bescheid wissen, sondern auch Spaß am Schreiben 
haben und eine kräftige Portion Neugier besitzen. 


Ihr Aufgabengebiet als Fachredakteur umfaßt das 
Testen von neuer Hard- und Software, das Bearbeiten 
von Listings unserer Leser sowie das Schreiben von 
Fachartikeln. Daneben sollen Sie sich durch den Be- 
such von Messen und die Kontaktpflege zu Herstel- 
lern die notwendigen Informationen und Neuigkeiten 
in der Branche verschaffen. 


Wir bieten Ihnen ein ausgezeichnetes Betriebsklima 
in einem jungen, unkonventionellen Team, ein gutes 





Markt&fechnik 


Verlag Aktiengesellschaft 


Machen Sie Ihr Hobby 
zu Ihrem Beruf! 











DATA 2B,2B,2B,2B,2B,2B,2B,D5,E5,CD 
DATA C6,BB,D5,E5,CD,C9@,BB,3E,FF,CD 
DATA 19,BD,CD,FC,BB,E1,D1,CD,C@,BB L[7&DA] 
DATA 3E,FF,CD,19,BD,CD,FC,BB,E1,D1 L[CiF6] 












































DATA CD.C8,BB,C9,C9,8,8,0,0,0 [9708] 
DATA 8,8,21,50,98,CD,EC,BC,C9,8 C2BA8] 
DATA 8,8.0,8,0,2,8,0,8,0 [E&B6] 
DATA 8,0,8,0,0,0,0,0,0,0 [BösBB] 
DATA 8,0,0,0,0,0,0,0,0,0 [26BA] 
DATA 8,8,0,0,0,0,0,0,0,8 [4EBCI 
DATA 0,0,0,0,0,0,0,0,0,® [BEBE] 
DATA 8,0.0,0,0,0,0,0,8,8 [1ECB] 
DATA 8,80,0,8.0,2,0,0,0,0 | [DEC2] 
DATA 8,8,36,63,32,16,AC,21,27,92 [IBAEI 
DATA 22,17,AC,32,19,AC,21,44,92,22 [2894] 
DATA 1A,AC,32,7,AC,21,6B,92,22,8 L9DFB) 
DATA AC,32.A,AC,21,7E,72,22,B,AC [683C1 
DATA C9,11,91,92,CD,27,E3,D@,7E,CD LF31E] 
DATA 7B,FF,Da,F1,F1,1A,D1,C1,F5,7 [SAF4] 
DATA 3E.E®.38,2,3E,FF,CD,25,DF,Fi [22F8] 
DATA CD,25,DF,C3,86,DF,79,7,3@,11 [C3A4] 
DATA 3E,EB,B9,C 'Cı1,DD,Ei,El,7E L[2D6A] 


© 
| 
= 


DATA 23,E5,DD,E5,C5,D5,4F,21,91,92 LC1A8C] 
| DATA CD,13,E3,D@,7E,23,C1,C1,C9,FE [2854] 













DATA C9,C8,23,7E,87,D@,C1,4F,6,8 CFD®4] 
DATA EB,21,9D,92,9,C3,BB,DD,D&s,1E [2AQ4] 
DATA FE,88,D8,D6,48,D8,C1,4F,6,8 [D324] 
DATA E5,21,A1,92,C3,B4,D@,41,44,4F L42BE] 
, DATA CE,88,41,44,4F „46,C06,81,8,A1 [3A48] 
DATA 92,A7,92,E5,CD,8,90,E1,C9,E5 [2BA8] 
DATA CD,B®,91,E1,C9,2,8,0,8,8 [46801 
Daın a'8 2,0,8.2,0,8,8,0 LCBCE] 
DATA 2,0,8, ; 
DATA 8,0.0,8,0,0,0,0,0,08 [2808] 
DATA 8.0.0.0.0.0.0.0.0.0 C9BCAI 
DATA 8,20,20,2,0,2,0,2,2,8 [LBBCC1 
DATA 2,2,0,0,0,2,2,0,9,8 CCBBC] 
DATA 28,0,20,0,8,2,2,2,0,0 LF3BE] 
DATA 8,2,2,2,0,0,0,8,8,0 [3300] 
FOR i= 368644 TO 37532:READ a$:POKE i 
„VAL("E"+a$) NEXT i [®4C8] 
CALL %&92088 CD1D23 
"LADE BASIC PROBRAMM (42021 
1000 RUN" :" [0376] 










nal Computer. Für unsere Redaktion Happy-Compu- 
ter suchen wir 
Fachleute für » Atari XL und ST 


Gehalt und vorbildliche Sozialleistungen (13. Monats- 
gehalt, Fahrtkostenzuschuß, Essenszuschuß, Alters- 
versorgung UsW.). 


Ihre schriftliche Bewerbung (tabellarıscher Lebens- 
lauf, Lichtbild, Zeugnisse und — falls vorhanden — 
Kopien von veröffentlichten Arbeiten) senden Sie bit- 
te an unsere Personalabteilung. Für erste Kontakt- 
gespräche steht Ihnen Herr Scharfenberger zur Ver- 
fügung (Tel. 089/46 13-122) 


Markt&Technik Verlag 
Aktiengesellschaft 
Hans-Pinsel-Straße 2, 
8013 Haar bei München 








Des Schneiders Tastatur 


Haben Sie sich auch schon darüber geärgert, daß auf Ihrem Schneider 
die Tasten weder nach DIN angeordnet, noch Umlaute zu finden sind? 
Mit einer kleinen Bastelei und einem Programm können Sie das ändern. 
Die Tastatur kann auch unter CP/M neu belegt werden. 





er von einer Schreibma- 
schine auf einen Schnei- 
der-Computer umsteigt, 


der verwünscht schnell die eingebaute 
amerikanische Tastatur. Dabei ist Ab- 
hilfe sehr einfach. Nur ein paar Basic- 
Befehle passen den Zeichensatz und 
die Tastaturbelegung an die deutsche 
Sprache an. Wer dann perfekt Schreib- 
maschine im Zehnfingersystem schrei- 
ben kann, ohne auf die Tasten zu 
blicken, der braucht keinen weiteren 
Umbau an seinem Computer vorzuneh- 
men. Wenn Sie aber nach dem System 
Adler (»kreisen und zustoßen«) schrei- 
ben, dann müssen Sie auch die Be- 
schriftung an die neue Anordung an- 
passen. 

Insgesamt 16 Tasten sind neu zu 
beschriften. Austauschtasten gibt es 
leider nicht zu kaufen, so daß nur Eigen- 
bau hilft. Die Kosten liegen bei unserer 
Bastelei unter zehn Mark. Etwas hand- 
werkliches Geschick ist allerdings not- 
wendig. 

Als erstes müssen wir die zu verän- 
dernden Tasten abbauen. Beim CPC 
464 und beim 664 braucht man dazu 
nur einen Schraubenzieher unter den 
Fuß der Taste zu schieben, diese her- 
auszuhebeln, und schon hat man sie in 
der Hand. Allerdings ist etwas Vorsicht 
geboten, denn schnell ist das Gehäuse 
des Computers zerkratzt oder beschä- 
digt. Beim CPC 6128 muß man vor dem 
Aushebeln mit dem Schraubenzieher 
mit einem gebogenen Stahldraht eine 
der beiden Halteklauen zurückzu- 
drücken. An der anderen Seite kann 
man dann die Taste herausheben. Bild 1 
zeigt die beiden Methoden. 

Wer eine schöne Handschrift hat, der 
kann jetzt seine Tasten neu beschriften. 
Wer nicht, der sollte zu Abreibebuch- 
staben aus dem Handel greifen. Es gibt 
verschiedene Typen von mehreren Fir- 
men. Für zirka drei Mark pro Bogen bie- 
tet sie jedes Schreibwarengeschäft an. 
Mit etwas Fantasie kann man eventuell 
fehlende Zeichen aus anderen Symbo- 
len herstellen. 

Die Abreibebuchstaben kommen, 
nachdem man die aufgedruckten Sym- 
bole mit etwas Schleifpapier entfernt 
hat, (vorsichtig arbeiten, damit die Pla- 














Bild 1. Die Tasten des CPC 464 und 664 unterscheiden sich 
von denen des CPC 6128 durch zwei Haltebügel 
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Bild 2. Die amerikanische Tastaturbelegung 
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Bild 3. Die deutsche Tastaturbelegung 
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18 “re Deutsche DIN-Tastatur ##### 158 SYMBOL 124,1982,8,68,102,1802,102,48,8 | 
“*r## Ic ichael Strasser ##e#+ [S5AS5] 
































74.76 [2E28] 


* 2 2 2 2 Rottalstr. 5 * | | 1BOL 2 2 2,182,59 
“nr “ae 8888 Muenchen Bd zum NEURU NINE EUER ER ee [L7CA4] 
| “rn. [2588] 17@ SYMBOL 126,128,1989,198,252,198,198,2 
| 28 mopeE 1 CESF@] 48,192 [892A] 
| 38 LOCATE 18,1:PEN 1:PRINT"Deutsche DIN- 180 RESTORE 278 LA92CI 
Tastatur" LFEBE] 198 ' Tasten neu definieren [8122] 
48 SYMBOL AFTER 32 2 LEFE2] 288 FOR n=1 TO 17:READ a,b,c:KEY DEF a,li 
Sa 054°’ Hi Car rc > 7 "zus | ‚b,czNEXT C15B4] 
Dr Bere a Ve re u eh 3 [BSIEI | 2190 o$="@ / = 7?‘ J #\L[L' 3 : _ >"ruß- 
&d ° Anzeigen der normalen Tastatur- FB EHEM cC738] 
belegung (28C5] 228 ' Anzeigen der neuen Tastatur- u 
70 | 1:LOCATE 9,5:PRINT sıLOCH 9,1 belegung 
EPRINF us: PEN 3? LOCATE 1,58 RINT"Aact 230 PEN 1:LOCATE 9,7:PRINT 0$:LOCATE 9,1 
I":LOCATE 1,12:PRINT"ASCII" | [D412] 4:PRINT u$:PEN 3:LOCATE 1,7:PRINT"De 
8@ PEN 2:LOCATE 9,5:PRINT STRING$ (27,"=" utsch"sLOCATE 1,14: PRINT"Deutsch" [671A] 
__ 3:LDCATE 9,13:PRINT STRING$ (27,"=") L7FAE] 248 LOCATE 13,28:PEN 1:PRINT"Y und Z ver 
78 °‘ Definierung der Umlaute, tauscht" [CE38] 
scharfes S, Paragraph [DSD®] 258 FOR n=1 TO S@8@:NEXT:LOCATE 1,24:END 
1908 SYMBOL &4,68,90,6B,182,68,5,68,0 [2FE2] [293E1 
110 SYMBOL 91,198,16,56,188,178,254,1978, 268 ' Datas fuer Tastaturumdefinierung 
8 ER | LA21C] (Tastennummer , Zchn 1, Zchn 2) 
128 SYMBOL 92,102,56,108,198,198,188,56, C4DBA] 
BD [C9865] 27@ DATA 71,121,89,39,44,59,31,46,59,30, 
138 SYMBOL 73,182,8,1802,182,1902,182,60,8 | 45,95,22,68,62,29,124,92,28,123, 91,1 
| [8B36]1 | 9,35,39,43,122,9@,26,125,93,17,43,42 
148 SYMBOL 125,188,8,12909,12,124,284,118, | ‚537,51,64,56,52,36,41,55,47,32,48, 61 
) [C@REI | \25)125,63,24, 





Listing. Tastaturbelegung 


stiktasten nicht zu heiß werden) auf die 
Tasten. Bei der Tastatur des 664 muß 
man allerdings aufpassen, um die 
Tasten aus verschiedenen Reihen nicht 
durcheinanderzubringen. Denn anders 
als beim 464 und beim 6128 ist die 
Form der Tasten der verschiedenen 
Reihen nicht identisch. Abriebfest 
macht man die Tastatur mit etwas mat- 
tem Klarlack. 

Falls jemand seine Handschrift bevor- 
zugt, muß er die Symbole mit einem 
wasserfesten Stift auftragen. Denn nur 
dann kann die Schrift unter dem Klar- 
lack nicht verlaufen. Nun die Tasten ein- 
fach noch einsetzen, und schon ist die 
Operation gelungen. | 

Das Programm zur Tastaturbelegung 
finden Sie als Listing. Es ist vollständig 
in Basic geschrieben und läßt sich pro- 
blemlos auch an andere Wünsche an- 
passen. Wer auch unter CP/M mit einer 
deutschen Tastatur arbeiten will, sollte 
einmal unter den CP/M-Tips (Seite 152) 
nachsehen. Dort finden Sie ein Pro- 
gramm, das in diesem Betriebssystem 
die Anpassung vornimmt. 

Da man sicher auch in Zukunft 
manchmal mit der Originaltastatur 
arbeitet, sollte man die alten Symbole 
an der Vorderseite der Tasten anbrin- 
gen. Denn sonst steht Ihnen später 
einige Sucherei bevor, um die richtigen 
Tasten zu finden. 

(Hans-Otto Schulz/hg) 













IB i=1:MODE 1:BORDER B: INK B,B:INK 1,1:1 
NK 2,3: INk 3.64:FOR w=8 TO PI STEP PI/ 
75: q1=C0S (w#3) #220: wi=w+2B: q2=C0S (wi) 
*2008:FLOT COS tw) #q91+329,5IN {w) #q1+288 
‚L:DRAW COS (w#PI)+1B,5IN{w1)*#C0Stq2) + 
zZ88,1:DRAW COS(wi)#qg2+3208,5IN {wl) #qg2+ 
2B0.2:DRAW 535.288,3:NEXT w [3614] 

28 INK 1,i:INK 2,4:INK 3,3:FOR wa=1 TO 2 
BB: NEXT: INK 2,3: INK 3,5:FOR wa=i1 TO 2 

BBO:NEXT:i=i+ti1:IF i=38 THEN i=-i LEOFA] 

[Bi?7CI 


Kassette/Diskette | 


Besonderes: =; Hardware-Bastelei 








COMPUTE! 















































































ordStar 3.0 mit MailMerge Der Bestseller unter den Textverarbei- 

3sprogrammen für PCs bietet Ihnen bildschirmorientierte Formatierung, deutschen 

jeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie 

be briefe mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben 

d auch die Adreßaufkleber drucken. 

dStar/MailMerge für den Schneider CPC 464*, CPC 664* 

tell-Nr. MS 101 (3°-Diskette) 

ell-Nr. MS 102 (5'i "-Diskette im VORTEX-Format) 

Star/MailMerge für den Schneider CPC 6128 

M. MS 104 (3”-Diskette) 

ar/MailMerge für den Schneider Joyce PCW 8256 

Ir. MS 105 (3"-Diskette) 

»-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 

Behiger Drucker mit Gentronics-Schnittstelle 

gu Standard-Speicherplatz beim CPC 464/664 erlaubt ohne Speichererweite- 

Beer verschiebe- Operationen nur bedingt und Simultan-Drucken gar nicht. 
arlMailMerge für den Commodore 128 PC 

IHN. MS 103 (5, "-Diskette) 

e-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 

ie abi ar Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


5E Il, Version 2.41 aBase Il, das meistverkaufte Programm unter 

5 Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datei- 

Shabung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän- 

werden. Der Datenzugriff erfolgt sequentiell oder nach frei wählbaren Kriterien, die 
jerte Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 

zbuchhaltung, Lagerverwaltung, Betriebsabrechnung usw. 

se li für den Schneider CPC 464*, CPC 664* 

Nr. MS 301 (3"-Diskette) 

"Nr. MS 302 (5', "-Diskette im VORTEX-Format) 

SE Il für den Schneider CPC 6128 

Hi-Nr. MS 304 (3 °-Diskette) 

SE Il für den Schneider Joyce PCW 8256 

Nr. MS 305 (3"-Diskette) 

=-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 

Bebiger Drucker mit Gentronics-Schnittstelle 

BASE II für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 

| ng auf 128 KByte. Diese erhalten Sie direkt bei der Firma VORTEX oder bei 

= Computerhändler. 

Eli für den Commodore 128 PC 

Nr. MS 303 (5'/, *-Diskette) 

ngen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 

ar Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


TIPLAN, Version 1.06 wenn Sie die zeitraubende manuelle 
welkung tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 
& ‚, dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenblät- 
au das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellenkal- 

Onsprogramm kann bei allen Analyse- und Planungsberechnungen eingesetzt wer- 
>28 Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- 
-, Aufbereitungs- und Druckenweisungen ermöglichen außerdem optimal auf- 
> Präsentationsunte 
für den Schneider cc 464*, CPC 664* 
. MS 201 (3-Diskette) 
.MS 202 (5, -Diskette im VORTEX-Format) 
AN für den Schneider CPC 6128 
r. MS 204 (3 "-Diskette) 
?LAN für den Schneider Joyce PCW 8256 

. MS 205 (”-Diskette) 

= =-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 

Sioer Drucker mit Gentronics-Schnittstelle 
PLAN für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
ng auf 128 KByte. 
PLAN für den Commodore 128 PC 

. MS 203 (5'/, "-Diskette) 

s-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
iger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


Saiten jedes WordStar-, dBASE II und MULTIPLAN-Programm für Ihren Schneider- 
atE Ara Commodore 128 PC fertig angepaßt (Bildschirmsteuerung). Jeweils 
E ukte! Jedes Programmpaket enthält außerdem ein ausführliches Handbuch 
omgakter Befehlsübersicht. Die VORTEX-Speichererweiterung für den Schneider 
#2 464 erhalten Sie direkt bei der Firma VORTEX oder bei Ihrem Computerhändler. 
ie Markt & Technik-Softwareprodukte erhalten Sie in den Computer-Abteilungen 
E Kaufhäuser, bei Ihrem Computerhändler oder im Buchhandel. 


en Se direkt beim Verlag bestellen wollen: gegen Vorauskasse durch Verrechnungs- 
ck oder mit der eingehefteten Zahlkarte. 
angen im Ausland bitte an untenstehende Adressen. 
- BER RK Vertriebs AG, 
= 3, CH-6300 Zug, © 042/415656 
: : Überreuter Media, Handels- und Verlagsges. mbH, 
n 24, A-1091 Wien, 2 0222/48 1538-0 





neider-Computer 
ind Commodore 128 PC 












® Und dazu die 


weiterführende 
Literatur: 


WordStar für den Schneider CPC 
Best.-Nr. MT 779, ISBN 3-89090-180-8 
WordStarfür den Commodore 128PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 


dBASE Il für den Schneider CPC 
Best.-Nr. MT 837, ISBN 3-89090-188-3 
dBASE Il für den Commodore 128 PC 
Best.-Nr. MT 838, ISBN 3-89090-189-1 


ÄASHTUN TATE 
| für den 
Schneider CPC 6128 


3" Schneider-Formalt 










MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für den Commodore 128 PC 
Best.-Nr. MT 836, ISBN 3-89090-187-5 


Jedes Buch kostet DM 49,- 
(sFr. 45,10/65 382,20). 
Erhältlich bei Ihrem Buchhändler. 


I MULIIPLAN 
I für den \ 
L ommeodon el2B Pt | 


ul dm Keane Li FL 


Jedes Programm 
kostet DM 199,-* wrr. 178,18 1800,°) Preisempiehlumg 


Markt& Technik 
ms Pau une 2, B012 Haar ei lachen 

















JOYCE 


Wenn viele stolze Besitzer eines 





Wer kann, der kann! 


Joyce nicht wissen, daß ihr Com- 
puter weit mehr bietet als eine 
komfortable Textverarbeitung, 
liegt das an der Werbung. Er 
kann aber mehr! 


| achdem Schneider den Preis 
für den Joyce drastisch senkte 
und obendrein noch ein bes- 
ser ausgestattetes Schwestermodell 
anbot, erfreut sich dieser Computer der 
8-Bit-Generation wachsender Beliebt- 
heit. Verfolgt man jedoch die techni- 
sche Entwicklung auf dem Computer- 
markt, erkennt man schnell, daß der 

Trend eindeutig in Richtung der 16- und 
32-Bit-Prozessoren weist (beispiels- 
weise AtariST undCommodore Amiga). 
Was macht den Joyce nun trotzdem 
noch so attraktiv? 

Zum einen wird er als komplettes 
System, bestehend aus Computer, 
monochromem Monitor, Drucker, Dis- 
kettenlaufwerk und einem umfangrei- 
chen Software-Paket geliefert. Dazu 
kommt der für eine derartige Konfigura- 
tion äußerst niedrige Preis. 

Betrachtet man die Hardware, setzt 
Schneider Maßstäbe, was Design und 
Platzbedarf betrifft. Drucker und Tasta- 
tur belegen auf einem Schreibtisch 
ungefähr den Platz einer elektrischen 
Schreibmaschine. Der Monitor stellt 
praktisch das zentrale Gehirn der 
Anlage dar, in dem alles zusammen- 
läuft. Äußerst positiv fällt auf, daß sämt- 
liche Geräte vom Monitor mit Strom ver- 
sorgt werden; das umgeht den sonst 
obligatorischen Kabelsalat und die 
Mehrfachsteckdose. 

Kommunikation zwischen verschie- 
denen Computern ist ein Thema, das 
aus der heutigen Computerszene nicht 
mehr wegzudenken ist. So findet man 
an der Rückseite des Monitors einen 
Anschluß für ein Interface mit einem 
seriellen (RS232) und einem parallelen 
(Centronics) Ausgang. Mit einem 
Modem oder Akustikkoppler steht 
Ihnen die Welt der Mailboxen und 
Datenfernübertragung offen. So lassen 
sich Programme und Daten beliebig 
transferieren. 

-Das eingebaute Diskettenlaufwerk 
besitzt eine Speicherkapazität vonrund 
170 KByte. Die Diskette hat also zirka 
340 KByte Speicherplatz, denn die 
Rückseite ist ebenfalls verwendbar. In 
der Plus-Version (PCW 8512) enthält 
der Joyce ein zweites Laufwerk mit 
einer Kapazität von 720 KByte. Für 
wirklich sinnvolle (weil umfangreiche) 
Datenbanken ist diese Ausstattung 


22 




























vr ERRRRRFERFE 
PA zen 
a a a ae es 





sogar unerläßlich. Zusätzlich ist der 
Hauptspeicher auf 512 KByte (deshalb 
die Zahlenkombination im Namen) 
erweitert. Der PCW 8256 besitzt dem- 
zufolge einen Arbeitsspeicher mit 256 
KByte. Der Unterschied in der Spei- 
cherkapazität wirkt sich vor allem auf 
das Fassungsvermögen der RAM- 
Floppy aus, das beim PCW 8256 »nur« 
112 KByte umfaßt,- beim PCW 8512 
jedoch 368 KByte. Diesen Speicherbe- 
reich spricht der Benutzer wie ein 
zusätzliches Laufwerk an. Der Vorteil 
liegt darin, daß ein Zugriff auf die Daten 
keine mechanischen Operationen 
erforderlich macht. Es findet lediglich 
eine interne Verschiebung der Daten 
statt, was einen Bruchteil der sonst 
benötigten Zeitbeansprucht. Nervende 
Wartezeiten beim Nachladen wichtiger 
Programmteile oder Daten entfallen 
also. 

Auch der Drucker braucht einen Ver- 
gleich mit der Konkurrenz nicht zu 
scheuen. Er verfügt über eine reich- 
haltige Ausstattung und läßt sich in 
seinen Funktionen völlig über Loco- 
script steuern. 

Die mitgelieferten Disketten enthal- 
ten neben den Programmiersprachen 
DR Logo und Mallard-Basic sowie vie- 





len Dienstprogrammen vor allen Dingen 
ein leistungsfähiges Programm zur 
Textverarbeitung. »Locoscript« bietet 
reichhaltige Funktionen für nahezu‘ 
jeden erdenklichen Anwendungsfall 
und ist zudem auch sehr bediener- 
freundlich. Unter Verwendung von Win- 
dows (Einblendungen in den Bild- 
schirm, die Anweisungen oder Aus- 
wahlmenüs enthalten) steht der Benut- 
zer in ständigem Kontakt mit dem 
Computer. Dadurch verkürzt sich die 
Einarbeitungsphase enorm; man kann 
praktisch sofort mit dem Programm 
arbeiten, ohne vorher die gesamte; 
sehr umfangreiche Bedienungsanlei- 
tung studiert zu haben. Die selbstver- 
ständlich deutsche Schreibmaschinen- 
tastatur besitzt 82 Tasten und erfreut so 
sicherlich jedes Sekretärinnenherz, 
denn die zusätzlichen, von »Locoscripte« 
belegten Tasten, tragen ihren Teil zur 
einfachen Handhabung bei. Wem‘ 
jedoch immer noch der Umstieg auf 
eine solche »Höllenmaschine« schwer- 
fällt, für den simuliert Joyce einfach eine 
Schreibmaschine mit seinem Direkt- 
druck-Modus. 

Folgende Aufzählung, die keines- 
wegs alle Funktionen umfaßt, zeigt die 
Vielseitigkeit von »Locoscript«: Unter- 








streichen, Fettdruck, verschiedene Zei- 
7 chendichten und Schriftarten, Propor- 
tionalschrift, Seitenzählung, Hoch- und 
Tiefstellen, Verwendung von Sonder- 
zeichen, Änderungen des Layouts, 
Mischen mehrerer Textbausteine und, 
und, und... 

Aber auch andere Textsysteme sind 
bereits verfügbar. So können beispiels- 
weise Wordstar-Liebhaber ihrem ver- 
trauten Programm treu bleiben. Gerade 
hier stellt sich jedoch die Frage, inwie- 
fern die Investition für eine zusätzliche 
Textverarbeitung sinnvoll ist, nachdem 
mit »Locoscript« eine leistungsfähige 
Textverarbeitung zum Nulltarif zur Ver- 
fügung steht. 

Als Erweiterung der Einsatzgebiete 
im Büro bietet sich als nächstes die 
groBe Gruppe der Datenverwaltungs- 
Programme an, denn in welchem Be- 
trieb fallen keine Adressen, Kunden- 
daten und ähnliches an? Meist schlum- 
mern diese in verstaubten Karteikästen 
vor sich hin und wehe, man benötigt auf 
die Schnelle bestimmte Informationen. 
Wie erholsam ist da der Umgang mit 
einer Datenbank im Computer. Es eröff- 
net ganz neue Perspektiven, wenn man 
auf Tastendruck eine Inventur durch- 
führen oder mit minimalem Arbeitsauf- 
wand ein Werberundschreiben an alle 
Kunden schicken kann. Die Auswahl ist 
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auf diesem Gebiet besonders reichhal- 
tig: So gibt es neben speziellen Pro- 
blemlösungen (Adressen-/Lagerverwal- 
tung etc.) auch universelle Datenbank- 
Programme wie beispielsweise 
»dBase«, die der Anwender an ver- 
schiedenste Zwecke anpassen kann. 

Tabellenkalkulations-Programme wie 
»Multiplan« sind recht nahe Verwandte 
der Datenverwaltungen. Der Haupt- 
unterschied liegt in der tabellarischen 
und damit sehr übersichtlichen Darstel- 
lung der Daten und in der Fähigkeit, 
beliebige Zeilen und Spalten der Tabelle 
rechnerisch miteinander zu verknüp- 
fen. So ist zum Beispiel eine Artikel- 
Preisliste in Windeseile bei Änderung 
der Kalkulation komplett neu berech- 
net. 

Wem es auf die Automatisierung des 
gesamten Geschäftsbetriebes an- 
kommt, ist mit kompletten Programmpa- 
keten gut bedient. Solche Busineß- 
Packs enthalten dann mehrere der 
genannten Einzelanwendungen für be- 
stimmte Einsatzgebiete. 

Zur Verdeutlichung erfaßter Daten 
eignen sich Programme für Geschäfts- 
Grafiken. Der geplagte Manager, der 
täglich aufs neue über den aktuellen 
Stand seines Unternehmens informiert 
sein muß, erhält mit Programmen wie 
»DR-Graph« schnellsten Überblick in 
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CopyMan 

DIE HARDCOPY 

DER SUPERLATIVE 

— anpaßbar an jeden Drucker 

— nachträgliche Farbeinstellung 

— bis zu 200facher Vergrößerung 

— Bildschirmausschnitte drucken 

— Druck horizontal oder vertikal 

— die Farben werden als verschiedene 
Grautöne dargestellt 

— Menügesteuert und in eigene 

Programme einbindbar 


KASSEMBLE 12 
DER ASSEMBLER FUR 
ANFÄNGER UND PROFIS 
— der schnellste 


— der einfachste IN 
— der komfortabelste 498 . —| 
— der preisgünstigste 


TextMan 


Programm 
Schreiben - Drucken 
Blockfunktionen 
Druckeranpassung 
kein Nachladen von 
Programmteilen 
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NEUE SOFTWARE-AUTOREN SIND 
IN UNSEREM TEAM HERZLICH WILLKOMMEN 


= 05251/64852 


Form anschaulicher Grafiken. Torten-, 
Balken- und Liniengrafiken sowie Histo- 
gramme auf Bildschirm oder Papier sind 
eben erheblich einprägsamer als end- 
lose Zahlenkolonnen. 

Sie sehen also: Die zur Zeit angebo- 
tene Software reicht eigentlich aus, um 
alle täglich anfallenden Arbeiten im 
Büro zeitsparend zu erleichtern. 

Falls Sie nun denken, mit diesen Ver- 
waltungsaufgaben wäre Ihr Joyce be- 
reits ausgelastet, liegen Sie mit Ihrer 
Einschätzung weit daneben. Entspre- 
chende Software (wie zum Beispiel 
»DR-Draw« und »Mica«) ermöglicht 
sogar technische Konstruktionszeich- 
nungen und beliebige andere Grafiken. 

Auch Benutzern, die ihre Problem- 
lösungen selbst programmieren wollen, 
sind genügend Hilfsmittel an die Hand 
gegeben. Da ist zunächst einmal das 
bereits erwähnte, mitgelieferte Mallard- 
Basic. Es ist zum - auf CP/M-Compu- 
tern weit verbreiteten - Microsoft-Basic 
voll aufwärtskompatibel, bietet aber 
viele mächtige Erweiterungen. So sind 
dem Programmierer mit dem relativen 
Dateizugriff über »Jetsam« alle Möglich- 
keiten geboten, eigene Datei-Program- 
me unter Basic zu entwickeln. Schlüs- 
selwörter dienen als Suchkriterien und 
gestalten eine Datenbank erst richtig 
komfortabel. Der Benutzer ist nun nicht 
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mehr auf fertige Datenbanksysteme aus 
dem Handel angewiesen. 

Das ebenfalls im Preis enthaltene »DR 
Logo« ist nicht nur für Kinder geeignet, 
sondern kann vielmehr jedem lernwilli- 
gen Programmier-Anfänger den Ein- 
stieg erleichtern. Professionelle Pro- 
grammieraufgaben lassen sich mit pro- 
blemorientierten Sprachen besser 
umsetzen. Und so ist es kein Wunder, 
daß entsprechende Compiler für Ihren 
Joyce auf dem Markt sind. Für kaufmän- 
nische Anwendungen steht Cobol zur 
Verfügung, während Ingenieure und 
Techniker ihre Probleme eher mit Fort- 
ran lösen. Auch Pascal-Programmierer 
kommen mit dem entsprechenden 
Compiler auf ihre Kosten. Die Vorteile 
der strukturierten Programmierung 
unter Pascal veranlaßt immer mehr Pro- 
grammierer, sich mit dieser Sprache 
auseinanderzusetzen. Auch einge- 
schworenen Basic-Freaks gibt der 
C-Basic-Compiler die Chance zum Auf- 


stieg. Die in C-Basic verfaßten Pro- | 


gramme laufen dank der Compilierung 
rund zehnmal schneller als interpre- 
tierte Programme unter Mallard-Basic. 
Ein wunder Punkt des Joyce ist seine 
eingeschränkte Eignung als Video- 
spiel. Vielen Einsteigern gibt gerade 
der Spieltrieb den Anstoß zur Auseinan- 
dersetzung mit der Computertechnik. 
Anders als bei der Serie der Schnei- 
der-CPCs ist die Spielepalette recht 
mager. Eins der wenigen Angebote ist 
ein Schachspiel mit vorzüglicher drei- 
dimensionaler Grafik. Auch Abenteurer 
finden ein Betätigungsfeld mit Grafik- 
Adventures wie »Heroes of Karn«. Kon- 


struktive Arbeitspausen verkürzt auf 


angenehme Art eine Partie Bridge 
gegen den Joyce oder ein kleines Ping- 
Pong-Match. 

Sicher wird sich auf dem Software- 
Sektor in nächster Zukunft noch vieles 
für den Joyce tun, so daß sowohl im 
Bereich der Anwendersoftware, wie 
auch auf dem Spielesektor noch eini- 
ges zu erwarten ist. 

Von der einfachen Programmierung 
unter Basic, über höhere Programmier- 
sprachen, Problemlösungen, Textver- 
arbeitungs-Programmen bis hin zu 
Spielen, macht der Joyce überall mit, 
solange es keinen mehrfarbigen Bild- 
schirm erfordert. Die mitgelieferte Soft- 
ware ist sehr reichhaltig und leistungs- 
fähig, die Hardware nahezu vollständig. 

Der Joyce steht also für ein komplet- 
tes System, bei dem man in Anbetracht 
des Preises nur staunen kann. 

Jedem, der nicht unbedingt den neu- 
esten Stand der Technik, sprich 16/32 
Bit, sein eigen nennen muß, wird der 
Joyce eine preiswerte Hilfe zur Erledi- 
gung seiner täglichen Arbeiten sein. 
Denn preiswert heißt noch lange nicht 
billig! (Jörg Höhnerbach/ja) 





Joyce: mehr als 


Lernen Sie, mehr aus Ihrem 
Joyce herauszuholen als Texte. 
Setzen Sie ihn als vollwertigen 
Personal Computer ein. 

DD: die Werbung vom Joyce 
| immer als Textverarbeitungs- 
| system spricht, liegt die 
Annahme nichtfern, er seinur eine bes- 


sere Schreibmaschine mit Bildschirm. 
Diejenigen, die sich mit dem Betriebs- 





| system CP/M und dem Basic-Interpre- 


ter MBasic auskennen, haben sicher- 
lich schnell die über Textverarbeitung 
hinausgehenden Fähigkeiten erkannt. 
Allen, die sich in der Vergangenheit 
noch nicht mit dem Programmieren in 
Basic auseinandergesetzt haben, sol- 
len hier eine Einführung in das mitgelie- 
ferte Mallard-Basic 80 erfahren. 

Viele Probleme, ob einfacher oder 
komplexer Art, lassen sich im täglichen 


Gebrauch wesentlich schneller bewäl- 


tigen, wenn man sie mit einem Compu- 
ter bearbeitet. Dieses Programm kann 
man speichern und je nach Bedarf auf- 
rufen. Damit der Joyce in der Lage ist, 
Basic zu verstehen, muß zuerst der 
Interpreter geladen werden. Dazu 
schalten Sie Ihren Computer an und 


_ legen die Seite 2 der mitgelieferten Dis- 


ketten ein. Möchten Sie Basic nach 


| dem Arbeiten mit Loco-Script laden, 


verwenden Sie ebenfalls die Seite 2 der 
Systemdiskette und drücken gleichzei- 
tig die Tasten SHIFT, EXTRA und EXIT. 
In beiden Fällen erscheint nach kurzer 
Zeit eine Meldung über die CP/M Plus 
Version und das Bereitschaftszeichen 
»A>«, auch Prompt genannt, auf dem 
Bildschirm. Der Befehl »DIR« listet nun 
das Inhaltsverzeichnis der Diskette auf 
dem Bildschirm auf. Suchen Sie die 
Datei mit dem Namen BASICCOM. Tip- 
pen Sie nun »BASIC« ein, denn dies teilt 
dem System mit, daß Sie den Basic- 
Interpreter laden wollen. Nach einigen 
Sekunden meldet sich dann Mallard- 
Basic 80 mit einer Bemerkung über den 
freien Speicherplatz (»31597 free 


| bytes«). Nun steht der Arbeit mit Basic 


nichts mehr im Wege. 

Unter Basic kann man grundsätzlich 
alle Befehle direkt einzugeben. Der 
Computer bearbeitet sie dann nach 
Betätigen der RETURN-Taste sofort. Da 
der Vorteil eines Computers jedoch in 








der Zusammenfassung mehrerer Be- 
fehle zu einem Programm besteht, 
beginnen wir mit einem Progammbei-’ 
spiel. Sie können jedoch auch einmal’ 
probieren, die Befehle einzeln (ohne 
Zeilennummer) einzugeben. Beobach- 
ten Sie das Ergebnis. Tippen Sie nun’ 
das Programm aus Listing 1 ein; zuerst’ 
die Zeilennummer, dann den Befehl. 
Jeden Befehl (beispielsweise PRINT) 
können Sie auch mit kleinen Buchsta- 
ben eingeben, der Computer wandelt 
diesen dann selbständig in Großbuch- 
staben um. Die Reihenfolge der Pro- 
grammzeilen spielt dabei keine Rolle. 
Geben Sie die Zeilen einfach durchein-' 
ander ein. Mit dem Befehl »LIST« wird 
das bisher eingegebene Programm auf 
dem Bildschirm anzeigt. Und zwar sor- 
tiert Joyce sie numerisch aufsteigend. 

Unser Programm berechnet den’ 
Preis eines Artikels (Verkaufspreis 150 
Mark) ohne Mehrwertsteuer und die’ 
Mehrwertsteuer (14 Prozent), die im VK 
(Verkaufspreis) enthalten ist. 

Das Komando PRINT in Zeile 10 
bewirkt die Ausgabe des Textes zwi- 
schen den Anführungszeichen auf dem 
Bildschirm. Anders in Zeile 20: Hier 
wird zuerst der Wert des Terms hinter‘ 
der PRINT-Anweisung berechnet und 
dann ausgegeben. Gleiches geschieii 
in Zeile 30. Beim Aufstellen von: 
Berechnungstermen gilt die allgemein 
bekannte mathematische Hierarchie: 
Punktrechnung vor Strichrechnung. 
Also eventuelle Klammern nicht verges- 
sen! Zeile 40 teilt dem Computer mit, 
daß das Programm an dieser Stelle 
endet. Bei solch einfachen Program- 
men ist diese Zeile nicht unbedingt 
erforderlich, bei komplexeren Program- 
men jedoch unbedingt notwendig, wie: 
Sie später sehen. | 

Sie starten das Programm mit dem 
Befehl »RUN«, gefolgt von der Taste 
RETURN. Der Befehl RUN veranlaßt 
das Verlassen des direkten Eingabe- 
modus, um das im Speicher befindliche‘ 
Programm zu bearbeiten. Erscheint die 
Ausgabe »SYNTAX ERROR« auf dem 
Bildschirm, haben Sie einen Befehl 
falsch geschrieben. Bei den später ver- 
wendeten Programmen ist es auch 
möglich, daß Sie anstelle eines Kom- 
mas einen Doppelpunkt gesetzt haben. 
Um die entsprechende Zeile zu ändern, 
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PRINT"Mehrwertsteuer und Nettopreis a 
; dem Verkaufspreis" 

PRINT 158/1.14 

PRINT 150*B.14/1.14 














m _ Sa 2 $ 
hreibmaschine: 


chern von Zeichenketten bis zu 255 


geben sie den Befehl »EDIT Zeilennum- 
mer«, gefolgt von der RETURN-Taste, 
ein. Die zu korrigierende Zeile erscheint 
7” nun auf dem Monitor, und mit der DEL- 
" Taste lassen sich die betreffenden Zei- 
chen löschen, nachdem Sie den Cursor 
(Positionsanzeiger) mit den Pfeiltasten 
an die entsprechende Stelle gebracht 
haben. Nun können Sie die richtigen 
Zeichen einsetzen. 

Während der Programm-Bearbeitung 
werden sowohl der Text aus Zeile 10 
wie auch die berechneten Werte auf 
dem Bildschirm ausgegeben. Die 
Bemerkung »OK« besagt, daß das 
gesamte Programm vom Computer 
bearbeitet und für neue Eingaben oder 
eventuelle Änderungen bereit ist. Das 
erzielte Ergebnis ist aber in vielerlei Hin- 
sicht unbefriedigend. So können Sie 
beispielsweise nicht verschiedene Ver- 
kaufspreise bearbeiten, ohne direkt in 
das Programm eingreifen zu müssen. 
Wir wollen nun nach und nach Verbes- 
# serungen vornehmen. 
| Geben Sie bitte folgende zusätzliche 
Zeile ein: 

15 input vk 

Der INPUT-Befehl stoppt das Pro- 
aramm bei Zeile 15 und wartet auf eine 
Eingabe. Dies zeigt der Computer 
durch ein Fragezeichen am Bildschirm 
an. Der eingegebene Wert wird dann in 
der Variablen vk (Abkürzung für Ver- 
kaufspreis) gespeichert. Variablen sind 
Speicherplätze, auf die Sie später nach 
Bedarf zurückgreifen können. Sowohl 
Zahlen als auch Text sind zulässige Ein- 
'gabewerte für Variablen. Sie muß aber 
zur Aufnahme des entsprechenden 
Ausdrucks vorbereitet sein. Soll eine 
Ganzzahl (1, 2, 5, 456, 1025 und so 
weiter) gespeichert werden, ohne Spei- 
cherplatz zu vergeuden, muß hinter 
‚dem Variablennamen ein »%« stehen: 
zum Beispiel»vk%«. Bei diesen Integer- 
variablen wird weniger RAM-Bereich 
gebraucht. Dadurch verkürzt sich auch 
die Rechenzeit, was bei längeren Pro- 
‚orammen einen deutlichen Zeitgewinn 
zur Folge haben kann. Versucht man 
jedoch, eine Gleitkommazahl zu spei- 
‚chern (0,1, 0,022, etc.), gehen die 
Nachkommastellen verloren. Ein Varia- 
blenname ohne Zusatz steht immer für 
eine Gleitkommazahl. 

Der Zusatz »$« ermöglicht das Spei- 



















dem Verkaufspreis" 
15 INPUT vk 
28 PRINT vk/1.14 

35B PRINT vk#B.14/1.14 
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| PRINT"Mehrwertsteuer und Nettopreis a 


Zeichen (zum Beispiel »vk$«). So 
gespeicherte Zahlen stehen nicht ohne 
weiteres für Berechnungen zur Verfü- 
gung, da sie das Basic als Zeichenfolge 
betrachtet. Eine Spezialität des Mallard 
Basic 80 (und MBasic) ist die Fähigkeit, 
Zahlen mit doppelter Genauigkeit zu 
verarbeiten. Normalerweise werden 
Berechnungen nur auf sieben Stellen 
hinter dem Komma genau durchge- 
führt. Für spezielle Anwendungen steht 
durch die doppelte Genauigkeit ein Mit- 
tel zur Verfügung, auf 16 Stellen hinter 
dem Komma genau zu arbeiten. Dazu 
muß ein »#« hinter dem Variablenna- 
men stehen. (Achtung! doppelt genaue 
Berechnung erfordert doppelt genaue 
Ausgangswerte! Das belegt natürlich 
mehr Speicherplatz und verlängert die 
Rechenzeit.). 

Fassen wir zusammen; es gibt grund- 
sätzlich 4 Arten von Variablen: 

1. Ganzzahl Name% (Werte von 
-32768 bis +32767) 

2. Gleitkomma Name! (Werte von 
absolut 1.7E+38 bis 2.9E-37) 

3. Doppelte Genauigkeit Name # 
(wie 2. jedoch doppelt genau) 

4. Zeichenketten Name$ 

Die Bezeichnung der Variabeln läßt 
durchaus Anschaulichkeit zu, wie zum 
Beispiel »verkaufspreis«e oder »ein- 
nahme«. Jedoch sollten Sie sich, um 
Schreibarbeit zu sparen, so kurz wie 
möglich (aber dennoch verständlich) 
fassen. Beachten Sie: Das erste Zei- 
chen einer Variable muß ein Buchstabe 
sein! 

Zurück zu unserem Programm. In 
Zeile 20 und 30 ersetzen wir jetzt die 
Zahl 150 durch vk, da diese Variable 
den Verkaufspreis beinhaltet. Durch 
den Befehl »EDIT 20« erhalten Sie die 
Zeile 20, und die notwendige Änderung 
läßt sich schnell erledigen (erst 
löschen, dann ersetzen, schließlich mit 
RETURN bestätigen). Vergleichen Sie 
Ihre Eingaben mit Listing 2. 

Nun starten Sie das Programm mit 
»RUN«. Erscheint das Fragezeichen, 
geben Sie den Verkaufspreis ein. Wie 
Sie sehen, ist diese Programm-Version 
schon universeller (nämlich für unter- 

















18 PRINT"Mehrwertsteuer und Verkaufsprei | 
| s aus dem Nettopreis" 
28 INPUT"nettopreis:";znp 
| 5@ IF np=@ THEN 78 
408 mwst=np*d.14 
5d vk=enptmwst 
&8 PRINT"Verkaufspreis:";vk 
7@ PRINT"Mehrwertsteuer: ";mwst 


schiedliche Verkaufspreise) einsetz- 
bar. Doch stellen Sie sich vor, es sollte 
jemand mit dem Programm arbeiten, 
der es nicht kennt. Sicherlich wird ihn 
das Fragezeichen vor größere Ver- 
ständnisprobleme stellen. Ebenso stört 
es, das Programm jedesmal neu starten 
zu müssen. Ändern Sie also das Pro- 
gramm wie in Listing 3. 

Wie Sie sehen istes möglich, Textein- 
gaben und Variablen zu einer PRINT- 
Anweisung zusammenzufassen. 

Ein Semikolon trennt diese Textpas- 
sagen von den Variablen. Vergessen 
Sie dieses Zeichen, erfolgt ein »SYN- 
TAX ERROR«. Versuchen .Sie einmal, 
bei der INPUT-Anweisung, das Semiko- 
Ion gegen ein Komma auszutauschen 
und beachten Sie den Unterschied im 
Programmablauf: Das Fragezeichen 
wird unterdrückt. 

Wenn Sie diese Version starten, 
erhält die INPUT-Anweisung eine Erklä- 
rung des erwarteten Eingabewertes, 
die Ausgaben werden bezeichnet und 
Zeile 80 veranlaßt einen Neubeginn 
des Programms. Der Befehl »GOTO 
(Zeilennummer)« läßt das Programm zu 
der Zeile verzweigen, die die Zeilen- 
nummer festlegt. Die GOTO-Anweisung 
beeinflußt den gradlinigen Ablauf eines 
Programms. 

Wir benötigen nun die END- 
Anweisung, da das Programm sonst zu 
einer nicht vorhandenen Zeilennummer 
verzweigt. Und das hat eine Fehlermel- 
dung zur Folge. Wenn Sie nun für den 
Nettopreis eine O eingeben, unterbricht 
das Programm, da es zu Zeile 90 (hier 
steht die END-Anweisung) verzweigt. 
Mit der IF.....THEN-Anweisung lassen 
sich also Bedingungen abfragen (Istder 
Wert für np = 0, dann mach das, was 
hinter der THEN-Anweisung steht). Ist 
die IF-Bedingung nicht erfüllt, setzt das 
Programm in der nächsten Zeile den 
Ablauf fort. Die IF..THEN-Anweisung 
läßt sich noch durch IF... THEN...ELSE 
erweitern. Das Programm führt bei 
Erfüllung der Bedingung den Teil hinter 
der THEN-Anweisung durch, anson- 
sten die Anweisung hinter ELSE. Expe- 
rimentieren Sie ein wenig mit dem Pro- 
gramm. 

Mittlerweile haben Sie sicher einige 
Befehle zwischen die üblichen Zehner- 
schritte eingefügt. Der alte Abstand läßt 
sich jedoch ohne Schwierigkeiten wie- 
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18 PRINT"Berechnung der Mehrwertsteuer a 


us vk oder Netto fuer mehrere Artikel" 
28 INPUT"Wieviele Ärtikel:";sanzahl 

SO mwst.gesamt=B: vk.gesamt=B:np.gesamt=d 
48 FOR i=1 TO anzahl 

sag INPUT"Grundlage VK...->1 oder NP...-> 
2": auswahl 

608 IF auswahl=i1 THEN GOSUB 1288 

7/8 IF auswahl=2 THEN GOSUB 2BB4 

BB IF auswahl<>i AND auswahl<>2 THEN 58 


| 98 mwst. gesamt =mwst . gesamt +mwst 
| 188 np.gesamt=np. gesamt+np 
118 vk.gesamt=vk.gesamt+vk 


128 NEXT i 


1580 PRINT:PRINT:PRINT 


148 FRINT"Die Artikel haben einen Gesamt 
nettopreis von: "snp.gesamt;" DM" 

158 PRINT"Die anfallende Mehrwertsteuer 
betraegt: ";mwst.gesamt;" DM" 

1509 FRINT"Daraus ergibt sich ein Gesamtv 
erkaufspreis von: ";vk.gesamt;" DM" 


18 PRINT"Berechnung der Mehrwertsteuer a | 
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358 mwst.gesamt= re re gesamt=-B 
48 FOR i=1 TO anzahl | j 
s@ INPUT"Grundlage VK...->1 oder NP...-> 

2"s auswahl | 
68 IF auswahl <> 1 AND auswahl <>2 THEN 
pa 7] 

78 ON auswahl GOSUB 1888 ,2008 

88 mwst. gesamt=mwst . gesamt +mwst 

9B np. gesamt=np.gesamt+np 

1BO vk. re gesamt+vk 

118 NEXT 

128 PRINT: PRINT:PRINT 

138 PRINT"Die Artikel haben einen Gesamt 
nettopreis von: ";snp.gesamt;" DM" 

148 PRINT"Die anfallende Mehrwertsteuer 

betraegt: ";mwst.gesamt;" DM" 

i5@0 FRINT "Daraus ergibt sich ein besanmt 
verkaufspreis von:";svk.gesamt;" DM" 


| 178 END 


12808 INPUT"Verkaufspreis:";vk 


1010 mwst=vk#B.14/1.14 
np=vk-mwst 


2008 INPUT"Nettopreis:" inp 
must=enp#d.14 
vk=np+mwst 
RETURN 





Listing 4. ...ein immer besseres... 


derherstellen. Versuchen Sie aber 
nicht, jede einzelne Zeilennummer zu 


‚ändern, denn dies erledigt der Befehl 


RENUM. Dieser Befehl veranlaßt eine 
neue Zeilennumerierung, beginnend 
mit 10. Dabei werden alle GOTO- 
Befehle natürlich auch entsprechend 
geändert. Geben Sie »RENUM« ein und 
lassen dann das Programm neu aufli- 
sten. Wünschen Sie eine bestimmte 
Anfangszeile, so geben Sie diese hinter 
dem Befehl ein (beispielsweise 
»RENUM 100«). Ist ein anderer 
Abstand gewünscht, muß er durch ein 
Komma getrennt hinter der Startzeilen- 
nummer stehen. Der Befehl »RENUM 
200,40« hat zur Folge, daß Ihr Pro- 
gramm anschließend mit Zeile 200 
beginnt und einen Zeilenabstand von 
AO hat. 

Wenn Sie mit der Routine später noch 


 - einmal arbeiten möchten, sollten Sie es 


auf einer Diskette speichern. Der ent- 
sprechende Befehl lautet: »SAVE- 
"name”«. Der Name zwischen den 
Anführungszeichen darf maximal acht 
Zeichen vor, dann einen Punkt und drei 
Zeichen nach dem Punkt enthalten. 
Lassen Sie die Stellen hinter dem Punkt 
frei, fügt der Computer automatisch 
»BAS« für Basic an. Beachten Sie, daß 
Sie keinen Namen wählen, unter dem 
bereits ein Programm auf der Diskette 
gespeichert ist, ansonsten geht dieses 
verloren. Sollten Sie sich nicht sicher 
sein, listen Sie mit »DIR« das Inhaltsver- 
zeichnis der Diskette auf. Obwohl der 
DIR-Befehl eigentlich zu den CP/M- 
Befehlen zählt, steht er auch in Mallard- 
Basic zur Verfügung. 

Wollen Sie das Programm wieder in 


150 END 
RETURN 


RETURN 
Listing 5. 
den Speicher des Joyce laden, geben 
Sie den Befehl »LOAD ” name” «ein. Die 
Stellen nach dem Punkt können Sie ver- 
nachlässigen. 

Bisher haben wir die Ergebnisse 
immer unmittelbar vor der Ausgabe 
durch die PRINT-Anweisung berechnet. 
Dies bedeutet, daß die so ermittelten 
Werte nur für diese eine Ausgabe zur 
Verfügung stehen. 

Sicherlich sind die hier aufgeführten 
Problemstellungen recht simpel, doch 
geht es ja in erster Linie um das grund- 
sätzliche Verständnis der Progammie- 
rung. Machen Sie sich immer die erfor- 
derlichen Rechenschritte klar, wobei 
Sie sich bemühen sollten, einen Weg zu 
finden, die Ergebnisse vor der Ausgabe 
einem Speicherplatz (Variable) zuzu- 
weisen. Dies hat den Vorteil, ohne 
erneute Berechnung der Werte diese 
trotzdem zur Verfügung zu haben. 

Bevor Sie die neue Routine einge- 
ben, müssen Sie den Programmspei- 
cher des Joyce löschen. Die Anwei- 
sung SAVE hat nur den aktuellen Pro- 
grammstand gespeichert, ohne das 
Programm aus dem Speicher zu enitfer- 
nen. Dies ermöglicht Ihnen ein Zwi- 
schenspeichern Ihrer Programme, die 
häufig einen weitaus größeren Umfang 
als unsere Beispielprogramme haben 
werden. Wenn dann einmal die Daten im 
Hauptspeicher verlorengehen, haben 
Sie immer noch die gespeicherte Ver- 
sion auf Diskette, und der Schaden hält 
sich in Grenzen. 

Testen Sie Ihr Programm auf richtige 
Ausführung hin. Bedenken Sie, nicht 
nur Sie sollen das Programm richtig 
handhaben können, sondern auch 


INPUT"Verkaufspreis:";vk 
mwst=vk#Q9.14/1.14 
np=vk-mast 


INPUT"Nettopreis:";znp 
mwust=enp#d.14 
vk=nptmwst 





„Programm zur Mehrwertsteuerberechnung 


Fremdbenutzer. Ein gewisses Maß an 
Komfort ist grundsätzlich nicht zu ver- 
achten. | 

Nehmen wir nun an, Sie sollen für ver- 
schiedene Artikel, von denen Sie ein- 
mal den Netto-, einmal den Verkaufs- 
preis wissen, jeweils Nettopreis, Ver- 
kaufspreis und Mehrwertsteuer be- 
rechnen. Bei dieser Problemstellung 
kann sowohl das erste wie auch das 
zweite Programm zur Anwendung kom- 
men. Sie laden dazu also immer das 
jeweils erforderliche Programm in den 
Speicher, um die entsprechende 
Berechnung durchzuführen. Dies stän- 
dige Laden ist sicherlich nicht komforta- 
bel. Deshalb scheint es günstig, die 
Programme miteinander zu verbinden.‘ 
Wie schon erwähnt, gibt es außer 
GOTO weitere Anweisungen, in Pro- 
gramme eine Verzweigung einzubauen. 
Eine davon ist die GOSUB-Anweisung. 
Sie bewirkt eigentlich das gleiche wie 
»GOTO«. Nur erhält die Verzweigungs- 
zeile bei Verwendung von GOSUB eine 
Marke, zu der das Programm zurück- 
kehrt, sobald es auf den Befehl’ 
RETURN stößt. Das heißt, das Pro- 
gramm fährt in der Zeile nach der 
GOSUB-Anweisung fort, sobald in der 
Befehlsfolge nach der Verzweigungs- 
dresse ein RETURN erreicht wird. 
Diese Programmteile erhalten meist 
Zeilennummern, die mehr oder weniger’ 
weit unterhalb (größere Zeilennum- 
mern) des eigentlichen Programms lie- 
gen (nicht zwingend erforderlich, aber 
zweckmäßig). Deshalb spricht man 
auch von Unterprogrammen. Diese Art 
der Programmierung vermeidet, be- 
stimmte Befehlsfolgen doppelt oder 
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mehrfach in das Programm aufzuneh- 
men. Bei Bedarf verzweigt einfach eine 
GOSUB-Anweisung zu dem betreffen- 
den Unterprogramm. 
Gehen wir weiter zu Listing 4. Die 
Kopfzeile gibt wieder den Verwen- 
dungszweck des Programms auf dem 
Bildschirm aus. Darauf folgt,die Frage 
nach der gewünschten Berechnung 
(laste »1« oder »2« gedrückt?). Die IF- 
Abfragen stellen sicher, daß zu dem 
richtigen Unterprogramm verzweigt 
wird. Die dritte IF-Abfrage verhindert 
eine Fehleingabe durch eine Rückkehr 
zum Auswahlmenü. Beachten Sie den 
logischen Operator AND, der eine wei- 
tere IF-Abfrage überflüssig macht. 
Bedeutung: Wenn Auswahl ungleich 1 
und Auswahl ungleich 2, dann... Die 
Unterprogramme können hinter die 
END-Anweisung gesetzt werden. Nach 
dem Unterprogramm folgt die Ausgabe 
der berechneten Werte (im Unterpro- 
gramm erfolgt nur eine Zuweisung zu 
einer Variablen). Die REM- Anweisung 
hat auf das Programm keinerlei Auswir- 
kungen. Denn alles, was hinter einer 
REM-Anweisung steht, dient nur dazu, 
ein Programm übersichtlicher zu gestal- 
ten und zu kommentieren. Dasselbe gilt 
für die Zeilen, die nur einen Doppel- 
punkt enthalten. Mit diesen Zeilen 
‚schaffen Sie einen Abstand zu den 
nachfolgenden Zeilen, und das Pro- 
oramm läßt sich nach einer LIST- 
Anweisung leichter lesen. 
Probieren Sie das Programm einmal 
>. Vergessen Sie aber nicht, den 
Speicher Ihres Joyce vor der Eingabe 
mit »NE\WV« zu löschen. 
Durch eine Erweiterung des GOSUB- 
‚Befehls läßt sich das Programm verkür- 

an. Löschen Sie dazu die beiden 
ersten IF-Abfragen und fügen Sie hinter 
ger dritten IF-Abfrage eine Zeile mit dem 
Befehl »ON auswahl GOSUB 
7000,2000: ein. Er hat zur Folge, daß 
dei der Eingabe einer Eins zur Zeile 
2000 verzweigt wird, bei der Eingabe 
einer Zwei analog zur Zeile 2000. Die 
Liste der Unterprogrammstartzeilen 
nach dem GOSUB kann man noch 
erheblich erweitern. Dasselbe gilt auch 
für den Befehl GOTO, aber bedenken 
>, dort erfolgt keine automatische 
Rückkehr. 


























Verkaufspreise, Nettopreise und Mehr- 
wertsteuer mehrerer Artikel zu berech- 


BAAP 
EOMPUTERN 


Eine weitere Problemstellung ist, die 


"Wichtig für alle 
Schneider-Fans 


nen und aufzusummieren, um bei- 
spielsweise einen Kostenvoranschlag 
zu erstellen. Hierzu führen Sie die 
Berechnung für eine bestimmte Anzahl 
von Artikeln durch. Das Aufschreiben 
und Zusammenrechnen der Einzeler- 
gebnisse von Handist aufwendig. Basic 
stellt auch für dieses Problem einen 
Befehl (Mallard-Basic sogar zwei) zur 
Verfügung; eine 

1. FOR-TO-NEXT-Schleife oder 

2. WHILE-WEND-Schleife 

Der erste Befehl empfiehlt sich, wenn 
die Anzahl der zu berechnenden Artikel 
bereits zu Beginn der Programmaus- 
führung feststeht. Betrachten Sie 
Listing 5. Die Anzahl der Artikel wird 
durch eine INPUT-Anweisung abgefragt 
und anschließend einem Speicher 
zugewiesen. Die Speicher für die Sum- 
menbildung werden dann auf Null 
gesetzt, um zu verhindern, daß bei 
einem erneuten Durchlauf nach einer 
GOTO-Anweisung die Speicher noch 
durch alte Werte belegt sind. Speicher 
werden ansonsten nur nach folgenden 
Anweisungen auf Null gesetzt: RUN 
und LOAD. Im Programm beginnt nun 
die Schleife mit der Anweisung »FOR 
I=1 to anzahl«. Die Anweisung »NEXT I« 
schließt die Schleife ab. Die Befehle 
zwischen diesen Zeilen wiederholen 
sich nun so oft, bis der Speicher | den 
Wert von »anzahl« überschreitet. Dazu 
erhöht sich nach jedem Durchlauf | um 
den Wert 1. Anschließend setzt das 
Programm den Ablauf in der nächsten 
Zeile fort. Geben Sie auch dieses Pro- 
gramm ein und verfolgen Sie den Ablauf 
(vergessen Sie den Befehl NEW vor der 
Eingabe des Programms nicht). 

Der Schleifenzähler, hier die Variable 
I, ist auch direkt als Rechenvariable zu 
nutzen. 

Ist die Anzahl der Artikel zu Beginn 
des Programmablaufs nicht bekannt, 
verwendet man den zweiten Befehl. 
Ersetzen Sie »FOR..TO« durch »WHILE 
a$<>"j”« und die NEXT-Anweisung 
durch »WEND«. Fügen Sie unmittelbar 
vor »WEND« den Befehl »INPUT 
"Abbruch ?(j)”;a$« ein. Die Schleife 
wird nun so oft durchlaufen, bis die 
WHILE-Anweisung falsch ist. Solange 
das Zeichen in a$ ungleich »j« ist, wird 
die Schleife erneut bearbeitet. Möch- 
ten Sie diesen Vorgang abbrechen, 
geben Sie auf die Frage ” Abbruch ?(j) ” 
»j» ein. Auf jede andere Eingabe erfolgt 
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ein weiterer Durchlauf. Das »j» in der 
WHILE-Anweisung muß auf jeden Fallin 
Anführungszeichen stehen, da es sich 
ja um ein Zeichen handelt! 

Mit den bis hierher besprochenen 


Befehlen können Sie bereits eigene 


Programme schreiben. Stellen Sie sich 
selbst einige Aufgaben, zum Beispiel: 
Wieviel muß ein Artikel kosten, wenn er 
nach Abzug der \Vorsteuer eine 
Gewinnspanne von 35 Prozent haben 


soll? Oder, berechnen Sie die Fakultät Re 


einer Zahl (5!=1*2*3*4*5), 

Wächst der Umfang Ihrer Programme, 
sparen Sie sich das Eingeben der Zei- 
lennummern, wenn Sie zuerst den 
Befehl »AUTO« eingeben. Es erscheint 
tatsächlich die Zeilennummer 10 und 
der Cursor zeigt an, daß Sie nun mit der 
Eingabe beginnen können. Beim 
Abschicken der Zeile erscheint die 
nächste Zeilennummer im 10er- 
Abstand. Wünschen Sie eine andere 
Startzeile und einen anderen Zeilenab- 
stand, schreiben Sie dies hinter den 
Befehl. »AUTO 500,20« bewirkt den 
Beginn der Zählung bei Zeile 500 in 
20er-Schritten. 

Ein weiterer Befehl, der das Program- 
mieren vereinfacht, heißt »DELETE«. 
Dieser Befehl entfernt bestimmte Zei- 
len (Bereiche) aus Ihrem Programm 
»DELETE 20-200«, löscht die Zeilen 
20 bis einschließlich 200. 

Schließlich gibt es noch die Möglich- 
keit, alles was auf dem Bildschirm 
erscheint, auf dem Drucker zu doku- 
mentieren. Ersetzen Sie dazu nur die 
PRINT-Befehle durch »LPRINT« Das 
Erstellen von Listings erfolgt auf den 
Befehl »LLISTe. 

Die hier aufgeführten Befehle stellen 
nur einen kleinen Teil des Mallard- 
Basic-Befehlsvorrats dar und entspre- 
chen bis auf einige Ausnahmen 
(WHILE,WEND,ELSE) dem Standard- 
Basic. Die wohl wesentlichste Neue- 
rung ist die Dateiverwaltung mit »JET- 
SAM«, welche eine Bearbeitung mit 
Schlüsselwerten zuläßt. 

Ist Ihr Interesse geweckt und möch- 


ten Sie beginnen, sich eine Programm- 


bibliothek anzulegen, arbeiten Sie im 
Dialog mit dem Computer das mitgelie- 
ferte Basic-Handbuch durch. Lassen 
Sie sich dabei nie entmutigen, auch 
wenn dies manchmal zu einer abenteu- 
erlichen Schatzsuche ausartet. 

(Jörg Höhnerbach/ja) 
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Für den Joyce war schon kurz 
. nach seiner Einführung ein 


erfreulich reichhaltiges Soft- 


 wareangebot verfügbar. Unsere 


große Übersicht zeigt Ihnen, wel- 


che Programme es gibt. 


Bin Computer ist soviel wert, wie 
sein Softwareangebot. Nach die- 
ser Formel schneidet der Joyce 


sehr gutab. Bei professionellen Anwen- 
E: dungen, aber auch bei der Unterhal- 
E  tungssoftware, decken die Anbieter ein 


_ breites Spektrum ab. Unsere Übersicht 


erhebt keinen Anspruch auf Vollstän- 
digkeit. Alle Daten beruhen auf Anga- 


ru b- ben der Anbieter. 


(Matthias Rosin) 
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Adreßverwaltung 
Auftrags-Rechnungswesen 


Integriertes Paket 
Ti 


extverarbeitung 
Integriertes Paket 


Integriertes Paket 
Toolbox 


Fakturierung Fakturierung 


Fakturierung- Fakturierung 
Auftragsbearbeitung 

Fibu Finanzbuchhaltung 
Fibu-King Finanzbuchhaltung 
Fibu Star Plus Finanzbuchhaltung 
Finanz-Buchhaltung Finanzbuchhaltung 


Finanzbuchhaltung 
Finanzwunder-Mercator 


Integriertes F Paket 


Statistik 


Statistik Statistik 
TURBO-Lader-Grundpaket Programmbibliothek 


TURBO-Lader-Science Programmbibliothek 


ir 


Schach 
Geschicklichkeitsspiel 


8 8 BERHENBZUZBSE Za33 8 58 


555 3536533 


Fakkirlertig Adreß-Manager, Lager-Manager 
mit Daterwerwaltung und Kalkulation 


Turbo-Pascal erforderlich; zum Erstellen von 


Dateiverwaltungsprogrammen; Quelltext vorh. 
mit integrierter Kalkulation 


für technische Zeichnungen, Flußdiagramme, 
Karten, Schaubilder etc. 

für grafische Auswertungen jeder Art; mit 
Softwareschnittstelle zu Multipları 


für Rechnungen, Lieferscheine, Etiketten, 
Mahnungen, Kundendatei, Textverarbeitung 
etc. 


dBase Il-Anwenderprogramm mit dakumen- 
fiertern Quellcode 


Ei 


n Cobol geschrieben 
Kontenpläne, Einnahmen-/Überschußrech- 
nung, Journalschreibung etc. 


LI 


entspricht Datel-Star und Star-Mail 


entspricht Adresscomp, Lagdat und 
Faktur AM 


frei programmierbare Datelverwaltung mit 


ee Diätplan, Videoverwal- 
tung, Zins/Tilgungsplan, Fußballtabelle, 
Zi 


verknüpft die Textverarbeitung LocoSeript mit 
den Daten aus Datei-Star; Serienbrief- 
ausgabe; Fremddruckerausgabe 

englische Anleitung 


für Rundschreiben, Etiketten, Listendruck; 
max. 1400 Datensätze 

Routinen zur Dateiverwaltung im TURBO- 
Pascal-Quellcode 


mit MailMerge 


enthält Compiler, Linker, Assembler, Editor, 
Tools 
sehr schneller Pasca-Compiler 


Zinseszinsrechnung, Wechseldiskontierung, 
Abschreibung, Rentenrechnung, Kursrech- 
nung, Rentabilität 

maßgerechte Konstruktion in sechs Ebenen, 
Symbol-Bibliotheken, Plotter-/Druckerausgabe 
aan Balkendiagramm, 











Basic: 
übersichtlich 
wie Pascal 


Auch Ihr Basic-Interpreter kennt Marken und die 
REPEAT-UNTIL-Anweisung. Sie brauchen nur ein 
passendes Hilfsprogramm. 


| ennzeichnend für viele Basic-Programme ist 
Unübersichtlichkeit. Zeilennummern und Befehle 
wie GOTO und GOSUB verleiten jeden Programmie- 
rer dazu, mehr oder weniger sinnvolle Sprünge in eine Rou- 
fine einzufügen, wenn der Platz eng wird..Strukturierung ist 
für die meisten Basic-Fans ein Fremdwort. 

Gegenüber den ersten Basic-Interpretern kennt das 
Mallard- und das Locomotiv-Basic der Schneider-Computer 
allerdings schon viele neue strukturierte Anweisungen. 
Sesonders die WHILE-WEND-Schleife erlaubt, Programm- 
teile ohne Sprungbefehle zu verwenden. Es fehlt aber immer 
noch der von Pascal her beliebte Befehl REPEAT-UNTIL. Die- 
sen und Sprunganweisungen auf Marken - und nicht an eine 
bestimmte Zeilennummer - dürfen Sie mit unserem Prepro- 
zessor benutzen. 

Der Preprozessor bearbeitet Basic-Programme, die als 
ASCII-Datei vorliegen. Erzeugen können Sie solch eine Datei 
mit jedem Editor. Wordstar ist dazu genauso geeignet wie der 
Editor des Locombotiv- (beim CPC 6128, 664 und 464) und 
Mallard-Basic (beim Joyce). Beim Speichern auf Kassette 
oder Diskette müssen Sie nur an den SAVE-Befehl die Anwei- 
‚sung »,A« anhängen. Diese Maßnahme verwandelt nämlich 
alle Basic-Token wieder in ASCII-Zeichen und speichert das 








REPEAT 
INPUT "ZAHL EINGEBEN: ",X% 
ON X% GOTO @MARKE_1@, @MARKE_2@, 
GOSUB @PROMPT@: GOTO @LOOPENDE 


ece, 


ece, 


Programm als ASCII-Datei. Listing 1 zeigt als Beispiel ein 
unbehandeltes Programm, das mit einer REPEAT-UNTIL- 
Schleife und Marken arbeitet. Listing 2 zeigt die vom Prepro- 
zessor umgesetzte ablauffertige Routine. 

In Listing 1 sehen Sie, daß die Marken mit »+ @« beginnen 
und mit »@« enden. Beim Aufruf dieser Marken mit GOTO 
oder GOSUB muß zur Einleitung »@« statt »+« @« stehen (also 
»GOTO @Marke@«). Die Schlüsselworte »REPEAT« und 
»UNTIL < Bedingung > « müssen immer alleine in einer Zeile 
stehen. Ansonsten dürfen Sie Ihr Basic wie gewohnt benut- 
zen. 

Listing 3 beinhaltet den eigentlichen Preprozessor. Unter 
dem Mallard-Basic des Joyce wird das Programm einfach ein- 
gegeben und mit RUN gestartet. Es empfängt Sie die Frage 
nach der zu lesenden und der zu schreibenden Datei. Die zu 
lesende liegt im ASCII-Format vor. Nachdem der Preprozes- 
sor fertig ist, liegt unter dem Namen des »Outfile« das fertige 
Programm im ASCIl-Format auf dem Datenträger vor. Beim 
Laden wandelt sowohl der Mallard- wie auch der Locomotiv- 
Interpreter das Programm automatisch in eine lauffähige Ver- 
sion um. 

Besitzer des CPC 6128, 664 und 464 müssen im Listing 


‚3 die Zeilen aus Listing 4 ersetzen. Dann läuft auch bei ihnen 


das Programm korrekt. Da unser Preprozessor vollständig in 
Basic geschrieben ist, können Sie ihn jederzeit erweitern. 
Das Prinzip erkennt man leicht aus dem dokumentierten 
Listing. (A. Widmer/hg) 


Computer: Joyce, CPC 464/664/6128 
Kassette/Diskette 


läuft nach entsprechenden 
Änderungen auf allen 
Schneider-Computern 


Datenträger: 


Besonderes: 





eLOTTIe®@ 


*@MARKE_i@ PRINT "DIES IST MARKE 1":60TO @LOOPENDe 


"MARKE 2" 
".Y% 


*@eMARKE _2@ PRINT 
*eC@e REPEAT 
INPUT "ZAHL EINGEBEN: 
UNTIL Y%A=1 OR YA=2 
GOTO @eLODOPEND®e 
*#@LOTTI@ INPUT "LOTTI .. 
*@LDOPENDE REM --- LOOP-END 


END 
*@PROMPT@ PRINT "ZAHL IST GROESSER 5" 
_ RETURN 


REM --—- BEGIN DF REPEAT-LOOP 
INPUT "ZAHL EINGEBEN: ",„X% 
DENE BT Sid 
GOSUB 15 : GOTO 12 | 
PRINT "DIES IST MARKE 1":60T0 12 
PRINT "MARKE 2" :G0TO 12 
REM --—- BEGIN OF REPEAT-LOOP 
IT "ZAHL EINGEBEN: ",Y% 
=1 OR Y%=2) THEN 7 


INPUT "LOTTI .. 
12 REM --- LODP-END 
13 IF NOT (X%=9) THEN 1 


14 END 
15 PRINT "ZAHL IST GROESSER 5" 


1 

2 
3 
4 
= 
& 
7 
8 














"„SPRUCH$: IF SPRUCH$#<>"I WOT DI" THEN @LOTTIe@ 


:GOTO @LOOPEND®e 


Listing 1. Unbehandelt ähnelt das Quell-Programm einem 
Pascal-Listing 





"„SPRUCH$: IF SPRUCH$“>"I WOT DI" THEN 11 


Listing 2. Jetzt hat der Preprozessor aus dem »Fast-Pascal«- | 


Programm eine waschechte Basic-Routine gemacht 
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1@ REM 

12 REM PROGRAM MBASIC-PREPROCESSOR 

28 REM --- KONSTANTEN 

22 TRUE%=-1:FALSEX=® 

24 MAX INDEX%=588: MAXSTUFEY.=28 

38 REM --- VARIABLEN-FELDER 

32 DIM PZEILE$ (MAX INDEX%) „SBEGINN% (MAXST 


IDO REM ---——- 
1B2 REM MAIN 
REM 


118 ON ERROR GOTO 32088 


128 PRINT Fee BmaK 
122 PRINT"**# MB - PROGRAM-PREPROCES 
SOR (V1.1)": PRINT 


132 EINE FNEHF "Abferte : ourrrtes 
128 PRINT 


158 REM --- PROGRAMMTEXT EINLESEN 

152 GOSUB 19898 

148 REM --—- ZEILEN NUMMERIEREN 

142 GOSUB 380 

158 REM --—- MARKEN TAUSCHEN 

152 GODSUB 508 

i&ß REM -———- REPEAT „.. UNTIL - SCHLAUFEN 
TAUSCHEN 

142 GOSUB 888 

178 REM --- GEAENDERTEN PROGRAMMTEXT SPE 
ICHERN 


172 GOSUB 2988 

18@ PRINT CHR$ (27) 5; CHR$ (12) 
198 DON ERROR G0TO ® 

280 END 


REM 
382 REM PROCEDURE ZEILEN NUMMERIEREN 
384 REM 

31@ FRINT"ZEILEN WERDEN NUMMERIERT."; 
32@ FOR ZNUM%=1 TO TEXTENDE% 

330 PZEILE$ (ZNUM%) =MID$ (STR$ (ZNUM%.) „2) 
+" "4PZEILE$ (ZNUMZ) 

340 PRINT"."; 

35Q0 NEXT ZNUM% 

36@ PRINT 

37@ RETURN 

500 REM 

502 REM PROCEDURE MARKEN TAUSCHEN 


LE TBREN WERDEN GESUCHT UND GETA 
u 

528 FOR ZNUM%=1 TO TEXTENDE% 

358 MPOS1%=INSTR (PZEILE$ (ZNUM%) „"#*@") 
548 IF MPOS1%=B THEN 558 


55Q PRINT". "; 
560 1a. POS2A=INSTR (MPOS12+2,PZEILES (ZN 
570  _MARKE$=MID$ (PZEILE$ (ZNUM%) „MPOS1 
%+1 ,MPOS2%-MPOS1%) 

590’ PZEILE$ ( ZNUMX) =LEFT$ (PZEILES$ (ZNU 
M%) „MPOS1%-1)+MID$ (PZEILE$ (ZNUM%) „MPOS2% 
+1) 

598 FOR I%=1 TO TEXTENDEX 
«a0 MPOSZ=INSTR (PZEILE$(IX) „MARKE$ 
618 IF MPOS%=® THEN 648 
628 PZEILE$(I%)=LEFT$(PZEILE$ (1X 


) ,MPOSA-1) +MID$ (STR$ (ZNUM%) „2)+" "+MID$( 
PZEILE# (1%) „MPOS%+LEN (MARKE$) ) 


638 GOTO 488 
648 NEXT IA 

&5B NEXT ZNUM% 

&4B PRINT 

678 RETURN 

8BB REM 


882 REM PROCEDURE REPEAT .. UNTIL-SCHLE 
IFEN TAUSCHEN 

884 REM 

818 PRINT"REPEAT .. UNTIL -— SCHLEIFEN WE 
RDEN AUSGETAUSCHT."; 

828 FDR ZNUM%=1 TO TEXTENDE%A 

858 IF INSTR(PZEILE$ (ZNUM%) „"REPEAT")= 
B THEN 878 
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848 PRINT"."; 

er STUFE%X=STUFE%+1 : SBEGINNA (STUFE%) 
368 PZEILE$ ( ZNUM%) =MID$ (STR$ (ZNLUM%) „ 
2)+" REM --- BEGIN OF REPEAT-LOOP" 

Be UPOSA=INSTR (PZEILE$ (ZNUM%) „"UNTIL 


330 IF UPOS%=B THEN 728 

878 PZEILE$(ZNUM%X) =MID# (STR$ (ZNUM%), 
2)+" IF NOT ("+MID$ (PZEILE$ ( ZNUM%) „UPOS% 
+4)+") THEN"+STR$ (SBEGINN% (STUFEX%) ) 

788 STUFE%=STUFE#%-1 

9728 NEXT ZNUM% 

738 PRINT 

948 RETURN 

iBB8 REM 

1882 REM PROCEDURE PROGRAMMTEXT VON FIL 
E EINLESEN 

1084 REM 

1818 PRINT"PROGRAMMTEXT WIRD EINGELESEN. 


Be DPEN INFILE$ AS 1 'FUER MALLARD-BAS 


18358. WHILE NOT EDF(i) 

1048 TEX TENDEA=TEXTENDE%+1 

1858 PRINT"."3 

1858 LINE INPUT#1,FZEILE$(TEXTENDE%) 
1878 WEND 

1888 PRINT 

189798 CLOSE 1 

11@8 RETURN 

2BBQ8 REM 


2082 REM PROCEDURE GEAENDERTEN PROGRAMM 
TEXT AUFZEICHNEN 


2004 REM 
2010 PRINT"PROGRAMMTEXT WIRD AUFGEZEICHN 
2028 ° RESET 

2838 OPEN QUTFILE$ AS 1 

2848 FOR ZNUM%=1 TO TEXTENDE% 

2858 PRINT"."; 

2068 PRINT#1,PZEILE$ (ZNUM%) 

207@ NEXT ZNUMZ 

2088 PRINT 

2878 CLOSE 1 

2100 RETURN 

3208 REM 

3002 REM PROCEDURE FEHLER 

3224 REM 

3@1@ PRINT CHR$ (27) 5; CHR$ (12) 

3828 IF STUFE%4<® THEN FEHLER$="SCHLEIFEN 
NICHT KORREKT VERSCHACHTELT!":GOTO 3858 
3022 IF STUFEX>MAXSTUFE%X THEN FEHLER$="Z 
U VIELE VERSCHACHTELUNGEN! ":G0T0 3858 
303@ IF TEXTENDEX>MAXINDEX% THEN FEHLER$ 
="PROGRAMM ZU LANG!":G60TO 3858 

38480 FEHLER$="NUMMER "+STR$(ERR)+" IN ZE 
ILE "+STR$(ERL) 

3850 PRINT"*** FEHLER: "+FEHLER$+" — PRO 
GRAMM ABGEBROCHEN" 

3068 RESUME 198 


Listing 3. Mit »Preprozessor« wird Ihr Basic noch leistungs- 
stärker 










128 CLS 
| 188 CLS 

1828 OPENIN INFILE$ 

1858 WHILE NOT EOF 

1848 LINE INPUT#97,PZEILE$ (TEXTENDE%) 
1878 CLOSEIN 

2828 REM 

2838 OPENOUT OUTFILE$ 

2842 PRINT#7,PZEILE$ ( ZNUMX) 

20978 — 

| CLS 













Listing 4. Besitzer des CPC müssen nur wenige Zeilen 
ändern 
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Rund um 
C 16, : 
C64 und 
c 128 


Eine umfassende Übersicht 

der Hard- und Software für den € 16. 
Alle Druckerinterfaces, Floppy- 
Speeder und EPROMer für den C64. 


Insbesondere ausführliche 
Informationen über den C 128. 

















s Sie Happy-Computers noch nicht regelmäßig 
shen, sichern Sie sich jetzt Ihr persönliches Abon- 
ant und nutzen Sie die damit verbundenen Vorteile: 


Sie zahlen nur DM 66,- statt DM 72,- Einzelver- 
kaufspreis (Ausland auf Anfrage) 


Sie beziehen »Happy-Computer« ohne Mehr- 
kosten bequem per Post frei Haus. 


Sie erhalten Ihr »Happy-Computer« früher, als Sie 
es beim Zeitschriftenhändler kaufen könnten. 


Söckenlos informiert. 


Bern Sie mit nebenstehendem Gutschein ein kosten- 
B Probeheft an. lernen Sie »Happy-Computer«, 
große Heimcomputer-Magazin, völlig unverbind- 





ee. 


me möchte, 
uter« dann er game How per Past und bezahle pro es nur DM 64,— statt DM 


Sie versäumen keine Ausgabe und sind so stets B 


een. und Computer. 
Große Marktübersicht aller Sportspiele. 


Bastlers Glück. 
Viele wertvolle, hilfreiche Tips und Tricks, die 
beim Basteln zu beachten sind. 


Musik-Software 
für alle Schneider-CPCs. 


Zwei Programmpakete zur computergestützten 
Komposition im harten Vergleichstest. 


Brandakiuell von der CES in USA. 
Das Neueste für Amiga und Atari ST von einer der 


größten Computer-Messen der Welt. 


Die besten Spiele für den c64. 
Mit einer Sammlung der nützlichsten Pokes. 


Spiele-Teil. 
Neues für € 128 und Spectrum 128. Im Test ist der 
Sport-Knüller von Two-on-Two«. 


» 
Listing des Monats. 
»Let’s Bounce«, spannendes Geschicklichkeits- 
spiel mit einem Tennisball. 


FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY-COMPUTER 


ee ok Is Angobe kostenlos uk Pichessernplur: Visa mirdiksppiel: 
mir bitte die akt ste so r. mir ompurhere 
brauche ich nichts zu tun: Ich erhalte »Hapı 



































— Einzel- 
| a 
i 
“ 
Datum 1. Unterschrift E 
Mir ist bekannt, daß ich diese ars Fauna von 8 Tagen bei der Bestelladresse widerrufen kann | 
und bestätige dies durch nterschrift. Zur \Mahrung der Frist genügt die rechtzeitige Absendung 2 
des Widerrufs. En 
i Datum 2. Unterschrift = 3 ag 
> = 
Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und absenden an 7 N 
i Markt&Technik Verlog Aktiengesellscheft, Vertieb, Postkuch 1304, 8013 Hocr x ee 
a an a u N a re ne = a ut ER PER EI FT ET! NE 




















wi y. HOMECOMPUTERWORED COM 


Voll auto- 
matisierf 
Auch das CPI/M des Joyce bietet genügend Hilfs- 


programme, die dem Benutzer die Bedienung ver- 
einfachen. 


enn man viel mit Compilern arbeitet oder oft glei- 

che Programmabläufe benötigt, sparen SUBMIT- 

Dateien viel Arbeit. Solche Dateien kann man 
entweder mit Locoscript (ASCII-File) oder mit dem Texteditor 
»RPED« unter Basic anlegen. Um sich den Aufbau einer sol- 
chen Datei klarzumachen, schauen Sie sich die Datei »PRO- 
FILE« auf der Systemdiskette an. Der erste Befehl (»SET- 
DEF«) bewirkt, daß CP/M erst nach einem SUB-File sucht 
und dies aufruft, wenn sich die CP/M-Datei SUBMIT.COM auf 
der Diskette befindet. Findet CP/M kein SUB-File mit dem 
angegebenen Namen, sucht es nach einem COM-File. Das 
System beginnt die Suche beim M- und setzt sie im A- 
Laufwerk fort. PIP kopiert dann ein paar wichtige CP/M-Files 
in die RAM-Floppy. Um andere Files zu übertragen, geben 
Sie folgendes ein: 

»< Laufwerk x:=Laufwerk y:Programmname«. Um PIP zu 
verlassen, brauchen Sie nur »< « einzugeben. Wenn Sie bei- 
spielsweise für den C-Basic-Compiler eine SUB-Datei anle- 
gen wollen, die das File »prg.bas« compiliert, linkt und 
schließlich startet, tippen Sie folgendes in eine ASCII-Datei 
ein: 

CB80 prg 
LK80 prg 
Pr& 

Das wäre alles. Der Name der Datei muß die Extension 
‚SUB als Idendifikat enthalten Das File »SUBMIT.COM« muß 
entweder im Laufwerk M oder A stehen (SETDEF beachten). 
Eine Submitdatei läßt sich wie ein normales CP/M-Programm 
starten, also mit »programmname« und ENTER. 

(Michael Straßer/ja) 


Resetperfekt 


Vielleicht haben Sie sich auch schon einmal 
gewundert, warum der Reset des Joyce nicht 
immer den gewünschten Erfolg bringt. Hier ein 
Trick, der immer funktioniert. 








| legte Diskette automatisch (Autostart). Möchte man 
aus einem Programm (oder aus CP/M) eine Diskette 

booten, so geschieht dies durch Einlegen der betreffenden 
Diskette und gleichzeitiges Drücken der Tasten SHIFT, 
EXTRA und EXIT. Hat man jedoch eine falsche Diskette (ohne 
Systemprogramm) erwischt, quittiert Joyce dies mit dreimali- 
gem Piepsen und stellt seinen Dienst vorübergehendein. Bei 
einem erneuten Versuch, durch Drücken der drei Tasten die 
Diskette nochmals zu booten, passiert nichts. Es ist jedoch 
nicht erforderlich, den Computer für einen weiteren Versuch 
auszuschalten. Es genügt, das Drücken der drei Tasten über 
die Leertaste zu bestätigen. (Jörg Höhnerbach/ja) 


Du ach dem Anschalten bootet der Joyce die einge- 
| 








Na Logo! 


Außer dem Mallard-Basic gehört zum Lieferum- 
fang des PCW 8256/8512 die Programmiersprache 
Logo. Aber wer sich damit auseinandersetzt, steht 
bald vor »unlösbaren« Problemen. 


insteiger, die mit Logo erstmals konfrontiert sind, wer- 
den sich schwertun, beim Aufbau von Listen in Proze- 
duren, die richtigen Klammerausdrücke zu finden. Das 
Benutzerhandbuch zeigt folgendes Beispiel: 

repeat 4 [fd 60 rt 90] 

Bei dem Versuch, diesen Befehl auszuführen, reagiert 
Logo mit wenig Verständnis für das Eingabeformat. Obwohl 
die Klammerzeichen bei der Tastaturbelegung für Logo ver- 
fügbar sind, werden sie nicht entsprechend interpretiert. Das 
hat folgenden Grund: Bei der deutschen Tastaturbelegung 
muß man anstelle der eckigen Klammern die Buchstaben A’ 
und U benutzen. Obige Zeile muß also wie folgt aussehen: 
repeat 4 Äfd 60 rt 900 | 

Nach einiger Zeit gewöhnt man sich an das merkwürdige 
Aussehen der Befehlszeilen und kann dann vernünftig mit 
Logo arbeiten. Wer sich näher für Logo interessiert, dem sei 
das 2. Schneider Sonderheft von Happy-Computer (SH1/86) 
empfohlen. Dort gibt es eine Einführung in diese interessante 
Sprache. (Jörg Höhnerbach/ja) 





































Buchstaben- 
salat 


Man programmiert in Mallard-Basic und hat 
irgendwann den ganzen Bildschirm voller »Müll«. 
Wie Sie ihn wieder loswerden, steht aber nirgends 
im Handbuch - genausowenig, wie die Fähigkeit 
des Joyce, Hardcopies anzufertigen. 


iele Benutzer des Joyce haben sicher schon ver 

geblich nach zwei bestimmten Befehlen in dem 

umfangreichen Benutzerhandbuch gesucht. Sie 
dürfen Ihre Suche beenden: Mallard-Basic kennt keinen 
Befehl zum Bildschirmlöschen! 

Diese Funktion läßt sich aber durch die Eingabe der nach- 
folgenden Zeilen erzielen. 
10 el$=(chr$(27)+”E”)+(chr$(27)+”H") 
20 print c1$ 

Hat man die notwendigen Steuerzeichen in einer Pro- 
grammzeile definiert (hier Zeile 10), löscht man den Bild 
schirm durch den Befehl in Zeile 20. Es empfiehlt sich, die 
zwei Zeilen zu speichern und vor der Eingabe jedes neuen 
Programms in den Speicher zu laden. 

In vielen Situationen ist es wünschenswert, eine Hardcopy 
auszudrucken. Dies bedeutet eine Ausgabe des aktuellen 
Bildschirminhaltes Punkt für Punkt auf den Drucker. 

Durch gleichzeitiges Drücken der Tasten EXTRA und PIR 
ist dies jederzeit möglich. (Jörg Höhnerbach/ja] 


















































Das SOUND-Kommando, das 
beim CPC die Klangerzeugung 
steuert, ist einer der komplexe- 
sten Befehle dieses Computers. 
Wie arbeitet der Befehl, und wel- 
che Klangeffekte sind machbar? 
Anhand eines Beispiels erken- 
nen Sie die Zusammenhänge. 


erade da die Soundsteuerung 

beim Schneider eine ziemlich 

komplexe Angelegenheit ist, 
Dietet sie aber auch viele Möglichkei- 
zen. Angefangen bei einem einfachen 
#eoser erstrecken sich die Fähigkeiten 
zer CPCs über ein weites Feld. Das 
Sound-IC der Schneider-Computer 
“erfügt über drei Oszillatoren, die 
eweils einen Ton erzeugen. Der Befehl 
SOUND spricht jeden dieser Oszillato- 
zen separat an. Wir haben also insge- 
Samt drei Kanäle zur Verfügung. Diese 
end allerdings so zusammengeschal- 
= daß sich zwei Stereokanäle erge- 
Sen. Kanal A liegt links, C rechts und B 
= der Mitte der Hörerposition. Den 
Stereoeffekt erhalten Sie natürlich nicht 
2er den eingebauten Lautsprecher. 
22ezu müssen Sie Ihren Schneider an 
zen Kopfhörer-Ausgang Ihrer Stereo- 
zZ zrlage anschließen. 

Dem Computer muß bei Aufruf des 
SOUND-Befehls bekannt sein, auf wel- 
znen Kanal er den Ton ausgeben soll. 
= erste Angabe hinter dem Befehl 
=eht daher die Kanalnummer. Der 
Zooik zufolge sollten nun die Kanäle mit 
zen Nummern 1, 2 und 3 bezeichnet 
zen. Das ist aber nicht der Fall: Kanal A 
Zekommt zwar eine »1« und Kanal B 
Eine »2«. Wenn jedoch eine Ausgabe an 
“anal © gehen soll, ist eine »4« einzuge- 
zen. Dies hat etwas mit der binären 


















Codierung der Kanäle zu tun. Für uns 
ergibt sich daraus eine recht praktische 
Anwendung. Wenn wir nämlich zwei 
oder alle drei Kanalnummern addieren, 
erhalten wir als Ergebnis einen Klang 


auf allen angesprochenen Kanälen 
gleichzeitig. Beispielsweise spricht ein 
mit »SOUND 3,...e produzierter Ton 
sowohl Kanal A als auch Kanal B an. 
Wie kommt nun die Tonhöhe, also die 
Frequenz eines Tones, zustande? Auch 
wenn wir die genaue Frequenz kennen, 
ist etwas Rechenarbeit nötig, um den 
richtigen Wert zu ermitteln. Der Compu- 
ter erwartet die Tonhöhe nämlich in 
codierter Form. Nehmen wir an, wir 
wollten den Kammerton A ausgeben. 


Töne mit »Hertz« 


Dazu benötigen wir eine Frequenz 
von 440 Hertz (Hertz ist die physikali- 
sche Einheit für Schwingungen pro Se- 
kunde). Jetzt ist es aber nicht möglich, 
diese »440« als zweiten Parameter ein- 
zugeben, da der Computer mit anderen 
Frequenzbereichen arbeitet. Er errech- 
net nämlich die Frequenz aus seinem 
internen Systemtakt. Aus dieser Grund- 
schwingung von 62500 Hertz gewinnt 
er durch Teilung alle anderen benötig- 
ten Frequenzen. 





Um den richtigen Wert zu ermitteln, 
dividieren Sie also 62500 durch die 
gewünschte Frequenz (440 Hertz). So 
erhalten Sie die Zahl 142. Diese stellen 
Sie nun an die zweite Stelle im SOUND- 
Kommando. Nun ist es relativ mühsam, 
für jeden Ton die Tonhöhe nach diesem 
Prinzip zu bestimmen. Gott sei Dank 
hilft Ihnen die Tabelle im Anhang des 
Bedienerhandbuches Ihres Computers 
weiter. Dort finden Sie zu jeder Note in 
den gängigen Oktaven die notwen- 
digen Parameter. Wenn Sie jetzt also 
auf Kanal A den Kammerton A ausge- 
ben wollen, lautet das SOUND-Kom- 
mando bis jetzt: 

SOUND 1,142 

Als dritten Parameter fordert der 
SOUND-Befehl noch die Eingabe über 
die Dauer des Tones einzugeben und 
zwar in hundertstel Sekunden. Wenn 
Sie hier also »100« eingeben, beträgt 
die Tondauer eine ganze Sekunde. Dain 
der Regel meist aber die Notenwerte 
der Töne bekannt sind, empfiehlt sich, 
die Werte für bestimmte Notenlängen 
einmalig festzulegen und dann die ent- 
sprechenden Werte für andere Töne 
danach zu berechnen. 

Die bis jetzt beschriebenen Parame- 
ter sind Pflichtübungen bei der Eingabe 
jedes SOUND-Kommandos. Kommen 
wir jetzt zur Kür. Parameter Nummer 4 
regelt die Lautstärke: Sie können dabei 


SI 


zwischen Werten von O (stumm) bis 15 
(volle Lautstärke) wählen. Sie dürfen 
diese Angabe aber auch weglassen. 
Auch variable Lautstärkenverände- 
rungen im Tonverlauf sind machbar. 
Dazu verhilft der nächste Parameter. Er 
bestimmt, welches der 15 ENV-Re- 
_  gister (ENV steht für envelope=umhül- 
I len) für diesen Ton gilt. Sie können also 
ein An- und Abschwellen eines Tones in 
der Lautstärke definieren. Damit ist bei- 
spielsweise ein Vibrato-Effekt realisier- 
bar. Gerade mit »ENV«lohntessich, ein 
bißchen herumzuexperimentieren; die 
Variationen sind sehr vielfältig in ihren 
klanglichen Auswirkungen. 
"OR Das ENV-Kommando hat folgende 
‚Struktur: An erster Stelle steht die Num- 
mer der Lautstärkehüllkurve. Es folgen 
| maximal fünf Gruppen mit je drei Wer- 





. ten, wobei im ersten Wert die Anzahl der 
| Wiederholungen, im zweiten die Höhe 
| der Volumenänderung bei jeder Wie- 
| derholung - und zwar positiv oder nega- 
iv - und im dritten Wert der Abstand 
| 





Be, zwischen den einzelnen Wiederholun- 
| x gen, also die Länge der Pause, anzuge- 
ben ist. Wenn Sie beispielsweise defi- 
nieren: »ENV 1,15 ,-1,10,15,1,10«, bedeu- 
; tet dies, daß sich zuerst 15mal die Laut- 
> stärke um den Betrag 1 vermindert, 
He * bevor sie sich dann in 15 weiteren Stu- 
= fen wieder erhöht. Zwischen jeder 
Änderung wird eine Pause von der 
IE Länge einer zehntel Sekunde (10 x 
| 

| 

| 





R- 0,01 Sekunden) eingelegt. 
5 Laut und leise 


Be: ENV wirkt aber nicht allein, sondem 
IP dient nur als Unterprogramm zum 
SOUND-Befehl. Denn schließlich exi- 
stieren im ENV-Kommando ja keine 
Angaben über Tonhöhe oder Länge. 
Diese entnimmt der CPC bei der Klang- 
ausgabe dem SOUND-Befehl. Wenn 
Sie nun also »SOUND 1,142,300,15,1« 
eingeben, erklingt auf Kanal A der Kam- 
merton »A« mit einer Länge von drei 
Sekunden in der maximalen Lautstärke 
(Lautstärke 15) und Lautstärkefolge 
(ENV) 1. Tippen Sie jetzt einmal die bei- 
E- den Kommandos ein und hören Sie sich 
u: das Ergebnis an. Der Lautstärkewert 15 
stellt die Ausgangsbasis dar, ab der 
ke dann die Änderungen durch ENV wir- 
= ken. 
Kr. Nun läßt sich nicht nur die Lautstärke, 
= sondern auch die Tonhöhe nach diesem 


i xg > “ 





| Prinzip verändern. Damit kann man zum 
En Beispiel täuschend echt das Heulen 
Br einer Sirene imitieren. Aber auch musi- 


> kalisch ist der Effekt nützlich, denn ver- 
schiedene Töne lassen sich fließend 
B- > »ineinander ziehen«. Undein Tremolo ist 
überhaupt kein Problem. Dazu dient die 
Tonänderungsfolge »ENT« (envelope 
3 tone). Auch hier stehen Ihnen 15 Regi- 
 ster zur Verfügung, die Sie variieren 





können. Die Syntax ist ähnlich zu 
»ENV«. Bei »ENT« gibt der erste Wert 
wiederum das Register an - bezie- 
hungsweise die Nummer der Tonfolge, 
mit der gearbeitet werden soll - der 
zweite Wert die Höhe der Frequenzver- 
schiebung, der dritte die Anzahl der 
Wiederholungen und der vierte die Pau- 
sen zwischen den einzelnen Wiederho- 
lungen. 

Die Tonänderungsfolge rufen Sie auf, 
indem Sie die betreffende Nummer an 
sechster Stelle im SOUND-Befehl 
angeben. Bevor wir uns mit der 
genauen Wirkung dieses Zusatzbefeh- 
les anhand eines Beispiels befassen, 
soll nun noch kurz der letzte Parameter 
beschrieben werden. 

Die letzte Zahl hinter dem SOUND- 
Befehl sagt aus, ob und wie ein 
Rauscheffekt auftreten soll. Steht an 
dieser Stelle eine Null, unterbleibt das 
Rauschen; befindet sich hier eine Zahl 
zwischen 1 und 15, wird ein Rauschen 
unterschiedlicher Art zugefügt. Es han- 
delt sich dabei jedesmal um sogenann- 
tes »weißes Rauschen«, das je nach 
Eingabe einer Zahl dumpfer oder heller 
klingt. Dieser Effekt ist schwer zu 
beschreiben, deshalb sollten Sie ihn 
einmal ausprobieren und alle Zahlen 
durchspielen. So sehen Sie am besten, 
welcher Effekt bei jeder dieser Zahlen 
auftritt. Eine FOR-NEXT-Schleife kann 
Ihnen dies abnehmen, indem Sie zum 
Beispiel folgendes eingeben: 

10 FOR i=1 TO 15 
20 SOUND 1,100,100,10,0,0,i 
30 NEXT i 

Nach dem Start dieses kleinen Pro- 
gramms hören Sie einen Ton und dann 
nacheinander die verschiedenen Mög- 
lichkeiten des Rauschens. Wollen Sie 
das Rauschen allein hören, geben Sie 
anstelle der ersten »100« eine »O« ein. 
Zur besseren Identifikation der Rausch- 
klänge können Sie sich innerhalb der 
Schleife den aktuellen Rauschwert mit 
»PRINT i« ausgeben lassen. 

Nachdem Sie nun die Syntax des 
SOUND-Kommandos kennen und auch 
die Wirkung eines zugeschalteten 
»ENV« oder »ENT« im Griff haben, soll- 
ten Sie eigentlich in der Lage sein, ein 
kleines Programm mit diesen Befehlen 
zu schreiben. Programmieren wir jetzt 
einen kleinen Sound-Gag, der einen 
startenden und wegfliegenden Hub- 
schrauber simuliert. Ein startender 
Hubschrauber läßt zunächst einen 
langsam laufenden Motor hören, der 
dann immer mehr beschleunigt, bis er 
startet, in der Ferne verschwindet. Wir 
versuchen also dies auch mit Hilfe der 
SOUND-Kommandos nachzuvollzie- 
hen. 

10 ENT 1,200,-2,10 
20 SOUND 1,500,2000,15,1,1,3 
30 ENV 2,1, -1,12 





40 FOR i=14.9 TO 0 STEP -1 
50 SOUND 1,250,10,INT(i)+1,2,5 
60 SOUND 1,0,2 
70 NEXT i 

Wir wollen hier einmal zwei Phasen 
realisieren. Zunächst das Starten. Der 
Motor läuft langsam hoch. Dann fliegt’ 
der Hubschrauber und entfernt sich 
langsam. Beide Geräusche müssen Sie 
daher mit relativ komplexen Lautstärke- 
und Tonfolgen programmieren. Den 
ersten Teil verwirklicht ENT und ein kon- 
stant zugeschaltetes Rauschen. Der 
zweite Teil bedarf der Definition einer 
Lautstärkehüllkurve (entfernen durch‘ 
leiser werden) und einer gleichzeitigen, 
unterbrochenen Ausgabe des Tones, 
um die Rotorgeräusche zu erzeugen. 
Mit Hilfe der ENT-Folge in Zeile 10 erhö- 
hen Sie in 200 Schritten langsam die’ 
Tonhöhe. Das zugemischte Rauschen‘ 
in Zeile 20 (letzter Parameter) sorgt für 
den maschinenhaften Klang. 


 Aufunddavon 


Das Fliegen der Maschine stellt sich’ 
als eine relativ trickreiche Angelegen- 
heit heraus. Zum einen vermindern Sie 
ganz langsam in einer FOR-NEXT- 
Schleife die Lautstärke. Die Schrittweite 
ist der Einfachheit halber gering‘ 
gewählt. Die Änderungen der Laut- 
stärke sollen dabei in möglichst kleinen 
Schritten erfolgen. Es sind 150 dazu’ 
vorgesehen. Nun kann allerdings der: 
Gesamtumfang der Änderung 15 Werte 
nicht übersteigen, denn die Lautstärke‘ 
erlaubt janur Werte zwischen O und 195. 
Während dieser 150 Schritte führt der 
Computer nun permanent SOUND-Be- 
fehle aus und benutzt dabei die zweite 
Lautstärkehüllkurve, die in Zeile 30 defi- 
niert ist. Sie stellt ein nur kurzes Hüllkur- 
venfragment dar. Die Lautstärke ver- 
mindert sich danach um 1 undanschlie- 
Bend wird jeweils eine Pause von 12° 
hundertstel Sekunden eingefügt. Der 
SOUND-Befehl in Zeile 50 gibt nun den 
Grundton (»250«) mit einem hellen’ 
Rauschen (letzter Parameter) unter die- 
ser Hüllkurve aus. »ENV« vermindert’ 
also die Lautstärke bei jeder Tonaus- 
gabe um den Betrag 1. Durch die gleich- 
zeitige Lautstärkeänderung im ersten’ 
SOUND-Befehl und das zweite SOUND- 
Kommando, das für Ruhe sorgt, ent- 
steht ein durchbrochener Klang, der 
einem Hubschrauberknattern sehr ähn- 
lich ist. 

Die angegebenen Parameter erga- 
ben sich aus einigen Probeläufen. Es 
fällt Ihnen aber nun sicher nicht mehr’ 
schwer, zu noch besseren Ergebola 
sen zu gelangen. 

Probieren Sie es doch einmal aus und 

.. einen guten Flug! 
(Carsten Straush/ja) 
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Farb-Spielereien auf dem 




























>hl Computer in erster Linie 
ernsthafte Anwendungen 
ckelt wurden, lernt man sie 
im besten spielerisch kennen. 
üer finden Sie einige Anregun- 
gen aus dem Bereich der Grafik. 


as Staunen ist oft groß, wenn 
3 man sieht, was sich Software- 
firmen einfallen lassen. Bei 
nigen Softwaretricks fragt man sich: 
3 ist das möglich? Wie gelangt man 
nn die Leistungsgrenze seines Compu- 
5? Ganz einfach: Spielerisch und mit 


‚Beim Schneider bieten sich zwei sehr 
Beressante Arbeitsfelder an. Die Kom- 
nation von Text und Grafik durch den 
schauflösenden Grafikspeicher und 
e Farbgebung. Besonders letzterer 
#etet durch zahlreiche Varianten unge- 
ante Ergebnisse. Beginnen wir beiden 
zundlagen. Die Farbe wird beim CPC 
ärekt definiert. Es ist also nicht fest- 
Blegt, daß 6 beispielsweise rot sein 
u und damit bei »PEN 6« die Schrift- 
De auf rot umgeschaltet wird, wie 
es bei anderen Computern der Fall ist. 
eimehr sind zwischen die Farbnum- 
er und die dann gesetzte Schrift- 
eziehungsweise Hintergrundfarbe 
ine Reihe von Farbregistern, die soge- 
ten INK-Register, eingeschaltet. 
EN 6« greift also auf den Inhalt des 
bregisters 6 und die Farbe, die dort 
t, zurück. Hierbei ist allerdings 
Bch noch eines zu beachten. 
Der Schneider verfügt bekannterma- 
en über drei verschiedene Darstel- 
asmodi, Modus O (mit 20 Zeichen 
0 Zeile), Modus 1 (mit 40 Zeichen pro 
3) und Modus 2 (den hochauflösen- 
ı Modus mit 80 Zeichen). Nur bei 






















weisung von Erfolg gekrönt. Der 
wendet nämlich auf alle Farbwerte 
e Modulo-Funktion an. Im Modus 0 
erden alle Farbwerte MOD 16 genom- 
en, im Modus 1 mit MOD 4 und im 
fodus 2 mitMOD 2. Machen wir unsan 
sem Beispiel klar, was hier passiert. 
> Modulo-Funktion bewirkt eine Divi- 
durch den nachfolgenden Wert, 
obei der Rest als Funktionsergebnis 
geben wird. »11 MOD 4« ergibt bei- 
selsweise den Wert 3. Damit verste- 
en Sie nun auch, wieso der GPC trotz 
#schiedener Farbangaben manchmal 





„ie 


>dus O wäre die oben angegebene: 


egal, ob Sie im Bildschirmmodus 1 PEN 
1, PEN 5, PEN 9 oder PEN 13 einge- 
ben. In jedem Fall wird als Schriftfarbe 
der Farbwert genommen, der in Regi- 
ster 1 gespeichert ist. Alle diese Werte 
haben nämlich als Rückgabe der Modu- 
lo-Funktion das Ergebnis 1. Probieren 
Sie es aus! Im Bildschirm-Modus 2 
kehrt ein Farbwert sogar alle zwei Farb- 
angaben wieder. PEN 1 entspricht also 
PEN 3, PEN 5 etc. Daraus resultiert 
auch eine Unzulänglichkeit des Com- 
puters, die den Anfänger oft zur Ver- 
zweiflung treibt. Wenn Sie im Modus 2 
die Pen-Farbe 2 auswählen, so hängt 
sich der Schneider scheinbar auf. Kein 
ESC kann ihn in die Welt der Lebenden 
zurückbringen. Daaber 2MOD2 gleich 
O ist, hat der CPC für die Vordergrund- 
farbe dieselbe Farbe wie für den Hinter- 
grund ausgewählt. 


Der schwarze Schirm 


Nun wissen wir, wie die Farbgebung 
beim Schneider funktioniert. Diese Art 
der Farbdefinition bietet eine ganze 
Reihe von Effekten, die man mit einer 
direkten Farbdefinition nicht erreichen 
könnte. Erstes Beispiel: Das Auftasten 
von Farben. Dieser Trick bietet die 
Lösung für ein Problem, das des öfteren 
bei der Titelgestaltung auftaucht. Die 
Titelausgabe in Basic braucht meist 
einige Zeit. Nun sieht es aber nicht 
besonders professionell aus, wenn man 
ein Titelbild oder einen Spielschirm bei 
Action-Spielen Stück für Stück aufbaut. 
Eine Lösung dieses Problems ist mit 
Hilfe der INK-Register möglich. Man 
setzt zunächst alle »INKs« auf 0, also 
schwarz. Dann schreibt man den Bild- 
schirmtitel wie gewohnt. Als dritter 
Schritt werden dann die einzelnen Farb- 
register mit den darzustellenden Far- 
ben belegt. Ergebnis: Zunächst bleibt 
der Schirm dunkel. Die Darstellung 
schwarz auf schwarz sieht man ja nicht. 
Nach einer Kunstpause wechselt der 
Schirm seine Farbe und auf einen 
Schlag erscheint das Titelbild. Diesen 
Vorgang zeigt Ihnen das folgende 
Listing: 

10 INK 0,0:INK 1,0:INK 2,0: 
INK 3,0 

20 PEN 1:PRINT’DIES IST MIT 
PEN 1 GESCHRIEBEN” 

30 PEN 2:PRINT"UND DIES MIT 





Schneider 


"mit derselben Farbe schreibt. Es ist 


PEN 2” 

40 PEN 3:PRINT”JETZT NOCH EINE 
ZEILE IN PEN 3” 

50 FOR i=1 TO 200:NEXT 

60 INK 1,24:INK 2,6:INK 3,11 

Dieselbe Technik können Sie natür- 
lich auch verwenden, um in einem erklä- 
renden Text Worte zu unterstreichen. 
Tippen Sie dazu einmal 
10 INK 0,0:INK 1,24:INK 2,0:PAPER 

OÖ:PEN 1 
20 PRINT”In einem ganz normalen 
Erklaerungstext ";:PAPER 
2:PRINT”"soll diese Stelle 
"::PAPER O:PRINT "besonders 
hervorgehoben werden.” 
30 PRINT”So sieht der Text im 
Normalfall aus” 
40 FOR i=1 TO 300:NEXT 
50-INK 2,6 
60 PRINT”Und jetzt mit der 
hervorgehobenen Stelle!” 
ein. 

Es geht sogar noch kürzer. Mit einem 
Trick können Sie innerhalb eines Zei- 
chens die Farbe umschalten. Wie Sie 
vielleicht wissen, verfügt der CPC über 


r 


einen sogenannten Transparent- 
Modus. In dieser Darstellungsart wer- 
den die Zeichen übereinander 


geschrieben. Der CPC legt jedes Zei- 
chen als hochauflösendes Grafiksym- 
bol in einer Matrix aus 8 mal 8 Bildpunk- 
ten im Grafikspeicher ab. Für ein A wird 
kein Code gespeichert, sondern die 
Bildpunkte, die dem Buchstaben ent- 
sprechen, im Grafikspeicher mit der 
Schriftfarbe gesetzt. Analog dazu wird 
der durch das Zeichen nicht belegte 
freie Raum mit der Hintergrundfarbe 
belegt. Diesen letzten Teil der Opera- 
tion, das Setzen der Hintergrundfarbe, 
können Sie durch Einschalten des 
Transparent-Modus verhindern. Es 
werden dann nur noch die durch das 
Zeichen selbst belegten Bildpunkte 
gesetzt. Die Umschaltung zwischen 
Normal- und Transparent-Modus ge- 
schieht dabei mit »PRINT CHR$(22)+ 
CHR$(1)«. »PRINT CHR$(22)+CHR$ 
(O)« schaltet wieder zurück. Probieren 
Sie einmal, nach der Eingabe von 
»CHR$(22)« den Bildschirm mit DEL zu 
löschen. Es funktioniert nicht mehr. Der 
Grund dafür ist einfach. DEL schreibt 
die zu löschende Zeichenposition mit 
einem Quadrat von der Größe eines Zei- 
chens mit Hintergrundfarbe voll. Und 
genau dieses Beschreiben mit der Hin- 
tergrundfarbe funktioniert janicht mehr. 
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Schauen Sie sich einmal an, wie der 
Transparent-Modus wirkt. Ein einfa- 
ches PRINT-Kommando genügt dazu: 
»PRINT CHR$(22)e. Wenn Sie 
»PRINT"AAAAAA<6 mal CTRL-H> 
<6 mal SHIFT O> ”« eintippen, wer- 
den die beiden Zeichen überlagert. Sie 
erhalten unterstrichene Buchstaben. 
Auf diese Weise können Sie sich einen 
neuen Zeichensatz definieren. Dane- 


_ Unterstreichen 
in Basic 


ben ist es natürlich möglich, in einem 
Zeichen mit mehr als zwei Farben zu 
arbeiten. Man überlagert einfach die 
dritte und jede folgende Farbe. Wenn 
Sie beispielsweise zwischen »AAA« 
und dem Strich die Farbe umschalten, 
wird der Strich in einer anderen Farbe 
dargestellt. Die gelben »As« werden rot 
unterstrichen. 

10 INK 0,0:INK 1,24:INK 2,6 

20 PEN 1:PAPER 0:LOCATE 1,10 

30 PRINT"”AAAAAA” 

40 PEN 2:LOCATE 1,10 

50 PRINT”<6 mal SHIFT 0>* 

Wie können wir aber diese Eigen- 
schaft des CPC für unsere Farbum- 
schaltung innerhalb eines Zeichens 
benutzen? Stellen Sie sich vor, Sie 
überschreiben ein Zeichen mit einem 
neuen, wobei die Schriftfarbe des 
neuen Symbols mit der Hintergrund- 
farbe des alten übereinstimmt. Die 
Schriftfarbe des neuen Zeichens ent- 
nehmen Sie dabei einem neuen Farb- 
Register. Sie setzen also mehrere INKs 
auf denselben Wert. Bleiben Sie dabei 
im Normal-Modus, so wird nur das neue 
Zeichen dargestellt. Beim Transparent- 
Modus hingegen bleibt der Rest des 
alten Zeichens erhalten, der nicht von 
dem neuen überdeckt wird. Nach der 
Ausgabe sehen Sie zunächst das alte 
Zeichen, soweit es nicht überschrieben 
wurde. Durch Umdefinition des Farb- 
Registers, aus dem die Schriftfarbe 
kam, können Sie dann das neue überla- 
gerte Zeichen einblenden. 

Ein Beispiel soll dies illustrieren. 
Wenn Sie im Anhang Ihres Benutzer- 
handbuches nachschlagen, finden Sie 
dort als Zeichen 239 ein Raumschiff- 
ähnliches Gebilde. In der untersten 
Bildpunktreihe sind zwei Öffnungen 
ausgespart, die man mit ein wenig 
Phantasie als Triebwerke definieren 
kann. Allerdings scheint sich die Rakete 
in Ruhestellung zu befinden. Wir wollen 
nun dieses Manko beheben. Dazu defi- 
nieren wir mit »Symbol« ein neues Zei- 
chen. »SYMBOL 240,0,0,0,0,0,0,0, 
&Xx00101000« belegt die gesamte Flä- 
che des Zeichens mit der Hintergrund- 
farbe. Nur zwei Punkte sind davon aus- 


genommen, die Triebwerköffnungen. 
Wir wollen nun dieses neue Zeichen 
und Symbol Nummer 239 übereinan- 
derdrucken. Zuerst wird dabei Zeichen 
239 ausgegeben. Die Überlagerung 
durch das Triebwerkfeuer folgt dann im 
zweiten Schritt. 
10 MODE 0:INK 0,0:INK 1,11:INK 
2,0:PAPER O:PEN 1 
20 PRINT CHR$(22) 
30 SYMBOL 
240,0,0,0,0,0,0,0,&<00101000 
40 CLS:LOCATE 20,10:PRINT CHR$ 
(239) 
50 PEN 2:LOCATE 20,10:PRINT 
CHR$ (240) 
60 FOR i=1 TO 800:NEXT 
70 INK 2,6,24 

Durch Setzen des Farbregisters 2 auf 
O ist die Vordergrundfarbe von Zeichen 
240 gleich der Hintergrundfarbe von 
Zeichen 239. Erst die Umdefinition der 
Farbe in Programmzeile 70 sorgt dafür, 
daß das Triebwerk gestartet wird. Es 
wird durch INK 2,0 wieder abgeschal- 
tet. Man kann diesen Effekt allerdings 
auch in der umgekehrten Richtung ein- 
setzen, um beispielsweise eine Öff- 
nung zu schaffen, wo vorher keine war. 
Dies ist zum Beispiel bei Adventures oft 
der Fall. Durch eine Eingabe soll sich 
eine Tür im bereits dargestellten Spiel- 
bildschirm öffnen. Mit der Farbumdefi- 
nition ist dies leicht zu lösen. Man defi- 
niert wiederum zwei »INKs« auf die- 
selbe Farbe. Mit der einen »INK« wird 
dann die Tür, mit der anderen die Wand 
beschrieben. Ein einfaches INK- 
Kommando reicht aus, um auf Knopf- 
druck den Spielbildschirm zu verän- 
dern. »Elektro Freddy« arbeitet bei- 
spielsweise mit diesem Trick. 

Man kann die Farbumdefinition aller- 
dings nicht nur bei der Zeichenaus- 
gabe, sondern auch im Bereich der 
hochauflösenden Grafik einsetzen. 
Besonders wichtig ist dies, wenn man 
mit dem TAG-Befehl arbeitet. Diese 
Anweisung erlaubt, die Zeichenaus- 
gabe an der Stelle zu positionieren, an 
der sich der Grafikcursor befindet. 
Dabei stimmt die oberste linke Ecke des 
Ausgabezeichens mit der Position des 
Grafikcursors überein. So kann man ein 
Objekt von der Größe eines Zeichens 
kontinuierlich über den Bildschirm 
bewegen. Wir wollen dies einmal 
anhand unserer Rakete demonstrieren. 
10 CLS:FOR i=600 TO 1 STEP-2:TAG: 

CALL&BD19:MOVE 1,250: 
PRINT CHR$(239) ; :NEXT 

Mit dieser Zeile wird das Raumschiff- 
Zeichen über den Bildschirm bewegt. 
Der MOVER-Befehl bewegt den Grafik- 
cursor innerhalb der FOR-TO-Schleife 
langsam nach links und gibt durch den 
nachfolgenden PRINT-Befehl an dieser 
Stelle das Raumschiff-Zeichen aus. Das 
zwischengeschaltete CALL-Komman- 
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do hat dabei eine Synchronisations- 
funktion. Der Bildschirm wird im Monitor 
dadurch aufgebaut, daß ein Elektronen- 
strahl über die gesamte Bildschirmflä 
che gelenkt wird, wobei er je nach Aus- 
lenkungswinkel und Auftastung die ein- 
zelnen Farbpunkte auf der Bildschirm- 
oberfläche zum Aufleuchten bringt. De 
Strahl wandert dabei zeilenweise in 
jeder fünfzigstel Sekunde einmal von 
oben links nach unten rechts. Danach 
wird der Strahl ausgetastet und läuft 
»blinde zu seinem Ausgangspunkt 
zurück. Ein Zeichen wird beim CPC 
Bildpunkt für Bildpunkt im Grafikspei- 
cher abgelegt. Nun kann es vorkom 
men, daß der Strahl gerade in dem 
Moment Bildschirmpunkte darstellen 
will, in dem diese vom Computer farb- 
lich geändert werden. Ergebnis: Der 
eine Teil des Zeichens wird noch in de 
alten Position dargestellt; der Rest abe 
schon in der neuen. Unser Zeichen 
wird also auseinandergerissen. Wenn 
Sie den CALL-Befehl weglassen, wer- 
den Sie sehen, daß das Oberteil de 
Rakete etwas verschoben gegen das 
Unterteil dargestellt wird. Der CALL 
Aufruf vermeidet diese Probleme. Er 
hält die nachfolgenden Operationer 
solange an, bis der Strahl zurückläuft. 

Kehren wir zurück zur Farbumdefini- 
tion im Bereich der hochauflösenden 
Grafik. Obwohl Sie mit TAG ein Zeichen 
in Abhängigkeit von der Grafikcursor- 
position bewegen können, wird bei der 
HiRes-Grafik auch in diesem Fall die 
Farbe des Grafikcursors zum Setzen 
der einzelnen Bildpunkte verwendet 
Es hat daher keinen Sinn, wenn Sie 
versuchen, mit »PEN« und »PAPER 
irgendwelche Effekte zu erzielen. Da 
der Transparent-Modus in Zusammen: 
hang mit »TAG« nicht funktioniert, ist 
dies auch kein Manko. Das Aufleuchte: 
des Triebwerkfeuers können Sie auc 
durch ein »PLOT« realisieren. Dazu müs- 
sen wir uns allerdings ein wenig mit der 
Bildschirm-Arithmetik beschäftigen 


32,1 PLOT = 


Wenn Sie mit x,y die Position bezeic 
nen, an der sich der aktuelle Grafikcur- 
sor befindet, so können Sie die Position 
der Triebwerkdüsen relativ einfach 
bestimmen. 

Im Modus O werden jeweils vier Bild- 
punkte in der Horizontalen mit dersel- 
ben Farbe belegt. Unsere Zeichenma- 
trix wird also in diesem Bildschirm- 
Modus auf je vier Bildschirmpunkte in 
der Horizontalen gedehnt. Je vier 
nebeneinanderliegende Bildpunkte 
erhalten denselben Farbwert. Bei unse- 
rer Rakete sind die ersten beiden 
Punkte unseres Zeichens in der unter 
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"sten Bildschirmlinie gesetzt (Verglei- 
chen Sie dazu noch einmal die Zeichen- 
matrix im Anhang Ihres Handbuchs). 
Die Bildpunkte X bis X+7 in dieser 
Süldschirmlinie werden also bei der Aus- 
abe dieses Zeichen gesetzt. Wenn Sie 
nun 8 zu unserem X-Wert addieren, so 
treffen Sie genau auf den durch das 
Triebwerk freien dritten Punkt von links. 


8 Punkte entfernt 


Die zweite Triebwerköffnung liegt dann 
wieder acht Bildpunkte weiter in der 
"osition X+16. Nach der X-Verschie- 





































sichung bestimmen. Für jede Bild- 
schirmlinie, die Sie weiter nach unten 
vollen, müssen Sie eine 2 von der Y- 
#oordinate subtrahieren und umge- 
ehrt. Sie erhalten damit Y-14 als Verti- 
äiwert. Der Grafikcursor liegt in der 
obersten Bildschirmlinie dieses Zei- 
hens und sieben Bildschirmlinien tie- 
= spielt sich unser Triebwerkfeuer ab. 
sach dieser Vorarbeit ist das Setzen 
Triebwerkpunkte kein Problem 
r. Wir müssen nur die Punkte 
%+8,Y-14) und (x+16,Y-14) mit einer 
seigneten Farbe setzen.Wenn Sie das 
Saumschiff auf die Position 300,200 


)er neue Checksummer für die 
Schneider-Computer ist da. 
ıxplora 2.0 macht die Eingabe 
an Programmen noch einfa- 
her. Aber keine Angst, Explora 
0 dürfen Sie auch noch benut- 


iele unserer Leser haben 
Explora 1.0 schon schätzen 
gelernt. Ist doch die Eingabe 
son Programmen bedeutend einfacher 
and sicherer geworden. Doch die erste 
Wersion unseres Checksummers zeigte 
noch einige Schwächen. Der Neue hat 
se nicht mehr. Aber kompatibel zuein- 
ander, das sind sie beide. 

Zuerst einmal Informationen für alle, 
=e noch nicht wissen, was Explora ist. 
Explora ist ein Prüfsummenprogramm, 
as jede eingegebene Zeile auf ihre 
#schtigkeit hin überprüft. Dazu müssen 
> zuerst Explora laden (oder eintip- 
Den), einmal laufen lassen und dann 


Bung müssen Sie nun noch die Y-Ab- 


mit » 


setzen, so sind im Modus O die Punkte 
(308,186) und (316,186) zu setzen. Die 
notwendigen Befehle dazu: 
10 INK 0,0:INK 1,11:INK 2,0:MODE 
0:PLOT 300,200,1:TAG: 
PRINT CHR$(239); 

20 PLOT 308,186,2:PLOT 316,186,2 
30 FOR i=1 TO 800:NEXT 
40 INK 2,24,6 

Dabei werden die Punkte zuerst mit 
der auf O gesetzten Farbe 2 geschrie- 
ben. Erst nach der Zeitverzögerung in 
Zeile 30 wird dann das Triebwerk zuge- 
schaltet. Zwei Anmerkungen sind in 
diesem Zusammenhang noch notwen- 
dig. Erstens muß nach jeder Zeichen- 
ausgabe mit TAG ein Semikolon stehen. 
Sonst wird als Äquivalent zum 
RETURN-Befehl ein linksgerichteter 
Haken ausgegeben. Zweitens sollten 
Sie darauf achten, bei Anwendung der 
hochauflösenden Grafik immer die Gra- 
fikfarbe mit zu spezifizieren. Diese wird 
durch das MODE-Kommando nicht ver- 
ändert. Wenn Sie also in dem PLOT- 
Befehl in Zeile 10 die 1 als dritten Para- 
meter weglassen und das Programm 
zweimal hintereinander mit RUN star- 
ten, so wird das Raumschiff beim zwei- 
ten Mal nicht mehr dargestellt. Grund: 
Am Anfang von Zeile 10 wird Farbe 2 
auf O gesetzt. Vom ersten Durchgang 





wieder (mit »NEW«) löschen. Die 
Maschinencode-Routine im Speicher 
überprüft jetzt automatisch Ihre Einga- 
ben. Sobald Sie am Ende einer Pro- 
grammzeille ENTER oder RETURN 
drücken, erscheint in eckigen Klam- 
mern eine vierstellige Hexadezimalzahl 
auf dem Bildschirm. Das im Heft abge- 
druckte Listing enthält ebenfalls solche 
Zahlen. Stimmt die Prüfsumme auf dem 
Bildschirm mit der im Heft überein, so 
haben Sie die Zeile richtig abgetippt. 
Gibt es Unterschiede zwischen den 
Werten, müssen Sie auf Fehlersuche 
gehen und die Zeile noch einmal kon- 
trollieren. 


Explora 1.0 und 2.0 


Das alles konnte Explora 1.0 auch 
schon. Der Vorteil der neuen Version 
besteht darin, daß Sie nun größere 
Freiheiten bei der Eingabe der Zeilen 
haben. So dürfen Sie die Basic-Schlüs- 


her war als Grafikfarbe aber Register 2 
spezifiziert. 

Ergebnis: Das Raumschiff wird in die- 
sem Durchgang mit der Hintergrund- 
farbe geschrieben. Nach der Zeitverzö- 
gerung wird zwar Farbe 2 aufgerufen, 
aber da Sie nun das ganze Raumschiff 
mit dieser Farbe geschrieben haben, 
blinkt auch die Rakete als Ganzes. 
Experimentieren Sie auch mit anderen 
Zeichen und Kombinationen. 

(Carsten Straush/Matthias Rosin) 





- Mehr Komfort 
lora 2.0« 


selwörter in Klein- oder Großbuchsta- 
ben (oder auch gemischt) eingeben. 
»PRINT« darf mit einem Fragezeichen 
abgekürzt werden. Explora 2.0 akzep- 
tiert zum Beispiel für die Zeile »100 
PRINT« folgende verschiedene Einga- 
ben: 
100 PRINT 
100 print 
100 ? 
100 PrInT 

Die Zeilen müssen also nicht mehr 
schon beim Eintippen wie abgedruckt 
aussehen, sondern erst beim Auflisten. 
Außerdem werden Prüfsummen nur 
noch für Programmzeilen ausgegeben 
und nicht mehr wie früher auch bei 
Direkteingaben. Vor der Zeilennummer 
stehende Leerzeichen, Line-Feeds und 
Tabulatorzeichen überliest Explora 2.0 
selbständig. Leerzeichen innerhalb der 
Zeile zählen aber weiterhin und verän- 
dern die Prüfsumme. 

Explora erlaubt die Verwendung des 
EDIT-Befehls. AUTO ist in der neuen 
Version ohne Einschränkungen zu 
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benutzen, allerdings nur beim CPC 664 
und CPC 6128. Explora 1.0 lag im Spei- 
cher fest zwischen AODOO und A086 
hex. Die neue Version wird vom Basic- 
Lader automatisch im Speicher direkt 
unter HIMEM abgelegt. Somit arbeitet 
auch SYMBOL AFTER einwandfrei. 

Allerdings sollten Sie Programme nur 
starten, wenn Sie vollständig eingege- 
ben sind. Denn dann können Sie 
Explora aus dem Speicher eliminieren 
und es gibt auch bei Maschinen- 
code-Routinen keine Platzprobleme. 

Eine kleine Einschränkung gibt es 
aber doch: Löschen Sie keinesfalls Zei- 
len durch Eingabe der Zeilennummer 
und Drücken der ENTER-Taste. Die 
Zeile wird dann gar nicht wirklich 
gelöscht, sondern ist ein Duplikat der 
folgenden Zeile. Verwenden Sie statt 
dessen DELETE. Statt »20« müssen 
Sie also »DELETE 20« schreiben. 

Das Wichtigste dürfen wir aber nicht 


Explora 2.0 


BEE EEE ger ne BE == — 
aL— ee eg ze me.sr  —— 


vergessen! Explora 2.0 ist aufwärts- 
kompatibel zu Explora 1.0. Das heißt, 
daß Sie sowohl mit Explora 2.0 alte Pro- 
gramme abtippen können als auch mit 
Explora 1.0 alle zukünftigen Pro- 
gramme. Denn die Prüfsummen sind 
identisch. 


Die Prüfsummen 
sind identisch 


Steuerzeichen und mehrere Leerzei- 


chen, die in Strings aufeinanderfolgen, 
sind in geschweiften Klammern im Klar- 
textangegeben. So bedeutet [CTRL A|], 
daß Sie die CTRL-Taste gemeinsam mit 
»A« drücken müssen. Aber Vorsicht, 
daß Sie solch ein Zeichen nicht mit den 
ASCII-Sonderzeichen | oder | verwech- 
seln! 

Die Bedeutung der geschweiften 
Klammer erkennen Sie jedoch sehr 


Kled+2) 





leicht. Denn als ASCII-Sonderzeichen 
steht sie meist allein. Im anderen Fall 
umschließt sie immer Control- oder’ 
Leerzeichen. Denn auch die Leerzei- 
chen werden mit |5 SPACE] (fünf Leer- 
zeichen) angezeigt. 

Da die Tastatur der Schneider-Com- 
puter sehr leicht umdefiniert werden 
kann, arbeitet jeder Computer-Besitzer 
mit einer anderen Tastenbelegung. Wir 
verwenden nur den ÖOriginal-ASCIl- 
Code. Deutsche Sonderzeichen wer- 
den dabei als amerikanische Sonder- 
zeichen (siehe Tabelle) dargestellt. 
Benutzen Sie einen umdefinierten Zei- 
chensatz, so müssen Sie natürlich 
immer die analogen Zeichen einsetzen. 
Übrigens, das Zeichen » « für das deut- 
sche »ß« wird mit CTRL-2 aufgerufen. 

Listing 1 enthält das Programm »Ex- 
plora 2.0«. Listing 2 zeigt die Besonder- 
heiten noch einmal mit Erklärung. 


(Martin Kotulla/hg)) 


IF PEEK(&4)=&91 THEN ed=&BD5E:POKE &B 
F28,%8A: RESTORE 478 

POKE &£BF21,&ACı POKE &BF22,PEEK (ed) 
FOKE &BF23,PEEK(ed+i1):POKE &bF24,PEE 


L1i&FA] 
[71DE] 


[7784] 


CPC 464/664/6128 


| Checksummer: 2 
Datenträger: | 





_ Kassette/Diskette 


Sonderzeichen 
amerikanische 
7 
| 
| 
l 


Das Symbol »’« steht für »!« 


ES 0 2 ou 02 0n Un ZU 2 Un 2 2 u 0 ZZ ZZ 2 0 2 2 2 2 0 200 


* * 
* EXPLORA V2.8 * 
* * 

*%+ 


EZ © 2 0 2 2 0 200 2 000 u SS ZZ u 2 0 0 0 0 002 


DEF FNl1sb (x)=255 AND UNT (x) 
DEF FNmsb (x)=255 AND INT (x /256&) 


I SYMBOL AFTER 256: MEMORY en es 


start=HIMEM+1:5YMBOL AFTER 
+VAL("&"+a$) NEXT i 
r!":END 

D as 


FOKE i,VAL(Ü"&"+as$)sıNEXT i 
FOR i=1 TO 5:READ a:a=at+tstart 





deutsche 


FOR i=&ABOD TO &ABFD:READ a: sumssum 
IF sum<>iF781i4 THEN PRINT "DATA-Fehle 
RESTORE:FOR i=start TO start +&9D:REA 


[28972] 
CB2C8] 
CFCCE) 
C4BBE] 


[24D2] 
LAC2A]I 





POKE ed,%C3:POKE ed+1,FNlsbistart):P 
OKE ed+2,FNmsb (start) 

IF PEEK(ö)=&B880 THEN END 

FOR i=1 TO 7:READ a$,b$ı a=VAL("&"+a$ 
)+start:b=VALt"&"+b$) 

POKE a,FNlsb(b):POKE a+i1,FNmsb (b) :NE 
xXT i 


ı DATA CD,„22,BF,F5,C5,D5,E5,2A,28,BF,C 


4208 
438 


448 
458 


D,61,DD,B7,28,62 
DATA E5,2A,28,BF,CD,88,AB,E1,38,58,C 
D,84,EE,CD,A3,ET' 

DATA CD,63,E1,ED,4B,2@,BF ,21,28,80,8 
A,SF,16,808,19,83 

DATA FE,0@,28,F6,DD,2A,28,BF,91,20,8 
8,DD,7E,88,5F,16& 

DATA 88,.19.84,F5,A8,47,F1,89,DD,23,F 
E,29,28,ED,3E,@D | 
DATA CD,5A,BB,3E,@A,CD,5A,BB,3E,5B,C 
D,5A,BB,7C,CD, 77 

DATA AB,7C.CD, 7B „AB,7D,CD,77,A8,7D,C 
D,7B,AB, 

DATA SA,BB,EI, Sr C1,F1,C9,1F,1F,1iF,1 
F,E6,@0F,C6,30,FE 

DATA 3A,38,82,C6,87,03,5A,BB,CD,61,D 
D,B7,37,C8,CD, 24 

DATA EE,D®,7E,FE,20,28,@1,23,CD,D2,E 
6,37,9F,C9 


460 DATA &15,85F „&63,&67,&6B 


470 
488 


49708 
Ssoa 


18 


DATA GB, DES2, 1B,EED4, 1E„E86?7 
DATA 21, \E259, \89, DES2,8F ,EED4,77,E7AA 


DATA 8B,DE4D,1B,EECF,1E,EB64 
DATA 21,E254,89,DE4D,BF „EECF ,99,E7AS 


END 


Listing 1. Mehr Komfort mit »Explora 2.0« (Schluß) 


400 


418 
420 
430 


DATA %BB,%E1,&D1,%C1,%F1,&C9,&1F,&1F 
‚s&iF,&iF, LE6, war, LCh, x30, LFE,ASA 
DATA "238, ‚u02, ‚LC6, 07, ‚03 ,&5A, %BB 

NEW 

PRINT "XCTRL ArHiCTRL YI£CTRL YIiCTRL 


LFAESI 


[6844] 
[3306] 
(85532] 
[SBFC] 
[SEF2] 
CDBF&] 
[4D3E] 
LESS3C]I 
[259A] 
[814A] 
CA1BA] 
[ö4AC)I 


[aCc3651 
[3A22] 


[7B14]1 
[8585] 


L1F52]1 
[247A] 


LAA1A]I 


[C4CB] 
[455C] 
[EE4B] 


wert=PEEK (a) +PEEK (ati) #2564-409508+sta 
rt [27761 
POKE a,FNIsb (wert) :POKE a+1,FNmsb (we 
rt):NEXT i [CB1B2] 
2 me THEN ed=-&BD3A:POKE &B 
[54AB] 
[7&38C] 


Ar" [8DB8] 
448 PRINT "f5 SPACEIWW} GT” [8SCDE] 


Listing 2. Im Beispiel müssen Sie die Zeile 400 wie folgt 
| eingeben (Modus 1): 400 DATA &BB,$E1,&D1,&C1,&F1,&C9, 
SIF,&IF ‚SiF,&1iF,&E6,&0F,&C6,&30,&FE,&3A Zeile 430 be- 

steht in der PRINT-Anweisung aus den vier Tastendrucken 
| CTRL-A, CTRL'Y, CTRL-Y und CTRL-A. Der String in Zeile 440 
| lautet »WWl« 





1 IF BEERIG)=L7B THEN ed=-&BDSB:POKE &B 
SR; &BA:RESTORE 478 


| Listing 1. Mehr Komfort mit »Explora 2.0« 
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Interpreter- 
»Fehler« - 
selbst behoben 











as Betriebssystem und speziell 
das Basic der Schneider- 
-omputer gehört zum Besten, 
was es in dieser Art zur Zeit auf 
dem Heimcomputermarkt gibt. 
Allerdings haben auch die CPCs 
och einige Macken. Hilfe ist oft 
sehr einfach. 


| aß bei der Entwicklung der 
| Software der Schneider- 
| Computer gute Arbeit gelei- 
stet wurde, ist allgemein bekannt. Aber 
uch das beste Betriebssystem weist 
mer noch einige Fehler auf. So auch 
3as Schneider-Basic. Und dies sind 
sicht nur schon relativ bekannte 
lacken«, wie der DEC$-Befehl, son- 
rn oft Kleinigkeiten, die anfangs zu 
siniger Verwunderung führen und sich 
arst nach genauerem Hinsehen als 
echte Fehler - und nicht etwa Program- 
ierfehler - entpuppen. Leicht zu ver- 
stehen ist der gerade beschriebene 
ehler beim DEC$ des CPC 464. Die- 
ses Kommando dient der Formatierung 
nes Strings. Das heißt, es baut eine 
orgegebene Zeichenkette so um, als 
0b diese mit einem PRINT-USING-Kom- 
ando ausgegeben würde. Leider 
nterief bei der Entwicklung des 
Betriebssystems beim 464 ein Fehler. 


























Zwei auf 
eine ZU 


Die Anfangsklammer wird zweimal 
Sberprüft, weshalb man bei diesem 
Kommando immer zwei Klammern öff- 
nen muß, aber nur eine schließen darf. 
Sie Funktion DEC$ hat dabei folgendes 
at: 

=8-DEC$((a$, "<Formatierungs- 
Sarameter>*) 

- Die Formatierungsparameter ent- 
sprechen denen des PRINT-USING-Be- 
fehls. Nähere Angaben zur Verwen- 
Sung dieser Parameter finden Sie im 
#andbuch. 

Während die Falsch-Interpretation 
= DEC$ eindeutig erkennbar ist, 


Ar 
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bereiten andere Fehler mehr Schwierig- 
keiten. Ein Problem im mathematischen 
Bereich stellt beispielsweise die 
Potenzfunktion dar. Wenn man hier mit 
einer negativen Basis arbeitet, liefert 
der CPC 464 in manchen Fällen ein fal- 
sches Ergebnis. Laut Handbuch ist die 
Potenzfunktion b® in zwei Fällen defi- 
niert. 

1. Wenn die Basis (b) positiv ist, soll 
die Potenzfunktion für beliebige Expo- 
nenten (e) definiert sein. 

2. Bei negativer Basis ist sie nur für 
ganze Exponenten definiert. 


Der Exponent darf dabei sowohl posi- 


tiv als auch negativ sein. Probleme hat 
der Interpreter dabei mit einem an sich 
völlig einfachen Problem. Was passiert, 
wenn man eine negative Zahl mit 1 
potenziert? Sie wird positiv - jedenfalls 
beim 464. Bei den Nachfolgemodellen 
wurde dies kuriert. Wenn Sie also 
PRINT(-12)11 

eingeben, so lautet das Ergebnis nicht 
-172, sondern 12. Der Schneider inter- 
pretiert hier also die negative Basis als 
positiv und rechnet mit dem positiven 
Ansatz weiter. Eine einfache Abhilfe 
bietet die Multiplikation mit der Signum- 
Funktion. SGN(< Wert >) liefert -1 für 
einen negativen Wert, O beiNullund +1 
für einen positiven Eingabewert. Wenn 
Sie also beim 464 

PRINT SGN(b)*ble 

statt des normalen Funktionsaufrufes 
benutzen, erhalten Sie immer die rich- 
tige, korrigierte Ausgabe. Hierzu aller- 
dings gleich eine Nebenbemerkung. 
Sie dürfen den gerade beschriebenen 
Fehler des Computers - genauer sei- 
nes Interpreters - nicht mit einem ande- 
ren »Fehler« verwechseln, der auf den 
ersten Blick auch zu Verwunderung 
führt. Wenn Sie nämlich 

?-1212 

eingeben, erhalten Sie - und dies gilt 
nun gemeinsam für alle Schneider- 
Computer - nicht etwa, wie Sie viel- 
leicht erwarten, 144, sondern vielmehr 
-144, also den erwarteten Wert mit 
negativem Vorzeichen. Dies ist aber 
kein Interpreterfehler, sondern liegt in 
der Hierarchie der einzelnen Verknüp- 
fungssymbole begründet. Sie kennen 





sicher die mathematische Grundregel 
»Punkt-vor-Strich-Rechnung«e. Diese 
richtig anwendend, würden Sie bei- 
spielsweise den Term »2+3-3+3« als 
»(2*+3) - (3*+3)«e berechnen. Also 
zunächst die mit dem Malzeichen ver- 
bundenen Werte bestimmen und diese 
dann mit »-« verknüpfen. Analog dazu 
werden Potenz- und andere Funktionen 
vor der Verknüpfung mit »*« oder »/« 
berechnet. Auch der Schneider macht 
das so. Er gliedert den eingegebenen 


Ausdruck mittels der einzelnen Ver- 
knüpfungszeichen (»+«, »-«, »*«, »/« 
und Funktionsaufrufe). Dabei gilt fol- 
gende Hierarchie: 
1. Klammern: haben höchste Priorität 
2. Funktionsaufrufe: SIN(), SOR() 
und so weiter werden zuerst 
bestimmt 
. Potenzfunktion »I« 
. »=« negatives Vorzeichen für eine 
Zahl 
. »*« Multiplizieren 
. MOD Modulo-Funktion (liefert 
den Rest einer Division) 
. »/« Dividieren 
. »\« Ganzzahldivision (nur der 
ganzzahlige Wert des Ergebnis- 
ses wird angezeigt) 
9. »+« Addition 
10. »-« Subtraktion 
Das Rechensymbol mit der niedrig- 
sten Zahl hat dabei die höchste Priori- 
tät. Wie Sie sehen, kann dabei das 
Minuszeichen zwei verschiedene 
Bedeutungen einnehmen. Zum einen 
kann es die Operation »-«, also eine 
Subtraktion, anzeigen. Ferner kann das 
Minuszeichen als Vorzeichen stehen. 
Diese typisch menschliche Doppeldeu- 
tigkeit macht dem Schneider nun aber 
arg zu schaffen. Er hat das Minus in bei- 
den Versionen gespeichert, erkennt es 
auch richtig, und führt demnach dann 
die richtige Operation aus. Allerdings 
setzt er das Vorzeichen in seiner Priori- 
tätsbestimmung geringer als Funktio- 
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nen an. Während ein Mensch also -12? 
- mathematisch falsch - als Aufforde- 
rung verstehen würde, die Zahl -12 mit 
sich selbst zu multiplizieren, denkt der 
Schneider hier korrekt. Er analysiert 
das Minuszeichen und bestimmt, daß 
zu seiner Definition eine Minusfunktion 
auf den Ausdruck, der nach diesem Zei- 
chen steht, angewendet werden soll. 
Wenn Sie also 
PRINT-1212 
eingeben, so interpretiert der Schnei- 
der mathematisch korrekt: »Zahl 12 mit 
sich selbst multiplizieren und darauf 
dann die Minusfunktion anwenden - 
also das durch die Potenzierung ent- 
standene Ergebnis mit -1 multiplizie- 
ren.« Das Endergebnis lautet also -144. 

Überhaupt ist der Umgang mit Zahlen 
bei Computern - und hier machen die 
Schneider-Geräte keine Ausnahme - 
eine Wissenschaft für sich. Ein weiterer 
Punkt, der oft zu Ärger führt, ist die teil- 
weise ungenügende Rechengenauig- 
keit - speziell bei kleinen Zahlen. Oft will 
man in einer Schleife mit relativ hoher 
Auflösung nahe beieinander liegende 
Punkte berechnen, um beispielsweise 
eine Funktion zu plotten. Dann darf man 
sich aber nicht mehr auf seinen Compu- 
ter verlassen, weil dieser ungenauer 
arbeitet, als das Problem es erlaubt. 
Nehmen wir ein ganz einfaches Bei- 
spiel: 
10 FOR i=0.1 TO 10 STEP 0.1 
20 PRINT i 
30 NEXT i 

Was erwarten wir bei einer solchen 
Schleife? Das Programm beginnt mit 
i=0,1. Das ist der erste Schritt, bei dem 
als Beispiel der erste darzustellende 
Wert berechnet werden soll. Es folgt 
0,2, 0,3 und so weiter. Bei 1,0 haben 
wir die ersten 10 Werte berechnet, bei 
2,0 20 und demnach bei 10,0 genau 
100. Nun schauen Sie sich einmal an, 
was Ihr CPC berechnet hat. Am Anfang 


ist alles noch korrekt. Auf 0,1 folgt 0,2. 


Eins und eins ist 


nicht immer zwei 


Ab 3,7 wird es jedoch ungenau. Jetzt 
gibt es als nächste Stufe 3.79999999. 
Das wäre nicht weiter schlimm, wenn 
der Schneider in seiner Vergleichsbe- 
trachtung, mit der er feststellt, ob der 
letzte Schleifenwert bereits erreicht 
oder überschritten wurde, genauso 
wenig pingelig wäre und diese Werte 
entsprechend runden würde. Hier ver- 
hält er sich aber nun extrem kleinlich. 
3.7999999 ist kleiner als 3.8 und 
obwohl es eigentlich 3.8 sein muß, fährt 
der Schneider noch einmal durch die 
Schleife. Die FOR-TO-Schleife wird ja 
bekanntlich abgebrochen, wenn durch 
laufende Additionen ein größerer Wert 


IE FESTER ee a 


als der Schleifenendwert erreicht wird. 
Dies gibt keine Probleme, wenn die Dif- 
ferenz (der Abstand, in dem wir die ein- 
zelnen Werte ausdrucken) groß im Ver- 
gleich zu der Abweichung ist. Es ist 
nämlich egal, ob wir zu 3.99999 oder 
zu 4 den Wert 0.1 addieren. Ist 4 unser 
Schleifenendwert, fällt der Vergleich 
immer positiv aus. Der Computer been- 
det die Schleife. Gehen wir aber bei- 
spielsweise in Tausendstel-Schritten 
voran, so kann es durchaus passieren, 
daß der CPC ein paar Berechnungen 
mehr macht als eigentlich vorgesehen. 


Nun aber subtrahiert der Schneider 
nicht nur, manchmal fügt er auch ein 
bißchen dazu. Am Ende unserer 
Schleife (ab 9.7) wird das klar. Und 
wenn er gerade zu glatten Werten 
zurückgekehrt ist, legt er noch ein biB- 
chen drauf. Der CPC entscheidet, daß 
9.9000001 + 0.1 bereits größer als 10 
und damit der Schleifenendwert 10 
überschritten ist. Die Schleife muß ver- 
lassen werden. Leider ist dies ein 
Schritt zu früh. Statt 100 Durchgängen 
hat der Schneider nur 99 gemacht. Um 
diesem Problem abzuhelfen, gibt es 
zwei Methoden. Zum einen kann man 
den Teufel mit dem Beelzebub austrei- 
ben, genauer: die eine Ungenauigkeit 
durch eine geplante zweite ausglei- 
chen. In unserem Fall heißt das, den 
Schleifenendwert auf 10,000001 zu 
erhöhen, womit auch noch der letzte 
Vergleich positiv ausfält und die 
gewünschten 100 Schleifendurch- 
gänge stattfinden. Dies ist aber eine 
wenig schöne Variante. Besser ist es, 
sich mit dem Grund für diese Ungenau- 
igkeiten auseinanderzusetzen. Wie 
jeder Computer rechnet auch der 
Schneider intern binär - das heißt im 
Zweiersystem. Um nun mit uns Men- 
schen zu kommunizieren, formt er 
seine Binärwerte in unsere Dezimalzah- 
len um. Es gibt aber Dezimalzahlen, die 
im Dezimalsystem ganz glatt aussehen, 
binär jedoch zu einem unendlich langen 
Bandwurm werden - wie beispiels- 
weise 0,1. Binär lautet dieser Wert 
0,000110110110110110110... Der 
Computer muß hier runden. Damit 
schleichen sich Ungenauigkeiten ein. 
Bei hundert aufeinanderfolgenden 
Additionen kommt Fehler zu Fehler, und 
am Schluß stimmt das Ergebnis nicht 
mehr. Hier gibt es aber eine relativ einfa- 
che Lösung. Statt »i« in solch binär 
schwer faßbaren Werten zu verändern, 
addieren Sie besser Ganzzahlen und 
setzen die Schleifenobergrenze ent- 
sprechend herauf. Die richtigen Werte 
von i für die Verarbeitung erhalten Sie 








dann durch einfaches Teilen - bei- 
spielsweise durch 10. Wenn Sie also 
statt der ersten Schleife mit 

10 FOR i=1 TO 100 

20 PRINT i/10 

30 NEXT 

arbeiten, so haben Sie exakt dieselbe 
Zahl an Schleifendurchläufen zur Verfü- 
gung. Nur die Additionsfehler werden 
vermieden. Denn 1 dezimal ist auch für 
den Computer 1 binär und damit pro- 
blemlos zu verarbeiten. 

Die Schneider machen jedoch nicht 
nur bei der Arithmetik manches anders, 
als man sich wünscht. Zwei weitere Pro- 
bleme treten auf, wenn man sich inten- 
siv mit dem Ablegen von Programmen 
beschäftigt. In einem vernünftigen Pro- 
gramm muß der Benutzer den Namen 
einer zu’ speichernden Datei eingeben 
können. Dazu reicht eine einfache 
INPUT-Abfrage. Wenn man mit 
INPUT”Name der Datei”;n$ 
einen Namen einliest, sollte man diesen 
problemlos mit OPENOUT n$ an die 
Disketten- oder Kassettenverwaltung 
weiterleiten können. Diese Soll dann die 
Datei unter dem Namen speichern. Das 
klappt aber nur manchmal. Wenn man 
viele Strings im Speicher verwaltet, 
streikt der CPC. Statt eine Datei zu öff- 
nen, wirft er eine Fehlermeldung aus. 


Wirkung ohne 
Zeichen 


Abhilfe ist auch hier wieder relativ ein- 

fach. Man muß nur vor dem String ein 
»""« ausgeben. Obwohl der Dateiname‘ 
durch OPENOUT *””+n$ natürlich nicht 
geändert wird, akzeptiert der Computer 
nun das Kommando. 

Ein weiterer Fehler wird Ihnen auffal- 
len, wenn Sie des öfteren mit RENUM 
arbeiten, um sich Platz für neue Zeilen 
zu schaffen. RENUM renumeriert »fast 
allese.. Eine Zeilenangabe läßt der 
Befehl jedoch aus - die Zeilenangabe 
bei CHAIN MERGE. Mit diesem Kom- 
mando ist es möglich, ein Programm zu 
einem aktuellen Programm hinzuzula- 
den. Das neue Programm fügt sich 
dabei nahtlos in das alte ein. Zeilen mit 
gleicher Zeilennummer werden über- 
schrieben. Durch eine nachfolgende 
Zeilenangabe kann man dabei den CPC 
anweisen, nach dem Ladevorgang das 
neuentstandene Programm ab einer 
beliebigen Stelle aufzurufen. Das Fon 
mat lautet dabei: 

CHAIN MERGE "Dateiname”, <Zeile> 

Diese nachgestellte Zeilenangabe 
verändert RENUM nicht. Wenn Sie also 
ein Gesamtprogramm mit CHAIN 
MERGE aus mehreren Teilen zusam- 
mensetzen wollen, so müssen Sie die 
Startadresse gegebenenfalls von Hand 
anpassen. (Carsten Straush/hg) 
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un soll aber nicht nur das Pro- 
grammieren auf den Schnei- 
der-Computern gezeigt wer- 
, sondern am Ende wollen wir auch 
&ber ein lauffähiges, praktisches Pro- 
amm verfügen. Das Listing »Band- 
'ei« ist ein Hilfsprogramm, das Ord- 
ing in den Band- beziehungsweise 
skettensalat bringt. Wenn Sie nur 
an 464 ohne Diskettenstation besit- 
‚ kennen Sie das Problem sicher- 
ich. Aber auch die Eigentümer der 
Soppy-bestückten großen Brüder wer- 
gen es im Laufe der Zeit - mit zuneh- 
sendem Diskettenbestand - kennen- 
ven. Der Anlaß zu diesem Programm 
# ein bemerkenswertes Computerge- 
jetz: Eine Datei istimmer gerade da, wo 
an sie nicht vermutet. Also sucht man 
eduldig auf seinen Bändern und Dis- 
etenhin undher, und manchmal findet 
an das Gesuchte dann auch. Man 
| sich hier natürlich mit beigelegten 
telchen oder Aufklebern etc. helfen. 
ar diese sind oft nicht mehr »up to 
>«, weil die Diskette schon dreimal 
sderverwendet worden ist. Beipack- 
tel haben dagegen die Eigenschaft, 
manent zu verschwinden. Was fehlt, 
eine Art Katalogisierungsprogramm, 
s alle Bänder und Disketten enthält. 
ann man ein bestimmtes Programm 
Scht, muß man nur noch seinen 
en eingeben und schon erhält man 
se Bandnummer und den Zählwerk- 
Sand, wo sich dieser Titel befindet, auf 
Bildschirm. Zu schön um wahr zu 
? Nein, wir müssen nur ein wenig 
sogrammierarbeit leisten, um dieses 
zei zu erreichen. 
Machen wir uns zunächst ein paar 
danken darüber, was ein solches 
#ogramm eigentlich alles ausführen 
ou. Vor allem benötigen wir ein umfang- 
sches Inhaltsverzeichnis. Für jedes 
1d, beziehungsweise jede Diskette, 
an dabei die einzelnen gespeicher- 
en Dateien abrufbar sein. Nun können 
# aus Platzgründen nicht den Inhalt 
abgespeicherten Bänder gleich- 
sig auf den Bildschirm bringen. Wir 
eschränken uns also am besten auf 
Inhalt eines Bandes. Um etwas 
Jdnung in unsere Dateien zu bekom- 
\, überlegen wir uns die benötigten 
en und deren maximale Größe und 
anzahl. Das beste Programm nützt 
Emlich wenig, wenn am Schluß Pro- 
ame mit dem Speicherplatz auftreten. 
&Serdem kann der Schneider keine 
nendlich großen Datenfelder verwal- 
» Er braucht eine Maximalangabe 
= deren Größe, die sogenannte 
ionierung. 
Je erste Größe kennen wir bereits 
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Jedes Programm in diesem Son- 
derheft enthält eine Programm- 
beschreibung. Für den Einstei- 
ger bleiben aber trotzdem oft 
noch Fragen offen. Deshalb 
erklären wir Ihnen hier ein 
Listing Befehl für Befehl. 


schon, die maximale Zahl der Bänder, 
die erfaßt werden soll. Die nächste 
Dimensionierung betrifft die einzelnen 
Programmtitel. Hier gehen wir von 20 
zu katalogisierenden Bändern mit je 
maximal 15 Titeln aus. Für deren Ablage 
bietet sich bei der Basic-Programmie- 
rung ein zweidimensionales Datenfeld, 
ein sogenanntes Array an. Bezeichnen 
wir es mitn$. Die erste Dimension, also 
der erste Index, soll dabei die Nummer 
des Bandes sein. Index Nummer 2 ist 
die Nummer des Programms auf dem 
Datenträger. n$(1,3) bezeichnet damit 
das dritte Programm auf Band Nummer 
1, n$(3,4) bezeichnet die vierte Datei 
auf Band Nummer 3. Die einzelnen Ele- 
mente unseres Datenfeldes sind einfa- 
che Strings, die die verschiedenen Pro- 
grammtitel enthalten sollen. 


Felder der 
Dimension 300 
haben 336 Elemente 


Nun wissen Sie sicher, daß, wenn wir 
ein Feld auf 20+15 dimensionieren, 
dieses aus 21 * 16 Elementen besteht, 
denn der Schneider rechnet ab Null, 
n$(Bandnummer,i) bis n$(Bandnum- 
mer,15) enthalten die Programmititel. 
n$(Bandnummer,O) bleibt damit aber 
noch frei. Da wir aber beabsichtigen, 
noch einen weiteren String je Band 
abzuspeichern - irgendwo soll ja 
schließlich auch noch der Name des 
Bandes zu finden sein - kommt uns dies 
ganz gelegen. Der Bandname wird je- 
weils in n$(Bandnummer,D) abgelegt. 

Nun fehlt noch der Zählwerkstand, 
der auch wichtig ist, um einen gezielten 
Zugriff auf ein Band zu ermöglichen. 
Dazu benötigen wir noch ein ebenso 
großes numerisches Array, das für 
jedes Programm den Zählwerkstand 
aufnimmt. Es trägt die Bezeichnung n. 
Wieder bleibt der Nullindex unbelegt. 
Und auch hier erhält er einen neuen 
Sinn: Er beinhaltet die Anzahl der auf 
einem Band befindlichen Programme. 

Der Datenrahmen ist nun festgelegt. 
Bevor wir uns jedoch nun direkt auf das 
Listing stürzen, kurz noch ein paar 
Bemerkungen zu den einzelnen Funk- 
tionen. Das Programm »Band-Kartei« 





Basic — Stück für Stuck 


stellt im wesentlichen eine Art komfor- 
tables Inhaltsverzeichnis dar. Dabei 
erscheint jeweils der Inhalt eines Ban- 
des auf dem Schirm. Da wir aber natür- 
lich viele Bänder abspeichern wollen - 
sonst hat das Ganze ja gar keinen Sinn! 
- müssen wir einige Funktionen ein- 
bauen, die uns das Umschalten zwi- 
schen den einzelnen Bändern ermögli- 
chen. Dabei müssen wir sowohl in den 
Datensätzen blättern, also auch die 
nachfolgenden Programm-Inhaltsver- 
zeichnisse ausgeben lassen, als auch 
gezielt nach einem Programm oder 
einem Band suchen. Außerdem brau- 
chen wir natürlich Prozeduren, die uns 
das Löschen, Einfügen oder Ändern 
eines Programmtitels oder Bandes 
gestatten. 

Das Programm ist nach einem Menü- 
system aufgebaut. Die einzelnen Pro- 
grammfunktionen bilden dabei eine Art 
Kreisverkehr. Wenn wir beispielsweise 
eine Datei laden wollen, so geschieht 
dies mit der Funktion Nummer 1 »Datei 
einlesen«. Aufgerufen wird sie aus dem 
Auswahlmenü ab Zeile 250. Das Pro- 
gramm verzweigt jeweils mit GOSUB in 
die entsprechende Unterroutine. Der 
Menüunterpunkt »Verlassen« führt in 
die jeweils übergeordnete Ebene 
zurück. Der Punkt »Verlassen« im 
Hauptmenü veranlaßt einen Programm- 
abbruch. 

Gehen wir nun einmal das Programm 
Zeile für Zeile durch. Die einzelnen 
Unterpunkte sind dabei anhand der 
kommentierenden REM-Anweisungen 


gut erkenntlich. Den Anfang bildet ein 


Initialisierungsteil. Hier werden die Far- 
ben festgelegt. Die Farbregister O bis 3 
enthalten die gewünschten Werte 
(schwarz, rot, gelb und mittelblau). In 
Zeile 50 erfolgt das Umschalten auf 
den Modus O (dies sorgt für eine bes- 
sere Wirkung der nachfolgenden Titel- 
ausgabe) und die Ladegeschwindigkeit 
1 wird festgelegt. Die folgenden Zeilen 
geben den Titel aus. Die Sternchen 
bewirkt dabei das PEN-Kommando mit 
INK 3, also rot. Interessant ist hier noch 
in Zeile 100 die Farbumschaltung inner- 
halb einer Bildschirmzeile. Das »;« nach 
dem ersten PRINT-Kommando sorgt 
dafür, daß der Cursor an der letzten 
Position stehen bleibt. Dann wird mit 
PEN 1 gelb gewählt, der Titel ausgege- 
ben und dann nach demselben Prinzip 
wieder zurückgeschaltet. Die vielen 
PRINT-Kommandos in den Zeilen 60 
und 140 bewirken dabei nichts anderes 
als einen einfachen Zeilenvorschub. 
Der Cursor bewegt sich also auf die 
nächste Zeile. Die Zeilen 150-190 stel- 
len eine einfache Warteschleife dar. 


iu or# 






Angewandt wurde hier der Befehl 
WHILE/WEND. Solange die nach dem 
WHILE stehende Bedingung erfüllt ist, 
arbeitet der Schneider bei jedem 
WEND in der nach dem WHILE- 
Kommando stehende Zeile weiter. Als 
Bedingung ist i<2000 vorgegeben, 
das heißt bei jedem Schleifendurchlauf 
wird i jeweils um 1 erhöht, bis 2000 
erreicht ist (Zeile 180). Spätestens 
nach 2000 Durchgängen erfolgt also 
kein Rücksprung mehr und es geht in 
Zeile 200 weiter. Es gibt allerdings 
auch noch eine andere Abbruchbedin- 
gung. Wenn Sie nämlich eine beliebige 


. "Taste drücken, wird durch den INKEY- 


Befehl in Zeile 160 z$ mit dem Tasten- 
wert belegt und es erfolgt direkt aus 
Zeile 170 ein Aufruf von Zeile 200. 
Dann dauert es nicht mehr so lange, bis 
es im Programmtext weitergeht. Die 
Zeitverzögerung hat übrigens den Sinn, 
Ihnen Zeit zu geben, den Bildschirmin- 
halt gründlich zu studieren. Im nachfol- 
genden Teil wird nun durch MODE 1 
und die Definition von drei Bildschirm- 
fenstern der Bildschirm gelöscht und 
völlig umgebaut. Ohne diese Zeitverzö- 
gerung wäre vom Titel nur ein kurzes 
Aufblitzen zu sehen. 


Top-Miindow 
ist top 


Der Rest unseres Programms arbei- 
tet mit der neuen Bildschirmgestaltung. 
Drei Zeilen als Top-Window dienen 
dazu, Überschriften aufzunehmen. Im 
unteren Teil des Schirms wurden analog 
dazu drei Zeilen für die Eingabe reser- 
viert (WINDOW #2). Der Hauptbild- 
schirm (WINDOW #0) ist damit auf die 
mittleren 19 Zeilen beschränkt. Nach- 
dem den einzelnen Bildschirmfenstern 
in Zeile 230 und 240 die Werte für 
Schrift- und Hintergrundfarbe zugeord- 
net wurden, geht es ins Auswahlmenü. 
Zunächst werden durch die CLS- 
Befehle die drei Bildschirmfenster 
gelöscht. Danach folgt die Ausgabe des 
Titels in der Mitte von Fenster 1. 
Anschließend erscheinen in der Mitte 
des Hauptbildschirms die einzelnen 
Routinen. Zeile 350 prüft, welche Wahl 
der Benutzer getroffen hat. Die Tasta- 
turabfrage erfolgt mit INKEY$ und es 
wird festgestellt, ob überhaupt eine 
Taste gedrückt wurde. Ist dies nicht der 
Fall (Z2$=* *), geht es direkt zurück an 
den Zeilenanfang. Dieses Spielchen 
wiederholt sich so lange, bis eine Taste 
betätigt wird. Dann überprüft ASC, ob 


eine gültige Zahl eingegeben wurde. 


Die vorherige Abfrage auf ” ” ist dabei 
unbedingt notwendig. Die ASC-Funk- 
tion verkraftet nämlich keinen Leer- 
string. PRINT ASC(””) hat einen 
IMPROPER ARGUMENT-Fehler zur 


Folge. Nachdem die Eingabe auf Stim- 
migkeit überprüft wurde, wird in Abhän- 
gigkeit vom eingegebenen Wert zu 
einem der verschiedenen Unterpro- 
gramme verzweigt. Zeile 360 mit den 
verschiedenen GOÖSUB-Anweisungen 
bewirkt in unserem Lernprogramm die 
entsprechenden Verzweigungen. 

Das erste Programm, auf das wir hier- 
beitreffen, ist die Datei-Leseroutine. Sie 
beginnt bei Zeile 410. Ihr Ablauf ist 
schnell erklärt. Nach Ausgabe des 
Funktionstitels in Zeile 410 wird eine 
Datei zum Lesen geöffnet und dann als 
erstes die Variable md eingelesen. md 
steht für »maximale daten« und ent- 
spricht der Anzahl der abgespeicherten 
Bänder. Es wäre ja unsinnig, bei bei- 
spielsweise fünf erfaßten Datenträgern 
die Maximalzahl von 20 Dateien wegzu- 
schreiben. In einer doppelten Schleife 
werden dann alle benötigten Daten ein- 
gelesen. i läuft dabei von O bis md, also 
über alle Bänder. Zunächst werden 
dabei in Zeile 440 der Name des Ban- 
des und die Anzahl der abgespeicher- 
ten Titel auf diesem Band abgefragt. 
Danach folgt die j-Schleife, wobei j von 
1 bis n(i,0), also wieder über alle Titel, 
läuft. Damit werden für jedes Band (I) 
alle Titel (j) eingelesen. Zwei NEXT- 
Befehle schließen diese Schleife ab. 
Die Lesedatei beendet CLOSEIN (dies 
ist unbedingt notwendig, damit man 
beim nächsten Laden keine Probleme 
bekommt), und es geht zurück ins 
Hauptmenü. Wenn Ihnen in diesem Pro- 
grammteil noch irgend etwas unklar ist, 
so erhöhen Sie einmal die Schleifen- 
werte für i und j nacheinander und 
schauen sich an, was das zur Folge hat. 

Die nächste Routine benötigt keiner- 
lei Erklärungen, da sie ein Pendant der 
ersten darstellt. Sie haben nur in der 
oben beschriebenen Leseroutine alle 
INPUTs durch PRINT zu ersetzen und 
schon ist auch der Schreibteil fertig. Die 
Funktionsweise verläuft damit analog 
der ersten, nur in der umgekehrten 
Richtung. 

Nun kommen wir zu einem etwas 
größeren Programmteil - der Druckaus- 
gabe. Diese hält drei Routinen bereit. 
Man kann alle verfügbaren Bänder oder 
Programme ausdrucken, beispiels- 
weise um eine Übersicht zu erhalten 
oder ein spezielles Band herauszugrei- 
fen. Den dazu benutzten Auswahlme- 
chanismus kennen Sie bereits. Nach 
der Ausgabe des Funktionskopfes wird 
in einer INKEY$-Schleife (Zeile 680) 
die gewünschte Funktion festgestellt. 
»3« führt zurück ins Hauptmenü, Werte 
ungleich »1« und »2« zurück an den Zei- 
lenanfang. Nun fällt die Entscheidung 
zwischen der Gesamtausgabe und 
dem Einzelbandausdruck an. Ab Zeile 
700 sehen Sie die Funktionsweise. 
Zuerst kommt die Variante Gesamtaus- 



















druck an die Reihe. Es wird die Auffor- 
derung zum Einschalten des Druckers 
ausgegeben und dann mit einer WHI 
WEND-Schleife die Bestätigung 
wartet. Diese einfachste Kontroll-Abfra 
ge mit WHILE/WEND ist sehr kurz und 
komfortabel. 


Drucken mit 
Doppelschleife 


Es folgt der eigentliche Druckteil, dei 
Sie vielleicht ein wenig an den Teil zu 
Datenspeicherung Deziehungewei Bi 
zum -lesen erinnert. Das Ausgabeprin- 
zip geht weitgehend identisch vor sich. 
Mit Hilfe der schon bekannten i,j- 
Doppelschleife werden zuerst (in Zeile 
730) der Bandtitel und die Anzahl der 
abgespeicherten Programme ausgege- 
ben, dann mittels j die auf diesem Band 
abgespeicherten Programme. Viel- 
leicht wundern Sie sich bei dieser Pro- 
zedur, warum alle Ausgaben mit 
PRINT#d getätigt werden. Dies haf 
einen einfachen Grund. d wird in Zeile 
680 auf 8 gesetzt und lenkt damit den 
Ausdruck normalerweise auf das Gerät 
Nummer 8, den Drucker. Wenn Sie aber 
in dieser Zeile d=O setzen, wird die 
Ausgabe auf den Hauptbildschirm 
umgeleitet. Sie brauchen beim Experi- 
mentieren und bei den ersten Laufver- 
suchen mit diesem Programm dann 
nicht immer den Drucker einzuschalten 
und meterweise Papier bedrucken. 
Zeile 780 führt zurück ins Hauptmenü 
undbeendet den Teil Gesamtausdruck. 

Die folgenden Zeilen dienen dem 
gezielten Einzelausdruck. Zuerst muß‘ 
der Computer wissen, was er über- 
haupt drucken soll. Dazu wird zunächst 
in Zeile 790 der Name des betreffen- 
den Bandes, dessen Inhalt wir erfahren‘ 
wollen, abgefragt. Es folgt eine kleine 
Suchroutine. Dabei wird Band für Band’ 
(über alle i von O bis md) überprüft, ob 
der eingegebene Name mit dem 
gespeicherten Bandtitel überein- 
stimmt. Da der CPC zwischen Groß- 
und Kleinschreibung unterscheidet, 
sind dabei sowohl der Suchbegriff als 
auch die zu vergleichenden Bandtitel in 
Kleinschrift zu konvertieren. Dazu die- 
nen die LOWERS$-Befehle in Zeile 790 
und 810, wobei in der letztgenannten 
Zeile auch der eigentliche Vergleich 
stattfindet. Solange dieser negativ aus- 
fällt, wird der nächste Bandtitel unter- 
sucht. Es gibt damit nun zwei Möglich- 
keiten, um nach Zeile 820 zu gelangen. 
Möglichkeit 1, es hat keine Überein- 
stimmung stattgefunden. In diesem Fall’ 
wird die FOR-NEXT-Schleife bis zum‘ 
Ende abgearbeitet. Im zweiten Fall 
wurde Gleichheit festgestellt. Jetzt war 
die Ungleichheitsbedingung in Zeile 
810 nicht mehr erfüllt und deshalb 
erfolgte auch kein NEXT mehr. Die 













































































chleife wurde also nicht vollständig 
abgearbeitet. 
Wir können nun den Zustand der 
Schleifenvariablen i benutzen, um zwi- 
schen den beiden Möglichkeiten zu 
iterscheiden. Nach Ausführung einer 
"OR-TO-Schleife weist die Schleifenva- 
able - in unserem Fall also i- einen um 
sen STEP-Wert höheren Inhalt als die 
Schleifengrenze auf. Da wir kein STEP 
sezifiziert haben, i sich also in Schrit- 
an zu 1 erhöht, hat i in diesem Fall den 
Wert md+1, ist also größer als md. Wir 
önnen daher mit einer Abfrage wie in 
Zeile 820 feststellen, ob die Schleife 
bereits bis zum letzten NEXT bearbeitet 
irde. Dann wird eine Negativmeldung 
sgegeben und nach einer Zeitverzö- 
Zerung ins Hauptmenü zurückgekehrt. 
sonsten enthält i die Nummer des 
esuchten Bandes in der Datei. Die 
sgabe des Bandtitels und der einzel- 
Programmnamen geschehen dann 
> bei der Gesamtdruckvariante mit 
ife einer einfachen Schleife. Von 
Bonderer Bedeutung ist in diesem 
ımenhang nur noch die Formatie- 
IC des Ausgabestrings in den Zeilen 
50 und 870. Es sollen die Programm- 
summer, der Programmname und der 
Zugehörige Zählerstand ausgegeben 
arden. Dazu benutzen wir die Funk- 
on DEC$, die einen formatierten 
String aus einer Zahl erzeugt und die 
EFT$-Funktion, die die Länge des 
sszugebenden Titels auf 22 Zeichen 
sschränkt. Hierzu noch eine Beson- 
sit: Der DEC$-Befehl wird auf- 
und eines Betriebssystemfehlers 
CPC 464 nicht richtig bearbeitet. 
Han muß daher bei diesem Computer- 
vo zwei Klammern öffnen, damit diese 
ıktion läuft. So ist DEC$ dann auch 
Listing abgedruckt. Wenn Sie das 
gramm also auf einem 664 oder 
28 laufen lassen, müssen Sie die 
weite Öffnungsklammer streichen. Bei 
ssen Computern wurde der Betriebs- 
ystem-Fehler behoben. 
Mit der Druckroutine haben wir jetzt 
= Nebenprogramme abgeschlossen 
Inc kommen zum eigentlichen Kern 
nseres Programms, den Datenbear- 
r ngsroutinen. Aus dem Hauptmenü 
arden all diese Funktionen mit der 
ummer 3 aufgerufen. Da dies eine 
äanze Reihe ist, machte ein ganzes 
seues Menü mit Unterfunktionen erfor- 
Serlich. Sie finden es ab der Zeile 630 
‘ Listing. Alle Unterroutinen, mit 
genen wir uns nun beschäftigen, keh- 
; zuerst einmal in dieses Menü 
&urück. Nur die Funktion 4 (Verlassen) 
Shrt zum eigentlichen Hauptmenü. 
AD Zeile 930 steht zunächst einmal 
> Ausgabe des Funktionstitels und 
ges aktuellen Bandes auf dem Pro- 
m. Zeile 940 gibt dazu die Datei- 
immer und die Anzahl der in ihr enthal- 
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tenen Programmtitel aus, sowie den 
Dateinamen. Wichtig ist dabei die Varia- 
ble ak. Sie enthält die Nummer des Ban- 
des, mit dem momentan (aktuell) gear- 
beitet wird. Dementsprechend findet 
sich unter n$(ak,0) der Bandname, 
unter n(ak,O) die Anzahl der abgespei- 
cherten Titel und so weiter. Nach der 
Titelausgabe wird das Inhaltsverzeich- 
nis des aktuellen Bandes in einer 
Schleife ausgegeben (Zeile 960-990). 
Die Formatierung entspricht dabei der 
Druckroutinee Nachdem wir das 
gesamte Inhaltsverzeichnis auf dem 
Schirm haben, präsentiert Zeile 1000 
das Menü. Die Abfragetechnik ist auch 
schon vom Hauptprogramm her 
bekannt: INKEY$-Schleife mit nachfol- 
gendem »GOSUB-Sprungverteilere«. 
Zeile 1030 gibt nach der Rückkehr aus 
einem beliebigen Unterprogramm wie- 
der an den Titelteil zurück. Das stellt 
sicher, daß, falls in einem Unterpro- 
gramm ein neues Band gewählt oder die 
alte Bildschirmausgabe zerstört wurde, 
diese vor jeder weiteren Abfrage erst 
einmal wieder restauriert beziehungs- 
weise neu ausgegeben wird. 


Suchen im 
»Untergrund« 
Ab Zeile 1070 stoßen wir auf ein 


Unterprogramm. Es enthält zwei Routi- 
nen, zum Suchen nach einem bestimm- 


ten Bandnamen beziehungsweise 
einem bestimmten Programmtitel. 
Diese beiden Auswahlvarianten 


erscheinen zunächst in Fenster Num- 
mer 2 durch Zeile 1070. Nachdem der 
Benutzer sich entschieden hat (Zeile 
1080), wird der Name abgefragt und, 
nachdem er in Kleinbuchstaben kon- 
vertiert wurde, in n$ abgelegt. Je nach 
Suchmodus geht es dann in Zeile 1110 
oder 1140 weiter. Den ersten Teil, die 
Suche nach dem Bandnamen, kennen 
wir bereits von der Druckroutine her. Ab 
1140 sehen Sie dann, wie die Suche 
nach einem Programmititel abläuft. Wir 
arbeiten wieder mit einer Doppel- 
schleife, die über alle Bänder und Pro- 
gramme läuft. Jeder Programmtitel wird 
dabei mit dem Suchbegriff verglichen. 
Bei einer Übereinstimmung wird dabei 
ak auf den Schleifenwert i gesetzt. 
Dadurch erhält man nach der Rückkehr 
ins Menü »Daten bearbeiten« nun die 
Datei, die den Suchbegriff enthält, aus- 
gegeben (Zeile 1160). Ansonsten führt 
eine Fehler-Meldung ohne Änderung 
von ak zurück (Zeile 1180). Durch 
Drücken von »2« im Menü »Daten bear- 
beiten« gelangt man in die Subroutine 
Blättern. Sie dient dazu, ohne Vorgabe 
von Bandnamen im Inhaltsverzeichnis 
herumzustöbern. Beim vVorwärts- 
Blättern wird das Band mit der Nummer 


ak+ 1, beim Rückwärts-Blättern das mit 
der Nummer ak-1 gezeigt. Bedingung 
dafür ist natürlich, daß die beschriebe- 
nen Bänder überhaupt existieren. 

Im Grunde müßten wir zu dieser 
Funktion lediglich ak ändern, da die 
komplette Darstellung bereits durch 
das Untermenü erfolgt. Dies hätte 
jedoch einen Nachteil im Hinblick auf 
die Bedienerfreundlichkeit. 
sich einen Eindruck über den aktuellen 
Programmbestand: verschaffen, so 
erfordert das normalerweise, einige 
Bänder zu durchblättern. Bei einer 
direkten Rückkehr ins Untermenü 
»Daten bearbeiten« müßte bei jedem 
weiteren Blättern zuerst wieder die 
Unterfunktion »Blättern« aufgerufen 
werden, bevor man dann mit »vorwärts« 
oder »rückwärts« die Bewegungsrich- 
tung festlegt. Deshalb beinhalten die. 
Zeilen 1280 bis 1310 die Darstellungs- 
routine aus dem Untermenü noch ein- 
mal. Nachdem in den Zeilen 1260 und 
1270 das neue ak bestimmt wurde, 


geben diese Zeilen das zugehörige 


Inhaltsverzeichnis aus. Danach geht es 
wieder zurück nach Zeile 1220. 

Das nächste Unterprogramm dient 
zur Änderung des Bandinhaltes einer 
bereits erfaßten Datei. Diese Funktion 
macht es möglich, ein neu erfaßtes Pro- 
gramm, das man überschrieben hat, zu 
löschen. Entsprechend zu diesen Auf- 
gaben gibt es auch einzelne Unterfunk- 
tionen. Man erreicht sie aus dem Uhnter- 
programm »Ändern« über den Sprung- 
verteiler in Zeile 1380. Die erste Funk- 
tion ist dabei das Löschen eines 
Eintrages. Zunächst wird gefragt (in 
Zeile 1430), welche Zeile des Inhalts- 
verzeichnisses gelöscht werden soll. 
Die Folgezeile überprüft, ob die ange- 
gebene Zahl überhaupt einen erlaubten 
Wert darstellt. Falls eine nicht existie- 
rende Zeilennummer gewählt wurde, so 
protestiert der CPC und kehrt ins aufru- 
fende Programm zurück. Ansonsten 
aber beginnt ein munteres Verschiebe- 
spiel. Wenn wir eine Zeile löschen wol- 
len, so geschieht dies, indem wir alle 
höherliegenden Programmtitel dieses 
Bandes um eine Position im Speicher 
nach unten verschieben. Der zu 
löschende Eintrag wird dadurch über- 
schrieben. Nun müssen wir dafür sor- 
gen, daß der Speicherplatz, an dem 
sich der oberste Programmtitel befand, 
gelöscht - so spart man Speicherplatz 
- und die Anzahl der Programmititel 


(n(ak,0)) um 1 vermindert wird. Zeile, 


1450 sorgt für diese Verschiebung. 
1460 setzt die Werte richtig, bevor man 
wieder in das Untermenü zurückge- 
langt. 

Unter der Bezeichnung »Einfügen« 
finden Sie ab Zeile 1500 die Umkeh- 
rung der gerade beschriebenen Funk- 
tion. Zuerst muß dabei geprüft werden, 
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ob noch Speicherplatz zur Verfügung 
steht. Die Maximalzahl von 15 Titeln 
darf also noch nicht überschritten sein. 
Dies übernimmt Zeile 1510. Wenn die 
Datei noch nicht voll belegt ist, wird 
festgestellt, ab welchem Titel die Einfü- 
gung stattfinden soll. 

Nun gibt es zwei Arten. Zum einen 
kann es sein, daß hiereine Nummer ein- 
gegeben wurde, die höher als die bishe- 
rige Höchstgrenze liegt. Das kommt 
vor, wenn beispielsweise ein Programm 
angehängt wurde. In diesem Fall wer- 
den einfach der neue Programmtitel 
und der zugehörige Zählwerkstand 
abgefragt und in die ausgewählte Zeile 
eingetragen (Programmzeile 1550). 
Sonst erfolgt mit einer Schiebeschleife 
die Umordnung aller Titel mit höherer 
Zeilennummer (Zeile 1560), bevor 
dann auch hier Titel und Zählerstand 
eingelesen werden. In beiden Fällen ist 
dann aber immer noch die Gesamtzahl 
der abgespeicherten Programme zu 
ändern. Dazu erhöht sich n(ak,O) um 1 
(Zeile 1580). 

Nun kann es vorkommen, daß man 
nur den Inhalt einer Zeile ändern will, 
ohne daß dabei gleich auch noch eine 
Verschiebung stattfinden muß. Der ein- 
fachste Fall ist ein Fehler bei der Eintra- 
gung, der korrigiert werden soll. Das 
Programm verfährt dann folgenderma- 
Ben: Die Zeile 1590 fragt die Register, 
in denen etwas geändert werden soll, 
ab. Danach wird in 1610 überprüft, ob 
überhaupt ein Eintrag vorhanden ist. 
Bei positiver Meldung erfolgen dann in 


REM KRRnRERRE 
REM #* Initialisierung ## 
REM ruannnnnaaeene 
INK 8,8 : BORDER B : 
il: INK 3,6 
a8 MODE 8:SPEED WRITE 1 
3 PRINT:FRINT: PRINT 


3 
PRINT" EEREREHEEER EFF FR 
98 PRINT" #15 SPACE}I#=" 


PRINT" #";:PEN 1:PRINT" BAND — KARTE 


I "s=:PEN 3: PRINT"+#" 
118 PRINT" #{15 SPACE}I#" 
BB PRINT" werunununenannnanan 
PEN 2 


PRINT: PRINT:PRINT:PRINT"von Carsten 


Straush 

WHILE i<2088 

z#=INKEY#$ 

IF z$<>"" THEN 288 

j=i+l 

WEND 

DEFINT n 

DIM n#(28,28):DIM n(28,28) 


MODE 1:WINDOW#1,1,408,1,3:WINDOW#BQ ,1, 
408,4, 22:WINDOW#2 „1 ‚48,25, 25 


 PEN#I, 1:PEN#O 
PAPER#1, 3:PAP 
REM TORTE 
REM #+#* Auswahlmenue ## 
REM Zune 


:: PEN#2 


ELS:CLS#1:CL5#2: PRINT#1:PRINT#1,"t{13 


SPACE}Auswahlmenue" 


78 FRINT:PRINT:FRINT"{?7 SPACE}IDATEI EIN 


LESENfS SPACE} (1)" 


PRINT=:PRINT"{7 SPACE}DATEI SICHERN{S 


SPACE} (2) " 


PRINT:PRINT"{7 SPACE}DATEN BEARBEITE 


Nf{3 SPACE} (3) " 


PRINT:FRINT"{97 SPACE}DATEI EINGEBEN 


> SPACE} (4)" 


PRINT:PRINT"{7 SPACE}DATEN DRUCKENt& 


SPACE} (5)" 


INK 1,24: 


#0,0: FÄPER#2 ‚a 


den Zeilen 1620 und 1630 die notwen- 
digen Änderungen. 

Ein weiterer Programmpunktim Menü 
ist die Funktion »Neuer Dateiname«. 
Hiermit kann man die Bezeichnung 
eines Bandes ändern. Bei Bedarf ist es 
auch möglich, alle alten Dateieinträge 
zu löschen. Eine einfache Lösch- 
schleife (Zeile 1710) leistet dies. Sie 
schließt auch die Beschreibung des 
Unterprogrammpunktes »Ändern« ab. 


Ändern aufeinen 


Schlag r 





Lästig ist es immer, mit Einzelfunktio- 
nen wie »Ändern« oder »Einfügen«, 
arbeiten zu müssen. Daher existiert im 
Hauptmenü noch der Unterpunkt 4. Er 
ermöglicht es, quasi im Schnelldurch- 
gang, ein ganzes Bandinhaltsverzeich- 
nis auf einen Schlag einzugeben. Ab 
Zeile 1760 sehen Sie, wie Ihr Schnei- 
der dabei vorgehen muß. In Zeile 1780 
erhöht sich die Gesamtzahl der gespei- 
cherten Bänder um 1. Voraussetzung 
dazu ist allerdings, daß noch Speicher- 
platz verfügbar ist, was aber Zeile 1770 
überprüft. Danach wird die Nummer der 
aktuellen Datei (ak) mit derneuen Ober- 
grenze gleichgesetzt. Dateiname sowie 
Anzahl und Titel der verschiedenen 
Dateien mit ihren Zählwerkständen wer- 
den abgefragt, ohne daß zwischen- 
durch jeweils eine Rückkehr ins Haupt- 
menü stattfindet. 


INK 2, 


2,1938 
GOTO 288 


alt" 
INPUT#? „md 


inhalt" 
3 PRINT#YF,md 


[53052] 
[FBö4] 
[SESC]I 
[BAB2] 
[CB85A} 
[35AC] 


CLOSEOUT 
RETURN 





REM Kanne 
REM ##* Datei einlesen ## 
REM et 
ELS:CLS#1:PRINT#1:PRINT#1,"{7 SPACE} 
Funktion Datei laden" :DOPENIN"Bandinh 


FOR i= a TO md 

INPUT#? a neuer nti,®) 
FOR j=-1 TO nti,®) 

INPUT#9 ,n$ (1,3): INPUT#9, n(i,j) 
NEXT 3z NEXT i 


REM KUuuEHEEEHEHHEe 
REM ## Datei sichern ++ 
REM Kun 
CLS:CLS#1:PRINT#1:PRINT#1,"{8 SPACE} 
Funktion Datei sichern" :0OPENOUT"Band 


FÜR i= B TO md 
PRINT#7,n$(i „@)=PRINT#9,n(i,®B) 
FOR j=1 TO nti, 08) 

PRINT#?, n$ti,j): PRINT#9,n(i,j) 
NEXT jzNEXT i 


Den Schluß unseres Programms bil- 
det eine Ende-Routine. Es stellt sich die 
Frage, wozu ein solcher Programmteil 
notwendig ist. Ein einfaches END tut es 
doch auch! Stellen Sie sich aber einmal 
vor, was passiert, wenn Sie ohne es zu 
wollen, im Hauptmenü einfach einmal 
auf 6 tippen. Und wenn sich Ihr Schnei- 
der dann »verabschiedet« und Ihre 
gerade erst neu erfaßte Datei unwieder- 
bringlich verloren ist, dann wissen Sie, 
wozu diese Kontroll-Routine dient. Ein 
vernünftiges Programm sollte alle mög- 
lichen Eingabefehler durch solche Kon- 
trollen abfangen, damit der Benutzer 
nie in die Situation kommt, nicht mehr 
weiterarbeiten zu können. 

Soweit die Erläuterungen zu dem 
Programm »Band-Kartei«. Es wird Ihnen ° 
sicher gute Dienste leisten und für Ord- 
nung sorgen. 

Ein Punkt sei aber noch erwähnt. Das 
gerade beschriebene Programm ist 
bewußt allgemein gehalten. Es bietet 
sich also an, es auch für andere Daten- 
verwaltungszwecke zu benutzen. Mit 
den dazu notwendigen Änderungen 
haben Sie nach dieser ausführlichen 
Beschreibung wohl auch keine Pro- 
bleme mehr. Dafür sorgen auch die 
Parameter md und ak. So sollten Sie 
keine Schwierigkeiten haben, aus der 
Band-Kartei ein Speicherprogramm für 
Dias oder Musikkassetten zu formen. 
Hier und bei allen anderen Erweiterun- 
gen sind Sie nun selbst gefordert. 


(Carsten Straush/hl) 


PRINT:PRINT"{97 SPACE}PROGRAMM BEENDE 
N{3 SPACE} (6)I" 

Z#=INKEY$: IF Z$="" THEN 358 ELSE IF 
ASC(Z$)<47 OR ASCtZ$) >55 THEN 358 

ON WVAL(Z#) GOSUB 418,549,7390,17680,66 


[14978] 
[3245] 


[8184] 
[COSA] 
[C8DBEI 
[7984] 
[5E8@] 


[5594] 
[CC3SE] 
£85D8] 
L?C9C] 
C45FE] 
C4F88] 
[728C) 
[DB?2] 
[454EE] 
[CE2A] 
L7FBB] 
[SC2C] 
[B?B4] 


[S15E] 
[5548] 
£B4D8] 
[3178] 


REM He 
REM #+#* Druckausgabe ## 


Listing. »Band-Kartei«, ein durchschaubares Programm 


FAAPPY® nz 
KON\RUTER! 
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REM wuunkaneeee 

d=8:CLS:CLS#1: PRINT#1:PRINT#1,"17 SP 

ACE}Funktion Datei drucken" 

PRINT:PRINT"Gesamtausdruck (1)"=:PRIN 

T:PRINT"Einzelnes Band (2)":PRINT:PR 
INT"Verlassenf{d& SPACE}{SI" 

z$=INKEY$: IF z#$="3" THEN RETURN ELSE 
IF z$<>"1" AND z$<>"2" THEN 6488 

IF z#$="2" THEN 790 | 

PRINT:PRINT"Bitte Drucker einschalte 

n!"s:PRINT"Dann Tastendruck!" 

WHILE INKEY$="":WEND 

FOR i=1 TO md 

PRINT#d: PRINT#d:PRINT#d ,n$(i,B)+"{2 

SPACE}"+STR#in(i,B))+" Programme)" 

PRINT#d 

FOR ji=-1 TO nti,®) 

z$=DEC#((j, 44) +HLEFTEC"E2 SPACE}"+n 

$(i,j)+SPACE$ (20), 22)+DEC#L(nli,j)," 

###") :PRINT#d,z# 

NEXT ji:NEXT i 

RETURN 

PRINT: INPUT"Welches Band (Titel) ";sn# 

:n$=_LOWER$ (n$)} 


888 FOR i=@ TO md 


IF LOWER$ (n$(i ,B))<>n# THEN NEXT i 


828 IF i>md THEN PRINT#2, "Eyistiert nich 


3 PRINT#d: PRINT#d: PRINT#d 


t!"s:FOR i=1 TO 508: NEXT:RETURN 
PRINT:PRINT"Bitte Drucker einschalte 
n'!":PRINT"Dann Tastendruck!" 
WHILE INKEY#="":WEND 

n$ti,B)+"{2 


SPACE} "+STR$ (n (1 ,B))+" Programmte)" 

FOR j=1 TO nli,®) - 
z$=DEC$ ( (5 ,"##")+LEFTEC"C2 SPACE} "+n 
$(i „J) +SPACE$ (28) „22)+DEC$((n(i,)), 
#4"): PRINT#d,z$ 


dB NEXT j 


RETURN 

REM Mu 

REM #* Datei bearbeiten *##* 

REM te 
CLS:CLS#1:CL5#2: PRINT#1:PRINT#1,"1{8 
SPACE}Funktion Datei bearbeiten" 
PRINT "Datei Nr.:";ak;" Name: "+n#(ak 


8) 
PRINT"akt.PRG’s: ";n(ak,®) 
FOR i=1 TO nlak,®) 
z$=DECS$ (li „ AR") +LEFTFC"TZ SPACE} "+n 
#$(ak ,i)+SPAÄCE$ (28) „22)+DEC#(intak,i) 
er ) 

RINT z# 


279798 NEXT i 
1880 PRINT#2," Suchen {1){2 SPACE}Blaett 


ern {2){2 SPACE}Aendern (3){2 SPACE 
IVerlassen (4) 

| z#$=INKEY$: IF z$="4" THEN RETURN ELS 
E IF z$<>"1" AND z$<>"2" AND z#<>"53 
" THEN 1810 


I ON VAL(z$) GOSUB 1878,1228,1558 


GEOTO 738 

REM zunnnnnH* 

REM ## Suchen ## 

REM wanna 

BEREICH TNERZ, ne (1)<£2 SPACE}Pro 
gramm (2) 

z$=INKEY$: IF z$<>"1" AND z#<>"2" TH 
EN 1088 

INPUT#2, "Name" ;n#:n$#=LDWER$ (n$) 

IF z$="2" THEN 1148 

FOR i=8 TO md:IF LOWER#$(n$#(i,B))<>n 
#5 THEN NEXT 

IF i>md THEN PRINT#2,"Nicht vorhand 
en'!"»FOR i=1 TO 5BB:NEXT:RETURN 
ak=i RETURN 

FOR i=-8 TO md 


5d FOR j=1 TO n(i,® 


- DD 2 


NEXT i 


IF LOWER$ (n$ (i „j) )=n$ THEN ak=i:RET 
URN 
NEXT ji:NEXT i 
PRINT#2,"Nicht vorhanden! '!":=:FOR i=1 
TO 528: NEXT:RETURN 
REM Kann Hnar 
REM ##* Blaettern ## 
REM Kuna 
CLS#2:PRINT#2,"{1@ SPACE}Hoechste D 
ateinummer ";md:PRINT#2,"{4 SPACE}Vo 
r (1){2 SPACE}Zurueck (2) <2 SPACE}V 
erlassen (3}" 
z#=INKEYF: IF z$<i>"1" AND z#<>"2" AN 
D zs<>"3" THEN 1238 
IF z#="3" THEN RETURN 
' CLS 
IF z$="2" THEN ak=MAX lak-i1,1) 

IF z$="1" THEN ak=MINlak+1,md) 
 ELS:PRINT "Datei Nr.:";5ak;5" Name: "+ 
n#tak,„B) :PRINT"akt.PR6G's: ";niak,®) 

FOR i=1 TO ntak,B) 

z$=DEC$ t (i „"#A#")+LEFTSC"T2 SPACE}"+ 
n#(ak,i)+SPACE$ (28) „22)+DEC$((n(ak, 
1), :PRINT z#$ 


nee 
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[4118] 


[CB74] 


[39754] 
[547C] 


CBCBö] 
[S7BC] 
[7976] 


[2B28] 
[S527E] 
L1CB4] 


[ar7C] 
£4C12] 
L7C3SE] 


[D728] 
[5572] 
[AGAZ] 


L77BA] 


[1S5BE] 
[FACA] 


[4E2ZE] 
[FA48] 


[C6E8B8] 
[3312] 
CAF42] 
(84B2] 
[837C] 
[6@B&] 


[2156] 


[62E8] 
CC9B8] 
L48CE] 


[A?DS] 
£7D18] 
[53414] 


£[SDEC]I 


[FCBA] 
[5BC2] 
[S64B2] 
[4BC2] 
[5178] 
[37Cö] 


CFC?B] 


[24&5E] 
[?7D4C] 
[BEZE] 


£[717A] 
[4618] 


[7782] 
[A448] 


L13SF8] 
[34CA] 
[S1E8] 
[38BC] 


[4614] 


L7DA6] 
[CES6E]) 
[8494] 
[243E] 
[8176] 


[852C] 
[CCC28] 


LEBöA] 


[845A] 


ECLS#2:60T0 1228 
REM KuanKHnRanen 
REM #*+ Aendern ## 


REM sus HeH HH 


ECLS#2:PRINT#2,"Loeschen {(1){2 SPACE 
3Einfuegen {2){2 SPACE}Aendern {(3)" 
:PRINT#2,"Neuer Dateiname (4)" 
z$=INKEYF: IF z#<>"1" AND z$<>"2" AN 
D zs<>"3" AND z$<>"4" THEN 15378 


a CLS#2:0N VAL(z#) GOSUB 14538,1518,15 


790,1678 

RETURN 

REM sunnnnnnHanene 

REM ##* Loeschen ## 

REM #wunnnnnnannn 

INPUT#2,"Welche Zeile";z 

IF z>ntak,®) DR ntak,Z@)=B THEN PRIN 
T#2,"Unmoeglich!!":FOR i=1 TO 5@@:N 
EXT:RETURN 

FÜR i=z TO ntak,@):n#lak,i)=nflak,i 
+1)ım(ak,i)=n(ak, i+t1)sNEXT i 
n$(ak,n(ak,®))=""in(ak,n(ak, Bi)=B:n 
(ak,B)=nlak,B)-1 

RETURN 

REM kun 

REM #** Einfuegen ##* 

REM aunnnnnnnnnnner 

IF ntak,d)=15 THEN PRINT#2,"Datei i 
st voll'!'":FOR i=1 TOD 5BB:NEXT:RETU 


RN 

INPUT#2,"Welche Zeile (1-15){2 SPAC 

E}@=Verlassen";z 

IF z=@ THEN RETURN 

IF z>15 DR z<i THEN 1528 

IF z>ntak,®B) THEN n(ak,„B)=z: INPUT#2 
,‚"Name des Programms" ın$(ak,z):INPU 

T#2,"Zaehlerstand" ıntak,„z) :RETURN 


' FOR i=nlak,@®) TO z STEP-1:n#(ak,i+i 


I=n$(ak, i)ın(ak,i+ti)entak, i)sNEXT i 


INPUT#2,"Name des Programms";n#iak, 
z): INPUT#2,"Zaehlerstand";n(ak,z) 
niak, B)=n (ak, B)+1:RETURN 

CLS4#2: INPUT#2, "Welche Zeile Q=verla 
ssen";z 

IF z=0 THEN RETURN 

IF z<1 OR z>n(ak,@) THEN PRINT#2,"K 
ein Eintrag! '":FÜOR i=1 TO 580B: NEXT: 
RETURN 


INPUT#2,"Neuer Programmname";n$(ak, 
z) 

INPUT#2,"Neuer Zaehlerstand";ntak,z 
) zRETURN 

REM Mann 

REM ##* Neuer Dateiname ## 

REM res 
INPUT#2,"Neuer Dateiname";n$lak,®B): 
n#$(ak ,Bi=LEFT#$(n$(ak,B) ,15) 
FRINT#2,"Datei loeschen j/n" 
z#=LOWER$CINKEYF)S IF z#$="n" THEN RE 
TURN 

IF z$<>"j" THEN 1590 

FOR i=1 TO 15:n$tak,i)=""ınlak,i)=® 
:NEXT:en(ak,B}=D 

RETURN 


A REM HRHHRHHRHH 


REM ## Datei eingeben *## 


REM wer 
 ELS#1:PRINT#1:PRINT#1, 


"{12 SPACE}Da 
tei eingeben" 


IF md=28 THEN PRINT#2," Dateibestan 
d erschoepft'!'":FOR i=1i TO 1BB8:NEX 
T:RETURN 

md=md+1:ak=md 

IF n=-1 THEN RETURN 

ECLS:PRINT "Datei Nr.:";ak 

INPUT#2, "Dateiname V=Verlassen";n# 
n$=LEFT#(n$,„15) 

IF LOWER$ {n#)="v" THEN md=md-1rak=m 
d: RETURN 

n$(lak,B)=n# 

INPUT#2,"Wieviele Programme"; n 
niak,@)=n 

FOR i=s 1 TOn 

PRINT#2, "Programmname "+5TR#tli);3:IN 
FUT#2 ‚n$(ak,i): INPUT#2,"Zaehlerstan 
d"ınlak, i) 

NEXT: RETURN 

REM #unHnneneneee 

REM #** Frogrammabbruch ## 


REM 


BORDER &,24:PRINT#2,"Sie haben Prog 
rammabbruch gewaehlt. Solldas Progr 
amm wirklich abgebrochen werdenj/n? 


z$5=LDWER$ (INKEY#) = IF z#="j" THEN BO 
RDER G:END ELSE IF z#<>"n" THEN 1%4 
DB ELSE BORDER 8: RETURN 


[87E4] 
[4C0®] 
[44B81 
[BAFA]I 
LCF6A] 
[FBß&] 
[@B6E] 
CFEC6] 
[8@3A] 
C[B596] 
LAD2CI 
[8F98] 
[8FCE] 
[&9EB] 
L39C9] 
[28F4] 
[O8F®1 


L149C] 
[476C] 


[5F28] 
[CF8BE] 


EBFCEI 
EFFDEI 
[6276] 
LF798) 


CA32A] 
LAFA&] 


LEF1CI 


CBC3&] 
CCB7E] 


[4518] 


7636] 


Listing. »Band-Kartei«, ein durchschaubares Programm 
RN. 











Besitzer eines Schneider CPC 
464, die ihren »Maschinenpark« 
um ein Diskettenlaufwerk erwei- 
tert haben, stehen sehr bald vor 
einem Problem: Wie läßt sich die 
vorhandene Software von Kas- 
sette auf Diskette übertragen? 
Bi. lich auch in Zukunft) ist die 
E- R% meiste Spielsoftware aus- 
schließlich auf Kassette erhältlich. 
Fe: Programme, die Kassettensoftware 
auf Diskette bringen, wie zum Beispiel 
»Iransmat«, besitzt nicht jeder. Dazu 
I. kommt, daß sie nur einen Teil der Soft- 
Ware transferieren und das oft auch nur 
mit erheblichen Eingriffen des Benut- 
zers in die kopierten Programme. Das 
heißt natürlich nicht, daß hier eine Anlei- 
x tung für jede erdenkliche Software 
SH gegeben werden kann; dazu gibt es zu 
=; unterschiedliche Konzepte. Viele Pro- 
| gramme haben sehr spezielle Laderou- 
tinen, wie zum Beispiel das Flashloa- 
ding (bei»Sorcery« undanderen Titeln), 
oder einfach ein anderes Ladeformat 
(zum Beispiel »Spy vs Spy«). Auf Grund 
der Komplexität können wir an dieser 
(a Stelle darauf nicht eingehen. 
ei: Zunächst wollen wir einen Blick auf 
En Software werfen, die ganz »ordinär« 
Er blockweise im Standardformat (»SAVE 
5“ "name”,p«) gespeichert ist. Für den 
a Transfer benötigen Sie einige Informa- 











och heute (und voraussicht- 





= tionen über das Programm. So prüfen 
E$ Sie erst einmal mit dem CAT-Befehl, in 


1m 
E | C05,%C0 





Aufhebung Listschutz CPC 454 
28 POKE &ACQ1 ,&C3:POKE &ACO2,%90,POKE &A 





| Listing 1. Aufheben des Listschutzes beim CPC 464 


Schwerftransport 


wieviele Teile sich das Programm glie- 
dert (Laderoutine, Titelbild, Hauptpro- 
gramm, etc.). 

Nehmen wir beispielsweise an, das 
Programm besteht aus zwei Teilen: zum 
einen aus dem, natürlich geschützten, 
Basic-Programm und einem anschlie- 
Benden Maschinensprache-eil. Den 
»Schutz« des Basic-Programms müs- 
sen Sie aus zwei Gründen entfernen: 
Erstens läßt es sich nicht mit einfachem 
»LOAD« und anschließendem »SAVE« 
übertragen. Dazu kommmt, daß Sie 
meist kleine Eingriffe vornehmen müs- 
sen, deren Zweck Sie später erkennen 
werden. Den Listschutz entfernen Sie 
mit Hilfe eines kleinen Programms. Für 
den CPC 464 benötigen Sie Listing 1, 
für die CPC 664/6128 Listing 2. Der 
gelistete Basic-Teil sieht wie folgt aus: 
Auf den Aufbau des Titelbildes und die 
Farbdefinition folgt der Ladebefehl und 
schließlich der Aufruf des Maschinen- 
code-Programms mit »CALL adresse«. 
Von besonderem Interesse ist für uns 
die »Laderoutine«. Sie besteht in aller 
Regel nur aus der Anweisung »LOAD 
"1”« und lädt das auf der Kassette fol- 
gende Programm. 

Wie Sie vielleicht wissen, müssen Sie 
das Ausrufezeichen durch einen Pro- 
grammnamen ersetzen, der die Bedin- 
gungen des Disketten-Betriebssy- 
stems erfüllt (acht Zeichen, eventuell 
mit einer Erweiterung von drei Zeichen 
getrennt durch einen Punkt). So ist der 
Basic-Lader bereits aufbereitet und Sie 
speichern ihn auf Diskette. 





LESDC)I 
[7582] 


18 


i,a : NEXT 







»sichtbar« 


' Aufhebung Listschutz CPC 
| 220 FOR i=&BB9F TO &BBA4 : 


sa DATA &3E,0,%32,%2C,&AE,„&C9 


Listing 2. Auch beim CPC 664/6128 Programme wieder 












Die Übertragung des Maschinenco- 
des kostet ungleich mehr Mühe: Sie 
müssen seine Ladeadresse und Länge 
herausfinden. Lädt und startet de 
Basic-Teil das Maschinenprogramm 
nicht über »LOAD ”!”:CALL adresse«, 
sondern mit »RUN”!”«, benötigen Sie’ 
noch zusätzlich die Startadresse. Hilfe 
finden Sie in Listing 3. Diese Hilfsrou- 
tine liest die entsprechenden Informa- 
tionen aus dem sogenannten Header 
des jeweiligen Speicherblocks. 

In unserem Beispiel ist die Lade- 
adresse 40000 und der Maschinen- 
code 1500 Byte lang. Geben Sie nun 
folgende Basic-Zeilen ein: | 


10 OPENOUT "DUMMY”: 
MEMORY 40000-1:CLOSEOUT 
20 ITAPE.IN : IDISC.OUT 
30 LOAD ”” 
40 SAVE ”"name”,b,40000,1500 


Zeile 10 richtet mit dem OPENOUT- 
Befehl einen Pufferbereich von 4096 ° 
Byte ein. Das ist wichtig, denn wenn der 
Maschinencode ab einer Adresse 
unterhalb 5000 beginnt, erscheint bei 
fehlendem Puffer und »LOAD« nur noch 
die Fehlermeldung »MEMORY FULL«. 
Der MEMORY-Befehl setzt den HIMEM- 
Zeiger herab und reserviert den nach- 
folgenden Speicherbereich für den 
Maschinencode. Zeile 20 kanalisiert 
den Datentransfer in die gewünschte 
Richtung. Zeile 30 lädt das nächste ver- 
fügbare Programm von der Kassette. 
Die Auswahl der richtigen Datei treffen 
Sie, indem Sie das Band vorher an die 
entsprechende Stelle spulen. Zeile 40 
schließlich speichert das Programm auf 
Diskette. Mit diesem einfachen Rezept 

Fortsetzung auf Seite 50 





CABEBI 


L12D2] 
r44B&6] 


6644/6128 
READ a : POKE 
















An IF t=2 OR t=3 THEN PRINT"BINAER"; [556A] 





























200 

4 * Headerreader + 218 IF t=1 OR t=3 THEN PRINT" GESCHUETZT 
1% EZ 2 2 2 2 2 2 2 2 22 22 20 [SEBB] u | [(4A54] 
2, 28 INK 9,0:BORDER @: INK 1,24: INK 2,18: IN 228 PRINT [4582] 
B*: K 3,15 [59B6] 238 PRINT"{CTRL J}{CTRL OITCTRL A)Anfang 
< 35B ON ERROR GOTO 3 [B8FACI sadresse: {CTRL O}{CTRL B}&";HEX$(a, 
Es 48 MODE 1::!TAPE "Umschalten auf Cassette 4)3 USING "{3 SPACE}I{CTRL OF{CTRL C} 

2 C75DA] „a CIESCI 
Ar 5@ filenames="" CDDD&] 248 PRINT"{CTRL J}{CTRL OItTCTRL A}Progra 
Im. 60 »=&BBBC:0PENIN "" [937A1l mmlaenge: {CTRL O}{CTRL B}&";HEX$(l, 

e 7@ * Wie heisst das File? CD8B4] 4)zUSING "{3 SPACE}TCTRL OF{CTRL C} 
De; 8@ FOR i=x TO x+15 [4132] HanHh"; 1 [CEA2] 
' 7@0 a=PEEK(i):IF a=® THEN a=32 [BESE] 258 PRINT"{CTRL JItCTRL O}{CTRL A)Starta 

” 180 filename$=filename$+CHR$ (a) :NEXT CBBIE] dresse{2 SPACE}: {CTRL DY{CTRL B}IR&"; 
14 118 t=PEEK(x+18) "Welches Programm [73B8] HEX$(s,4) 3 USING "{3 SPACE} {CTRL 0>{C 
[5 128 1=PEEK (x+24)+256#PEEK (x+25) ‘Laenge L[72C8] TRL C} #####";s [B1CB] 
NR” 158 a=PEEK (x+21)+2564#PEEK (x+22) "Anfang L[B99EI 268 PRINT" {CTRL O}{CTRL A}"sCLOSEIN [C7C®] 
IhER. 140 s=PEEK (x+26) +256#PEEK (x+27) "Start LE3SE] 278 PRINT"{CTRL JICCTRL JItCTRL J}Weiter 
Ya 158 " Alle Daten anzeigen [C31F8] es Programm untersuchen? {(J/N)" (F548] 
Ya 158 CLS [8332] 288 WHILE as<>"J" AND as<>"N"sa$=UPPER$ 
rn 178 PRINT"{CTRL OF{CTRL A}Progr ammname {2 __ INKEY$) :WEND [881A] 
N SPACE}: {CTRL OI{CTRL B}";filenames 298 IF a$="J" THEN RUN ELSE CLS:END LASF4] 
RG® [8874] SaO@ RESUME NEXT ’Fehlerbehandlung aus [7Ca2] 
2 188 PRINT"{CTRL JItCTRL 0O>{CTRL A}Progra 

bi mmart{3 SPACE}: {CTRL O}{CTRL B}"; nt 

x [4058] 


19@ IF t<2 THEN PRINT"BASIC"; Listing 3. Im Programmkopf stehen wichtige Informationen 











Erfüllt dieses Sonderheft Ihre Anforderungen? 
Haben Sie es gerne gelesen oder bereuen Sie den 
Kauf? Damit wir uns besser auf Ihre Wünsche ein- 
stellen können, schicken Sie uns bitte den Frage- 
bogen zurück und gewinnen Sie mit etwas Glück 
einen der wertvollen Preise. 


* 1 Diskettenlaufwerk FX-1 
gestiftet von Vortex 


* 1 Speicherkarte SP 512 für 
£PC 464 oder 664 von Vortex 


* 3 CP/M-Programme (Word- 
star, dBase Il oder Multiplan) 
freier Wahl 


* 10 Gutscheine über ein Buch 
freier Wahl aus dem 
Markt & Technik Verlag 


* 10 T-Shirts im »Happy- 
Computer«-Look 








Um an unserer Verlosung teilzunehmen, müssen Sie nur den 
folgenden Fragebogen ausfüllen und bis zum 31. Juli 1986 an 
uns zurückschicken. Unsere Adresse: 












Bedaktion Happy-Computer 

Warkt& Technik Verlag AG 
Kennwort: Schneider 
Hans-Pinsel-Straße 2 

#013 Haar bei München 

Der Rechtsweg ist ausgeschlossen. 





ya 
ar ale = A 
“ m’ [r Fr rH ü 











Fragebogen 

= ! 2 
zum Schneider-Sonderheft 
von Happy-Computer 
Wie hat Ihnen dieses Sonderheft insgesamt gefallen? 
[| sehr gut [] gut 
U] mittel [| weniger gut 
U] gar nicht Dee 
Wie fanden Sie die einzelnen Rubriken? 

sehr weniger 
interessant interessant interessant 

Hardware = [] U] 
Software [| [ [ 
Basteleien [] [] D 
Grundlagen E [| U 
Joyce-Teil u [] [ 
Einsteiger-Teil u mw I 
CP/M-Teil [] [1 [ 
Anwendungs-Listings [] [] = 
Spiele-Listings [1 [ ws 
Tricks& Tips [| U [1 
CP/M-Tips m [1] = 


Welche Beiträge haben Ihnen am besten gefallen? 
FAT: nn 

BE: s= | 

VL AS ANREDE en 
Mn en Tag 5 Fee SS en Fe a 

D. LI 2 

Welche Beiträge haben Ihnen gar nicht gefallen? 
cur I DS I Fa 


Al 








| AN /elche Themen sollen in weiteren Sonderheften behandelt 
z werden? 
Be 
2:6. 


Welche Themen sollen in Happy-Computer ausführlich 
_ behandelt werden? 


Wie oft würden Sie sich ein Sordeihent oder eine spezielle 
 Schneider-Zeitschrift von Markt & Technik kaufen? 


- Oimonattlich 
 D vierteljährlich 


[| zweimonatlich 
U] halbjährlich 


e teuer darf Ihrer Meinung nach ein spezielles Schneider- 
t sein? 


n nderheft ___ 


Er 


Mark . Zeitschrift___ Mark 


Welche Computer-Zeitschriften lesen Sie regelmäßig? 
| Kaufen 


Lesen‘ 


Iche Schneider-Sonderhefte von Happy-Computer haben 
ah schon gekauft? 


| Er OD 1. Schneider-Sonderheft (SH 2/85) 
z D 2. Schneider-Sonderheft (SH 1/86) 
n a 3. Schneider-Sonderheft (SH 4/86) 


5 We Ichen Computer besitzen Sie? 
_ DICPC 464 DICPC 664 
oO |CPC 6128 OD] Joyce 


Haben Sie vor, sich 1986 einen anderen Computer zu kaufen? 
ja 


L] Wenn ja, welchen? 


[nein 


U] ein anderes Gerät von Schneider, welchen? 
U] Atari ST [|] Commodore 64/128 
Commodore Amiga L] MS-DOS-Computer 


Welche Peripherie besitzen Sie für Ihren 
Computer? 

[|] Diskettenlaufwerk, Type? 

U] Zweitlaufwerk, Type? | 

[] Speichererweiterung, Type? 

UL] Drucker, Type? 

[] Modem, Type? _ 

[1] RS232-Schnittstelle, Type? 

[] Sonstiges? 


Welche Peripherie wollen Sie sich demnächst noch kaufen? 
D Diskettenlaufwerk, Type? | 

U] Zweitlaufwerk, Type? 

U] Festplatte, Type? 

D Speichererweiterung, Type? 

L] Drucker, Type? 

[] Modem, Type? 

[] RS232-Schnittstelle, Type? 

L] Sonstiges? 


Welches Peripheriegerät würden Sie, falls Sie gewinnen, 
bevorzugen? 

UL] FX-1-Station von Vortex 

U] Speichererweiterung für 464/664 von Vortex 


Ich bin damit einverstanden, daß die hiergemachten Angaben 
elektronisch verarbeitet werden. | 


Anschrift: 
Name/Vorname 
Straße 

PLZ/Ort 








über 100 Prozeduren und Funktionen Ir 


TURBO-Lader-Grundpaket 
Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf- 
gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietet ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
Anwendung von Splinefunktionen, Fourier- 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu- 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert. 

Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compiler. Es ist liefer- 
barauf3”-und5 1/4 "-Disketten undlauffä- 
hig auf dem Schneider CPC 464, CPC 664, 
CPC 6128 und Joyce. 

3"-Disk. Best.-Nr. MS 413 

51,”-Disk. Best.-Nr. MS 415 


DM 138,-IsFr. 125,-/öS 1380, 


"inkl. MwSt., unverbindliche Preisempfehlung. 





TURBO-Lader Business 


TURBO-Lader Business umfaßt einen kom- 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator gibt dem Pascal-Program- 
mierer ein Werkzeug zur einfachen Bearbei- 
tung von Bildschirm-Masken indie Hand. Eine 
Maske kann beliebig viele Textfelder, bis zu 
128 Eingabe- und 128 Ausgabefelder enthal- 
ten. Eingabefelder können auf komfortable 
Art editiert und auf Gültigkeit überprüft wer- 
den. Das Dateiverwaltungsmodul unterstützt 
die Programmierung von Datenbankanwen- 
dungen und Stammdatenverwaltungen. Es 
besteht aus einer komfortablen Datensatz- 
und Indexverwaltung mit mehreren Schlüs- 
seln und Index-Dateien, die einen sekunden- 
schnellen Zugriff auf beliebige Daten ermög- 
licht. Mit diesen beiden Modulen stehen dem 
Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im kom- 
mentierten Quellcode für den TURBO-Pas- 
cal-Compiler ausgeliefert. 


TURBO-Lader Business erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3”- 
und5 1/4 *-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 

3"-Disk. Best-Nr. MS 423 

51,"-Disk. Best.-Nr. M5 425 


DM 148,-IsFr. 132,-165 1480, 


JETZT AUF SCHNEIDER-COMPUTERN: 








TURBO-Lader Science 
TURBO-Lader Science ist eine Sammlung 
technisch/wissenschaftlicher Funktionen 
und professioneller statistischer Verfahren 
für die Bereiche Medizin, Betriebs- und Volks- 
wirtschaft, Technik und Naturwissenschaf- 
ten. Das Modul enthält alle arithmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar- 
stellung und die wichtigsten komplexen 
Funktionen wie Potenz, Wurzel, trigonometri- 
sche, transzendente und exponentielle Funk- 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil ist 
ein praktisches und direkt verwendbares 
Werkzeug zur computerunterstützten, effek- 
tiven Datenanalyse. Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer- 
punkten Regression und Korrelation, des- 
kriptive Statistik, Faktoranalyse und Testver- 
fahren. Alle Routinen werden im kommentier- 
ten Quellcode für den TURBO-Pascal- 
Compiler ausgeliefert. 


TURBO-Lader Science erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3"- 
und5 1/4 ”-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 


3"-Disk. Best.-Nr. MS 433 
51,"-Disk. Best.-Nr. MS 435 


DM 189,-IsFr. 169,-1öS 1890,* 


Übrigens können Sie auch alle TURBO-Pascal-Produkte für Schneider CPC 464166416128 und Joyce bei Markt & Technik beziehen: 


_ TURBO Pascal 3.0, Best-Nr. MS 514 (CPC), Best-Nr. MS515 (Joyce) DM225,72* -TURBO Tutor (englisch), Best-Nr. MS 544 (CPC), Best-Nr. MS 545 (Joyce) DM 104,86” 
- TURBO Pascal 3.0 mit Grafikunterstützung, Best-Nr. MS 524 (CPC) DM285- _ -TURBO Graphix Toolbox, Best.-Nr. MS 564 (CPC) DM 225,72* 


- TURBO Tutor (deutsch), Best-Nr. MS 534 (CPC), Best.-Nr. MS 535 (Joyce) DM 104,86* 


- TURBO Toolbox, Best.-Nr. MS 554 (CPC), Best.-Nr. MS 555 (Joyce), DM 225,72* 


TURBO-Pascal® ist ein Warenzeichen der Borland Inc., USA. TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Wallnitz. 





Diese Markt& Technik-Softwareprodukte erhalten 


Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 


Wenn Sie direkt beim Markt& Technik Verlag 
bestellen wollen: 


Nur gegen Vorauskasse, Verrechnungsscheck 


oder mit der eingedruckten Zahlkarte. 





Markt&drechnik 


Bestellungen im Ausland bitte an 
untenstehende Adressen: 


Schweiz: Markt& Technik Vertriebs AG, 


Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


Österreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 0222/481538-0 
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FEN 


m: 
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WU Par \ 
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En: 


> 


FÜR i=2000 TO 2027 
READ a : POKE i,a 
NEXT : SAVE "move.bin",b,2080,28 
DATA 221,78,2,221,70,3,221,110,4,221, 
102,5,229,175,237,82,225,56,0,235,.9,> 
35,27,9,43,237,184,,201 





[F73FE] 


[SC5A] 
Listing 4. Eine Verschieberoutine hält das DOS-RAM frei 
18 '* Transferprogramm fuer headerlose * 
* Files von Cassette auf Diskette 






























.* [BES2] 

20 '# Das Programm ist NICHT fuer * 

* RAUBKOPIEN gedacht '!!ııı 

= [C2Ds] 

so '* (c} 1984 by ms-Software * 
CBSFA]I 
48 MODE 1 Ci1F4] 
SQ as="" [7316] 

&8 FOR n=1 TO 12:READ x: a$=a$+CHR$ (x) ı NE 
x; [C418] 

78 INPUT "{CTRL OF{CTRL Arfnfangsadresse 

= {CTRL O}{CTRL B}" ,anıx$=HEX$(an,4): 

MID$(a$,2,2) =CHR$ (VAL ("&"+RIGHT$ (x$,2 
I) ) +CHR$ (VAL ("&R"+4LEFT$(K$,2))) [7842] 

88 INPUT "{CTRL OF{CTRL A}laenge: {CTRL 

O}£CTRL B}" „larx$=HEX$(la,4)ıMID$ (as, 

4,2) =SCHR$ (VAL ("&"+RIGHT$(x$,2) ) ) +CHR$ 
(WALU"&"+LEFT$(x$,2))) [758€] 

98 INPUT "{CTRL O3{CTRL A}Satzkennzeiche 

nz {CTRL O>{CTRL B}" „saıx$=HEX$(sa,2) 
:MID$(a$,8,1)=CHR$ (VAL ("&"+4$)) [A31C]I 
1B0 IF an<ß THEN an=an+2”1& [2EBE] 

i1@ IF an>HIMEM THEN 128 ELSE OPENOUT "d 
ummy":=:MEMORY an-1:CLOSEOUT [6616] 

128 fr=FRE("")2CLS:a=PEEK (@a$+1) +254#PEE 
Ki@as+2):CALL a [F84C] 

158 PRINT"{CTRL JItECTRL JICCTRL JIECCTRL 

O}{CTRL A}Soll ich das Programm auf = 
 Diskette{& SPACE})speichern (J/N)" [ABI1E] 

148 WHILE a$<>"J" AND a$s<>"N"ı a$=UPPERS$( 
INKEY#) : WEND [5518] 

150 IF as="N" THEN CLS:END ELSE INPUT "{ 

CTRL J}{CTRL J}Bitte Dateiname einge 
ben: {CTRL OP{CTRL B} ",as [394A] 
160 SAVE ""+a$,b,an,la+1:END CBAD2] 
17® DATA %21,2:.00,200 [9FBEI 
1BB *" LD HL,&xuxx Anfangsadresse [LF4F6] 
198 DATA &11,%:00,%&D8 CBACO] 
zuU0 ° LD DE,&xxxx Laenge [8420] 
2180 DATA &I3e,2:00 [A&BA] 
220 * LD A,&ıx Satzkennzeichen [C244] 
258 DATA &cd,&kal,kbce | [24AE] 
240 ° CALL &BCAl CAS READ [7802] 
| 258 DATA &c9 [6F66] 
| 268 ' RET Zurueck ins BASIC [833E] 





Listing 5. Auch »kopflose« Kassetten-Dateien sind kein 






[81BC] 


| »Rutsch« 





AHHHHHHHRHHHHHHHHH 
* Screensave in einem Block # 
EEE EEE 








[82BE] 
28 MODE 2:S5PEED WRITE 1 [8148] 
>@ DEG [C2A6] 
40 FOR n=@ TO 348 STEP 2 [A828] 
SB MOVE 328+209+SIN (n*2) ‚2B0+2890*SIN(n): 






DRAW 328-288*C0S (n) „2B@-288*SIN (n) NE 
AT 


FOR n=4B88808 TO 48811 














CB18C1 
88 READ x:POKE n,x:NEXT [4BAB] 
92 CALL 40000: END [3D941 
108 DATA %21,%00,&c0 (87161 
11B " LD HL,%&COaa Anfangsadresse [88CE] 
122 DATA %11,%00,&40 [CBBA] 
138 * LD DE,&4B00 Laenge C4EECI 
140 DATA %3e,&01 LAICHI 
158 * LD A,%&81 Satzkennzeichen [CB52A] 
160 DATA &cd,&9e,&be | [69CA] 
178 * CALL &BC9E CAS WRITE [7@CC) 
180 DATA &c9 LAC&A] 
198 ° RET Zurueck ins BASIC [9E421 






Listing 6. Speichern Sie beliebige Binär-Dateien in einem 







Een 
* Screenload in einem Block # 
EEE EEE EEE 


MODE 2 
MEMORY 39999 

FOR n=4@008 TO 40011 
READ x:POKE n,xıNEXT 
CALL 40000 


oder auch =:DISC:SAVE "SCREEN" ,b,&c0 
20 ,%4008 
D DATA &21,%809,&cD 
" LD HL,&C200 
118 DATA 211,%:00,%40 
128 " LD DE,„%4008 
158 DATA %3e,&Q1 
1490 " LD A,&B1 
@ DATA &cd,&al,&bc 
- CALL &BCAi 
DATA &c9 
" RET 


Anfangsadresse 
Laenge 
Satzkennzeichen 
CAS READ 


L1As83 | 


Zurueck ins BASIC [FF4@] 


Listing 7. Ladevorgänge von Kassette in fast 





Problem 


lassen sich viele der gängigen Pro- 
gramme auf Diskette »schaufeln«. 
Schwieriger wird es, wenn der 
Maschinencode eines Programms 
einen Teil des RAM-Speichers belegt, 
der vom Disketten-Betriebssystem 
(DOS) reserviert ist (bei AMSDOS sind 
das 1280 Byte ab Adresse 42620). 
Wenn Sie ihn normal zu laden versu- 
chen, bricht der CPC beim Überschrei- 
ben dieses reservierten Bereichs ab 
und meldet »BAD COMMAND«. Also 
müssen Sie den Maschinencode in 
einen niedrigeren Speicherbereich 
laden, um ihn dann an die ursprünglich 
vorgesehene Adresse zu verschieben. 
Den Maschinencode-Profis unter Ihnen 
fällt hierzu natürlich sofort das Stich- 


wort »LDDR« ein. Der Z80-Prozessor 


stellt für so eine »Schiebung« nämlich 
zwei mächtige Maschinenbefehle zur 
Verfügung: »LDIR« und »LDDR«. Aus 
Basic sind diese Befehle jedoch nicht 
direkt greifbar. Deshalb müssen Sie 
sich mit einer Basic-Routine (Listing 4) 
helfen, die den notwendigen Maschi- 








der halben Zeit 


nencode in den Speicher POKEt. Die 
erzeugte Maschinenroutine ist im Spei- 
cher frei verschiebbar. Solange noch 
ein paar Byte für Basic freibleiben, kön- 
nen Sie folglich das Maschinenpro- 
gramm so tief herunterladen, wie Sie 
wollen (oder müssen). 

Unser zweiter fiktiver Transfer- 
Kandidat hat eine Länge von 40 KByte 
und belegt normalerweise den Spei- 
cherbereich von Adresse 3000 bis 
43959. Um das DOS-RAM freizuhal- 
ten, genügt es, die neue Ladeadresse 
auf etwa 1500 zu verlegen. Die 28 Byte 
der Verschieberoutine legen wir darun- 
ter, deshalb die Befehlsfolge »OPEN- 
OUT ”dummy” : MEMORY 1500-28 : 
CLOSEOUTe. Laden Sie nun zuerst von 
Diskette mit »LOAD ”MOVE.BIN”, 
1500-28«. Dann schalten Sie auf Kas- 
sette um »|ITAPE.IN« (oder bei VDOS mit 
»ICAS.IN«) und laden mit »LOAD 
"name”,1500« das Hauptprogramm. 
Der Aufruf »CALL 1500-28,1500, 
40960,3000« verschiebt dann den 
Maschinencode auf die richtige 




























Adresse. Die Argumente zum CALL- 
Befehl bedeuten in der Reihenfolge von 
links nach rechts: Einsprung der Ver- 
schieberoutine, Basisadresse, Länge 
und neue Basis des zu verschiebenden 
Programms. 

Eine weitere Steigerung des Schwie- 
rigkeitsgrades bedeutet es, wenn das 
Programm, das Sie kopieren wollen, 
den Speicherbereich von unten an 
belegt, in dem normalerweise die 
Basic-Programmeresidieren. So istbei- 
spielsweise das Spiel »3D-Grand-Prix« 
nur ab Adresse 40 hex lauffähig. In sol- 
chen Fällen müssen Sie sich ein Trans- 
ferprogramm in purem Maschinencode 
schreiben. Um derartige Probleme zu 
lösen, ist allerdings Erfahrung in der 
Assemblerprogrammierung und Kennt- 
nis der Speicherbelegung des CPC 
nötig. Als sehr gutes Handwerkszeug 
haben sich zwei Bücher bewährt, die 
keinem »Freak« in der Sammlung fehlen 
sollten: das »CPC-Firmware-Handbuch« 
von Schneider und von Markt&Technik 
»ROM-Listing-CPC 464/664/6128«. 













BC9IE hex 


Mat alle. Die bei Programm-Transfer relevanten Firmware- Routinen 


Aus dem ersten erfahren Sie alles Wich- 
öoe über die Nutzung von Betriebssy- 
stem-Routinen aus Maschinensprache 
Sund zum Teil auch aus dem Basic). Das 
zweite Buch geht noch ein paar Schritte 

fer und zeigt Ihnen auch die trick- 
sichsten Kniffe. Was macht man zum 
3eispiel, wenn ein Programm den ge- 
amten Speicher vom Basic-Start bis 

zum DOS-RAM belegt? Wohin dann 
der Transfer-Routine? Gut, wenn 
an in so einem Fall mal eben nach- 
schlagen kann, um festzustellen, daß 
Se kleine Routine auch im Puffer des 
sic-Editors bei den Adressen ACA4 
s ADA5 hex (CPC 664 und 6128: 
\8 bis AD8B hex) oder im Basic- 
tack zwischen AE8B hex und BO8A 
x (CPC 664 und 6128: AE6F bis 
BOBE hex) Platz findet. 


RUN an den Feind 


Die nächste Problemgruppe sind 
*ogramme, deren Laderoutine bereits 
2S inancode besteht. Natürlich 
Es auch hier gegebenenfalls die 

iteinamen für das Nachladen der rest- 

Shen Programmteile zu ändern. Mit 
nem Monitor-Programm ist das auch 
ür weniger Geübte kein unüberwindli- 
ss Problem. Weit weniger erfreulich 
sine Eigenheit des Betriebssystems, 
Se sich spätestens dann bemerkbar 
nacht, wenn Sie das Programm mit 
"name”« zu laden versuchen: 


HM 


| Unterdrückt Meldungen des 

Kassetten-Managers 

(»LOADING NAME BLOCK XX«) 
| oder _ sie wieder zı zu 






























Schreibt eine handerlose Datei 
| {wirkt nur bei Kassette) 






A \Nenn ungleich Null, 
erfolgen keine Meldungen 






| B Länge des Dateinamens 
HL Adresse des Namens 
| DE Adresse des 2-KByte- 
Puffers 













| HL Anfangsadresse 
DE Dateilänge in Byte 
A Satzkennzeichen 


Nach Starten der Laderoutine ertönt im 
Computer ein schmatzendes »Klick« 
und nichts geht mehr! Was nun? 

Ganz einfach, der Befehl RUN ruft 
beim Laden von Maschinencode- 
Programmen eine verhängnisvolle 
Firmware-Routine auf: MC-BOOT- 
PROGRAM. Diese wiederum lädt und 
startet zwar wie gewünscht das Vorpro- 
gramm, schaltet aber gleichzeitig »so 


ganz nebenbei« sämtliche Erweite- 
rungs-ROMs ab. Zu jener Gattung 


gehört jedoch auch das DOS-ROM, so 
daß der Computer sofort seine diploma- 
tischen Beziehungen zum Disketten- 
laufwerk abbricht. 


In den meisten Fällen hilft hier ein kur- | 


zes Basic-Programm, das den Lader 
ohne RUN startet und mit auf der Dis- 
kette gespeichert ist: 

10 MEMORY ladeadresse-i1 

20 LOAD ”"name” 

30 CALL startadresse 


Als ob es nicht schon schwierig 
genug ist, gibt es noch subtilere 
Speicher-Mechanismen: Programme, 
bei denen das Hauptprogramm aus nur 
einem einzigen Block ohne Header 
besteht. Auch das ist ohne weiteres aus 


der Firmware der CPCs herauszuholen. 
Der Aufruf dieser Laderoutine erfolgt 


über die Adresse BCA1 hex, ist jedoch 
nur aus Maschinensprache heraus zu 
realisieren, da verschiedene Register 
benötigt werden. Zuerst müssen Sie 


Fortsetzung auf Seite 162 | 





| Lords of Midnight 


| Rembrandt 


COMPUTER DIVISION 


JONGER 


Personal-Computer/ 


Textsystem 
| Für alle, die schreiben, 


rechnen und denken. 


e Rechner 

e Programme 

e Bildschirm 

® Diskettenlaufwerk 
e RAM-Floppy 


nr 


® Drucker 


BR NIE 


Holen Sie sich Ihren JOYCE. 


8000 München 45 


| Ingolstädter Straße 5BL 
ä a 


gegenüber 
SUMA+METRO 


I Tel 089/31 8909-31/66/53 


in Nümberg: 09 11/595097 
In Darmstadt: 06151/26343 


Nachfolgend ein kleiner Auszug 
aus meiner zur Zeit gültigen 
Preisliste für Schneider Soft- 
und Hardware: 

Disc 
Graphic Adventure Creator 
Zania, das Superadventure DM 59— 
DM 45.— 
Kass. 
DM45— DM50— 
Way ofthe Tiger DM32— DM48— 
Zolds DM 28.— 
Yie Ar Kung Fu DM283— DM40— 
Lord of the Ringg DM 45— 
ROM Software ebenfalls liefer- 
bar, z.B.: 
MAXAM Rom-Modul 


Alle weiteren ARNOR und sämt- 


| liche PRIDE Programme als 
| ROM lieferbar. 


| VORTEX Speichererweiterung SP 512 
| {mit Befehl DISBOS) 


| F1/D Dual 5,25 Diskettenstation ([Doppel- 


nur DM d48.— 


laufwerk) mit V-DOS 2.0 nur DM 1448,— 
Speicheraufrüstung bestehend aus acht 
256 K, 150 ns Chips einmal Deköodierchip 

nur DM 125.— 


Endlich lieferbar: MIDI-InterfaceDM 548— | 


Weitere Angebote in meiner 
ausführlichen Preisliste. Bitte 
kostenlos Liste HASP (bitte an- 


| geben) anfordern. 


Roland Kunze 
Postfach 140526 
4800 BIELEFELD 14 





DM so— | 


DM 198 — | 
EPROM DM 148— | 


o1 





| m seinen Computer bis ins Detailkennen undnutzen aus noch ein. Um Ihnen das zu ersparen, haben wir für Sie 
zu lernen, braucht man Literatur. Da sich nun aber Bücher zusammengetragen, die sich in irgendeiner Form mit 

> fast jeder Verlag dankbar jeden neuen Themas dem CPC beschäftigen. Somit dürfte für jeden etwas dabei 
ar annimmt, erscheint jeweils innerhalb kürzester Zeit eine sein. Wirhaben einem schnellen. Überblick Rechnung getra- 


an m mehr überschaubare Menge neuer Bücher. So steht gen und die Bücher nach Fachgebieten geordnet. 
n dann oft hilflos vor dem Bücherregal und weiß nichtmehr 


(Udo Reetz) 








Hier können Sie weitere Informationen einholen 








ur; 





stik schaffen Sie es, Ihr Startkapital zu vermehren. Da die 
komplette Bedienerführung menügesteuert abläuft und das 
Listing mit reichlich Kommentaren versehen ist, erübrigt sich 
eine detaillierte Bedienungsanleitung. In der Schlußbewer- 
tung erfahren Sie, ob sich eine berufliche Veränderung emp- 
fiehlt oder Sie wohl doch besser Ihren derzeitigen Job behal- 
ten sollten, um nicht den Hungertod sterben zu müssen. 
Damit Sie jedoch nicht verzweifeln, hat »Öl« zur Aufmunte- 
rung stets einen lockeren Spruch »auf den Lippen«. 
(Andreas Gundlack/Stefan Bürgel/ja) 





Nicht nur »Dallas«- und »Denver«-Süchtige wer- 
den mit »Öl« ihre wahre Freude haben. 


ie der Name schon sagt, dreht sich beim Spiel [== ee 
»Öl« alles um das große Geschäft mit dem flüssi- Fr amı 
gen Gold. Zur Einstimmung in Ihre neue Rolle als 
Mitglied der großen Ewing-Familie spielt der Computer nach 
Sem Programmstart die amerikanische Nationalhymne. 
Danach erhalten Sie die einmalige Chance, Ihr Glück im har- 
ten Geschäftsleben zu versuchen. Nur durch wohlüberlegte | Datentranar 
Investitionen in Ölfelder und Maschinen sowie perfekte Logi- | ger 


re a 


Computer: CPC 464/664/6128 


Cnecksummer 


| Kassette/Diskette 









































































“10 


Eu. 


= ä 


SE Zu 5 2 0 u 2 an u DS u u u 0 2 a Zu d Zu 2 2 0 Z 0 2 2 20 


$(143) :NEXT | 
LOCATE 7,19sPRINT"Ein Spiel von AGSB 
C-Software" 


[37AC] 
[6212] 





Listing. Haben Sie das Zeug zum 


Ölmagnaten? 





18 428 LODCATE 4,22:CALL &BBFC: PRINT CHR#(1& 
PERERBERTTETLE nn [BC1E] 4):" By Sundlack & Buergel „ 1785":C 
28 REM ###+#*+*+ Andreas Gundlack %& Stefan ALL &BBFC C71iE4] 
Buergel #####%## [4EBCI 438 LOCATE 18,25:PRINT"Abbrechen mit ENT 
38 REM rauen 35050 Wunstorf 1 ## ER" CDD28] 
+ [C858] 4498 GOSUB 25980 [2152] 
48 REM Hs 590 Del HEHE 450 REM esse [C35A] 
a a a ZZ 0 2 2 20200 CA1i18] 458 REM Daten fuer die Delfelder LCE1B8] 
sa REM HR 478 REM Hehe L475E] 
ES 2 ZU ZZ 2 2 2 2 202 2 20202 [C825] 4808 DATA Overquell „31768B,1827,1630888 [CBOaCC] 
#68 REM Hs [A758] 498 DATA Blackgold,72435,1374,19710000 [545E] 
70 REM Anfangsgrafik [C477A] sa@ DATA Happyoil ,„28298,2437 ,1445008 C[CBBEB] 
88 REM run [295C] 518 DATA Ewingbohr ‚180909 , 787 , 2840088 [3374] 
7@ MODE 1:BORDER 1:INK @,1:INK 1,26:PEN 528 DATA Luckyhole,47372,1787,1740080 [58C&6] 
1:PAPER 8:CL5 C743C] 535Q@ RESTORE 488 [7B30] 
iBB SPEED KEY 28,1 [7514] 548 FOR a=i TO 5 C3D4E]I 
iiß@ PEN 3:FOR i=18 TO 17:L0OCATE i,4:PRIN s58 READ of#(a) ,ofp$(a),btf(a) „gfmta)ıNE 
T CHR$1(143) :NEXT CBB48] AT a [Ca28] 
128 FOR i=4 TO 13:L0OCATE 17,i:PRINT CHR$ Std REM waunuennnnn CDFC2] 
(143) :NEXT [5D58] 578 REM Hauptprogr amm [884E] 
138 FOR i=1& TO 11 STEP-1:LOCATE i,„13:PR s38 REM HH [BF7C&]I 
INT CHR$1143):NEXT CEB38] s5?8 MODE 2:PEN 1:Kk=-150B08 [C556] 
148 FOR i=13 TO 4 STEPF-1:LOCATE 18,i:PRI s00 INPUT"Wie heissen Sie ?"ın$ [3856] 
NT CHR#1143):NEXT ' £[33D2] 518 MODE 2: jijiei CDFS54] 
158 PLOT 255,175:DRAW 278,198: PLOT 269,1 528 WINDOW#1,659,80,1,B8:PAPER#1 „1:PEN#1,8 
98:DRAW 255,177 [4BA2] :ELS#1 [C14E8] 
158 PLOT 255,335:DRAW 270,358: PLOT 259,3 638 WINDOW#@,1,68,1,25:PAPER#B,B: PEN#B,1 
50: DRAW 255,335 [47BE] :CLS#1 [48D2] 
178 PLOT 128,335:DRAW 143,358: PLOT 144,5 6408 j=1785+jj [28&4E] 
S5@:DRAW 128,335 L787A] 458 REM #####+ [SE22] 
188 PEN 2:FÜR a=7 TO 15:L0OCATE a,S5:FPRINT 660 REM Menue [7D74] 
CHR# (143) NEXT CBBDC)] 578 REM ##### [EB82&] 
198 FOR a=5 TO 14:L0CATE 1&,a:PRINT CHR# s&88 LOCATE 197,4:PRINT"{CTRL X}S5ie haben 
(1453) :NEXT [As45B] die Qual der Wahl '!{CTRL X" [SEBE] 
280 FOR a=16 TOD 7 STEP-1:LOCATE a,i4:PRI 59a LOCATE 17,7:PRINT"{CTRL XY1{CTRL %3 
NT CHR#{i143) NEXT CEiC4] Delfeld kaufen" 4085] 
218 FOR a=14 TO 5 STEP-1:LOCATE 7,a:PRIN 788 LOCATE 17,F:PRINT"{CTRL X321{CTRL X 
T CHR$(143) NEXT [35B&42] Bohrgestaenge kaufen” [cC482] 
228 FEN 3: LOCATE 12,1:PRINT CHR$(143) [451A] 18 LOCATE 17,11:PRINT"{CTRL X+3{CTRL %} 
238 LOCATE 15.1:PRINT CHR#(145) [A342] Pumpen kaufen" ; AB46] 
2408 FLOT 158.383: DRAW 175.398: PLOT 176,3 728 LOCATE 17,13:PRINT"{CTRL X>4{iCTRL %} 
98: DRAW 158,383 [1Y7B&] Tankwagen kaufen" [F2A4] 
2508 FLOT 175,368:DRAW 199,383:PLOT 189,5 738 LOCATE 17,„15:PRINT"{iCTRL X}5{CTRL X} 
83:DRAW 175,368 CEBC&E] Weiter" [8518] 
268 FLOT 175.383:DRAW 199,398: PLOT 189,3 748 GOSUB 2848 4352] 
98:DRAW 175,383 [CB4D4] 750 LOCATE 28,28:PRINT"{CTRL %} Wahlı {CT 
278 PLOT 299,383:DRAW 222,398: PLOT 224,53 RL X3",„: INPUT w$ sFAc) 
98: DRAW 209,383 [7@B2] T&B IF VALims)<1 OR VAL(iw$)>5 THEN 758 [45AC]I 
288 FLOT 223,368: DRAW 239,3853:PLOT 237,3 770 ON VAL{iw*) GOTO 818,1009,1200,1400,1 
835:DRAW 223,368 [7CBB] 648 [83540] 
298 PLOT 222,385: DRAW 237,398: PLOT 238,3 788 REM His [S81E]I 
98: DRAW 222,383 [CDCB8] 798 REM Oelfeld kaufen CA4F32] 
388 PEN 2:LOCATE 11,2:PRINT CHR$(1453) [4B1&] BEOO REM #urunuaHnennne [&31@] 
318 LOCATE 14,2:PRINT CHR$(1453) L7D48] sıa CLS [7036] 
328 FEN 3:FOR i=4 TO 13:L0CATE 25,i:PRIN 828 LOCATE 25,4:PRINT"{CTRL X} Delfeldka 
T CHR$(143) :NEXT [754C] uf {CTRL X" Y1&6E] 
338 FOR i=24 TO 33: LOCATE i,13:PRINT CHR 830 xx=125: vy=370:x 1=125: yl=330: y2=180:6 
${143):NEXT £71D2] 0OSUB 29788 E8A4] 
348 PLOT 511,175:DRAW 525,1971:PL0T 525,1 848 LOCATE 19,7:PRINT"{CTRL X} Nr. fCTRL 
91:DRAW 511,176 [4898] 315 SPACE}ICTRL X} Name {CTRL %315 
358 PLOT 511,1971:DRAW 5264,2865:PLDOT 525,2 SPACE}{CTRL X} Preis {CTRL X" ESFDC]I 
B&b: DRAW 511,191 [297A] 858 FOR a=1 TO 5:PAPER B:PEN i [87536] 
3458 PLOT 399,1971:DRAW 414,286: PLOT 416,2 848 LOCATE 298,8+a:PRINT a,of$ta) „ofp$(a) 
B&u: DRAW 397,191 [LBFAA] [FBEFC]I 
378 PLOT 399,335: DRAW 414,358: PLOT 416,3 878 NEXT a CFAFE] 
58: DRAW 399,335 [CDSAC]I 888 LOCATE 22,18: INPUT "{CTRL X Nr des 
3808 PLOT 384,335:DRAW 399,358: PLOT 480,5 Delfeldes: {CTRL X}";nr | [FBö&] 
58: DRAW 384.335 [C5AB] B78@ IF ofp#(nr)="verkauft" THEN PRINTıPR 
398 PEN 2ıFOR a=5 TO 14:LDCATE 25,a:PRIN INT"JR was here ' Oelfeld ist futsch 
- T CHR$(143):NEXT L753A] 1:G0T0 968 [CAAA2]I 
“#88 FOR a=25 TO 32:L0CATE a,14:PRINT CHR 908 k=ek-VALtofp$inr)):GOSUB 2848 LC1ADE] 


93 


I 
| 








HERODSS ERBE NRUISOFS INT FEDE TOhI=RE Eh 
r 

CLS: xx=125: yy-370: x 1=1251ı y1=33ßı y2=1 
88: GOSUB 29708 

LOCATE 24,4:PRINT"{CTRL X} Sie besit 
zun nun: TCTRL X}"sofp#inr)="verkauf 


748 FOR »=1 TO bb:LOCATE 23,7+x:PRINT x; 
bs#tx):NEXT 
958 LOCATE 23 ASREWENTTICTRL X} Weiter ma 
it Taste ICTRL %}" 
9&B CALL ae ern 1718 


778 
988 
9798 
1090 
1818 
1820 


1858 


1868 
1879 
1888 
1298 
1120 
111@ 


1128 
11358 


1148 
1158 


1158 


1278 
1288 
1298 
1308 
1318 
1328 


1358 
1548 


REM Muuuu 
REM Bohrgestaenge kaufen 
REM KuunnunE 


CLS 

FOR a=1 TO 2:p(a)=INT (RND+5B8B) +500: 
NEXT a 

LOCATE 28,2:PRINT"{CTRL %}> Bohrgest 
aenge kaufen {CTRL X}" 

LOCATE 15,„4:PRINT"{CTRL X} Firma £C 
TRL Xıt{11 SPACE}{CTRL X Nr {CTRL X 
+15 SPACE}{CTRL X} Preis {CTRL X}" 

LOCATE 15,4: PRINT"Happybohrtii SPAC 
E}1{5 SPACE}";p{1) 

LOCATE 15,7:PRINT"Tief & Schnell {5 

SPACE}IZ2{S SPACE}":p (2) 

PLOT 78,50@:DRAWR 478,8 

E 245,58:DRAWR 75,225:DRAWUR 75,- 


25 
PLOT 318,245: DRAWR B,-1975:PLOT 338, 
245:DRAWR 8,-195 
PLOT 295,228: DRAWR 58,8 
PLOT 278, 125: DRAWR 180,8 
LOCATE 28 , 18: INPUT" {CTRL Xi} Firmenn 
r=:{CTRL X}":nr 
PRINT: PRINT 
INPUT "{7 SPACE}Wieviele 5ßam-Stuec 
ke":st 
PRINT 
nn "iÄ7 SPACE}Auf welches Delfeld 
":ofn 
IF ofn>bb THEN PRINT:PRINT"{1& SPAC 
E}Woher nehmen und nicht stehlen ?" 
ELSE 1188 
PRINT"{297 SPACE}{CTRL X} Taste {CTR 
L. X}":CALL &BB84:60T0 1718 
bhg tofn)=bhg tofn) +st #500: k=k-st#p in 
r):GOSUB 2848:60T0 1718 
REM ana nann 
REM Pumpen kaufen 
REM vrunnanaannnn 
CLS 
„a=125: yy=370: x 1=125: y1=325: v?2=238: 
GOSUB 29788 
FOR a=1 TO 2:pla)=INT (RND+5B8) +5080: 
NEXT a 
LOCATE 25,4:PRINT"{CTRL X} Pumpbenka 
uf {CTRL X}" 
LDCEATE 28,7:PRINT"ICTRL X} Firma {C 
TRL X3{4 SPACE}I{CTRL X} Nr {CTRL %} 
{2 SPACE}{CTRL X} Preis {CTRL X}" 
LOCATE 28,9:PRINT"Everpump{4 SPACE} 
1{i5 SPACE}":p(1) 
LOCATE 28,18: PRINT"Pump & Co{3 SPAC 
E}Y2Z{5 SPACE}":p1(2) 
LOCATE 25,13: INPUT"{CTRL X} Firmenn 
rs{iCTRL X}";nr 
IF nr<i1 OR nr>2 THEN 12978 
LOCATE 27,16: INPUT"Anzahlı ":st 
LOCATE 21,18: INPUT"Auf welches Delf 
eld"sofn 
IF ofn>bb THEN 11648 
IF putofn) +st>95 THEN PRINT:PRINT"M 
ehr als 75 Pumpen verkauft die Firm 
a nicht fuer EIN Delfeld":60T0 1318 


k=k-st*#p inr):GOSUB 2848 
pulofn)=putofn)+st:GOTO 1718 
REM vun 

REM Tankwagen kaufen 

REM warnen 


CLS 

SYMBOL AFTER 258 
250,8,1,3,3,63,63,127,127 

SYMBOL 251,224,242.21,23.20,245,252 


252,0,168,124,220,92,92,68,2 
253,195,153,189,60,24,255,25 
254,192,152,188,640,24, 255,25 
255,12,102,242,243,96,255,25 


FÜR i=3 TO 48 STEP 3 

LOCATE i„22:PRINT CHR$ (258) ; CHR# (25 
1) sCHR$ (252) 

LOCATE EEE CHR$ (253) s CHR$ (25 
4) sCHR$ (255) 

NEXT 

„x=125: yy=370: 4 1=125: y1=325: y2=238: 


[2BB2] 
£[1?DC] 


[6404] 
[7486] 
[BS08) 
LCICEI 
[7118] 
LOF3A] 
C851C1 
C1D86] 
[F?54FE]I 


E[DB?C] 


[FSPE]I 
[(DB5&] 


[F&612] 
ESCI1E] 


LEF5C] 


[4B3C] 
[8270] 


[2A?7B] 
[C1Eö] 


[F&76] 


[BD8A] 
EFFSAI 
[2C64] 
LE722] 
[C35EC]I 
[7114] 
[238E] 
[SAFA] 
[C1C88] 


[BB3E] 


[3446] 
L7CCCI 
CDBAE] 
CDEs®] 
CDF9B] 
[BE®2) 


£CBC88)] 
[AD24] 


[8B88] 
[7506] 
[B4BE] 
ESBI1E) 
LFES54] 
[CcC22] 
L258E] 
[348A] 
£[5D42] 


CBEBB] 
ESF4E)] 
[C35D®] 
[535CA] 


[C4CB8] 
[6CBA] 


CA7B4] 


[5DB8)] 
L124C) 





1558 
1548 
1550 


1568 
1578 
1588 
15978 
1600 
1518 
1628 


1558 


1548 
1458 
1.40 
1678 
1688 
1698 
1788 
1718 
1728 
1738 


17/48 
1758 
1748 
1778 
1788 
17980 
1880 


1818 
1828 
1858 
1848 
1858 
1868 
1878 
1888 


1878 
1708 
1718 


1928 
1730 
1748 
19758 
1758 
1778 
1788 


17978 


218 
2028 


2830 
2848 


GOSUB 29788 

FOR a=1 TO 2Z:p(a)=(INT {RND+#5B8) +5088 
J)#1QB:NEXT a 

LOCATE 25,4: PRINT"{CTRL X} Tankwage 
nkauf {CTRL X}" 

LOCATE 18,7:PRINT"{CTRL X) Firma {C 
IRL X3t{9 SPACE+H{CTRL X} Nr {CTRL X} 
i3 SPÄACE}ZCTRL X}% Preis {CTRL X%X%" 
LOCATE 197,9:PRINT"Oil on Roadf{ö SPA 
CE}1{4 SPACE}";>p(1) 

LOCATE 19,18:PRINT"Spritdrive{?7 SPA 
CE}2{i4 SFPACE}":p(2) 

LOCATE 24,13: INPUT"{CTRL X} Firmenn 
rs:t{CTRL %3"snr 

IF nr <i1 OR nr >2 THEN 1588 

LOCATE 265,16: INPUT"Anzahl: "s;st 
LOCATE 22,18: INPUT"Auf welches Delf 
eld";ofn: IF ofn>bb THEN 11%&8 


IF twlofn)+st>1B8@ THEN FRINT:ıPRINT" 
Mehr als 188 Tankwagen sind fuer EI 
N Delfeld nicht zugelassen'":GOTDO 1 
508 ELSE k=k-st#p (nr) 

GOSUB 2848: tw lofn)=tw(tofn)+st:GOTO 
1718 

cLs 

LOCATE 1B,5:PRINT"Wohl keine Lust d 
ie Entscheidung zu treffen ,was”?" 
LOCATE 15,5:PRINT"Na,is ja nicht me 
in Bier '" 

LOCATE 28,18: PRINT"{CTRL X} Weiter 
mit Taste {CTRL X}":CALL &BBO%& 

REM szuuunHeHeH 

REM Auswertung 

REM #e#run HER 

FOR a=i1 TO bb:CL5 

IF bbtia)>=bt(a) THEN 1858 

LOCATE 24 ‚2: PRINT" {CTRL X} Delfeld: 


{CTRL X} "sbs$l(a) 

LOCATE 18,5:PRINT"{CTRL X} Bisherig 
e Bohrtiefe{3 SPACE}: ":bbt (a); "m{CT 
RL X" 

LOCATE 19,7:PRINT"{CTRL X} Bohrgest 
aenge noch fuer";bhgtia)s; "m{fCTRL X3" 


PLOT 58,258: DRAWR 490,8 

BuR 480,250: DRAWR 15,45:DRAWR 15,- 
PLOT 485,275:DRAUR 28,8:PLOT 418,29 
B:DRAWR 18,0 

PLOT 413,299: DRAWR B,-39ıPLOT 417,2 
99:DRAWR 0,-39 

FLOT 413,258: DRAWR B,-bbt (a) /1@: PLO 
T 414,25B8:DRAWUR Q,-bbt (a) /1B: PLOT 4 
15,258: DRAWR B,-bbt (a) /10 

PLOT 416,269: DRAWR B,-bbt (a) /i9Rı:PLO 
T 417,268:DRAWR B,-cht (a) /10 

IF bhg (a) >=-5BB THEN bhog ta)=bhog la) -5 
BB:bbı (a)=bbt (a) +500 

IF bhgta)=8B THEN LOCATE 18,12:PRINT 
"£CTRL X> Wir brauchen Nachschub! { 
CTRL X}" 

LOCATE 22,28:PRINT"{CTRL X} Taste { 
CTRL X}":CALL &BBB6: NEXT a:gespu=ß: 
ARIREDEN 2228 


LOCATE 24, „2: PRINT" {CTRL 
{iCTRL X} ";bs$la) 
IMINTIRND 17218) +2088 
F i=il AND k>SBpaBe THEN LOCATE 28 
‚S:PRINT"Ein Hurrikan zerstoert all 
es !'":GOTO 1898 ELSE 19788 

FOR sta=1 TO bb: pu(sta)=d:twlsta)=B 
NEXT sta 

LOCATE 5,„4:PRINT"{CTRL X} Pumpenf{ö 

SPACE}: {CTRL X}";pula) 

IF bm#fia)<>"versiegt" THEN vsla)=vs 
(a)+puia) *#5BßBd:bgmia)=bgm (a)+tpula) # 

Sana 

LOCATE 5,.5:PRINT"{CTRL X Versandme 

nge: {CIRL X}"svsia)s" 1" 

LOCATE 5„8:PRINT"{CTRL %) Tankwagen 
{3 SPACE}: {CTRL X}"tmla) 

tk {a)=tu la) #48970 

pr=(INT(RND#28) +1) 718 

PLOT 58,248:DRAWR 499,0 

Aa 400, 268: DRAWR 15,45: DRAWR 15, 

PLOT 485,275: DRAWR 28,8:PLOT 419,297 

2: DRAWR i8,8 

PLOT 413,277: DRAWR 8,-39: PLOT 417,2 

797:DRAWR B.-39 

FLOT 413,258:DRAWR 8,-258: PLOT 414, 

250: DRAWR 0,-258:PLOT 415,258: DRAWR 
a.-258 

PLOT 416,268: DRAWR 8,-258:PLOT 417, 

268: DRAWR 9,-258 

LOCATE 5,11:PRINT"{CTRL X} LKW-Kapa 

zitaet: {CTRL X’"sıtkla)ı" 1" 

LOCATE 54,12:PRINT"$ Preis :"jpr 

PLOT S@88,11:DRAWR 2008,0:FLOT 298,18 
:DRAWR 284,0:PLOT 295,9:DRAWR 288,8 


X} Delfeld: 








L7B38] 
LSFB6] 
[7666] 
[8B4B] 
£C1B32] 
[D284] 


[CEC58] 


[5F88] 


L1iC7651 
[219A] 


[Caa82] 
[BFS38] 
[2E52] 


[362E] 
[D@52] 


ES2ACI 
[C28C] 
1772] 
EBiFA] 
LisAC] 
E?CB&] 


[B458] 
[8CB&ö] 
[3878] 
[L77BE] 
E37FA] 
[C4AB] 
[A&C2] 
£23D4] 
LAFEA] 
[LA7BE)] 
[ö6E6] 


C61E2] 
[29601 
[8528] 
[59B@] 
[7EEE] 
[4396] 
[3DFEI 
CDEB®] 


C[BBBA] 


[FFFB] 
[AEIC]I 


[&A28] 
CB2FC] 


[3D64] 





294,8:DRAWR 212,8:PLOT 292,7:D 
21&,B8:PLOT 298,6: DRAWR 228,8 [37B8] 
292,.5:DRAWR 216,.8:PLOT 2974,4:D 
| 212,8:PLOT 294,3:DRAWR 288,8 [CAECH] 
2870 PLOT 298,2:DRAWR 204.0:PLOT 3@98,1:D 





RAWR 200,8 [38CC] 
20808 IF bamia)>=gfmta) THEN bm$(a)="vers 
iegt" [43CC] 
2098 LOCATE 5.13:PRINT"{CTRL %) Bemerkun 
gs {CTRL X3":bm#ia) CEES3A] 
2ı00 IF bm$(a)="versiegt" AND vsta)>®@ TH 
EN 2178 [SCEC]I 
2118 IF bm$(a)<>"versieat" THEN 21708 [BESB] 
2128 LOCATE 2,21:PRINT"Wollen Sie Tankwa 
gen auf ein anderes Delfeld stellen 
":INPUT c$ [3278] 
2138 IF c#="n" OR c#="N" OR c#<>"j" AND 
c$<>"J" THEN CLS:60T0 1848 [C624A] 
2148 INPUT"Anzahl ":f:IF f<B OR f>’twla) 
THEN 2148 E2FDA] 


2158 INPUT"Auf welches Delfeld "sofn: IF 
ofn<® OR ofn>bb OR ofn=a THEN 2158 L[&5D268] 
158 tmta)stnmla)-Fıtwmlofn)=tmlofn)!+t:CL5 






























































:G60T0 1848 CDDEA] 
2178 LOCATE 5,„.16::INPUT"Wieviel 1 verkau 

fen "sl [3BC2] 
2180 IF 1> vsta) OR 1>tk(a) OR 1<B THEN 

PRINT"Wohl vertippt „wah !"ıl=@ L3A58] 
2190 vs(a)=vstia)-l:k=k+tl#pr :GDSUB 2848 L1C28] 
2288 LOCATE 22,28:PRINT"{CTRL %} Taste { 

CTRL X}" [8454] 
2218 GOTO 1848 L7A16] 
2228 FOR z=1 TO bb [C5F8] 
2230 gespu=gespu+pu(z) [ZEBE] 
2240 gestak=gestak+ttwlz) [7408] 
22508 NEXT:CLS CDF88] 
2268 „x=125: yy=370:x1=125: y1l=325: y2=188: 

| GOSUB 2908 [B20A] 

2278 LOCATE 25,4: PRINT"{CTRL %} Zusatzko 

sten {CTRL X}" [3456] 
2288 LOCATE 17,6:PRINT"Loehne fuer";gest 

aks "Tankwagenfahrer:" [5BA2] 
22908 LOCATE 48,7:PRINT gestak#25; "#" CD44C] 
2388 LOCATE 17,9:PRINT"Unterhaltungskost _ 

en fuer" CBBDE] 
2318 LOCATE 17,18:PRINT gespu; "Pumpen: {1 

3 SPACE}";gespu#15: "#" L2ASC] 
2328 LOCATE 29,1&:PRINT"{CTRL %} Taste { 

CTRL X" | [4272] 
2330 k=k-gespu#15:k=k-gestak#25:605SUB 28 

40:CALL %&BBO& [1828] 
2348 REM ######+ CFiD2] 
2358 REM Kredit LCEDA2Z] 
235648 REM #urua## C75D6] 
2378 CLS: IF k>8 THEN 24538 LFBFB] 
2388 PRINT:PRINT"{14 SPACE}Sie bekommen 

einen Kredit von der" [35A8] 


2398 PRINT"{14 SPACE}Firma Raff, Gier & 
Co in Hoehe von 2 .. 
2488 PRINT"{14 SPACE}IDie jaehrliche Rate 


[S3E42] 


betraegt 3B80#" C(8DB2] 
2410 k=k+20000:GO5SUB 28408: sc=sc+2BB8B88 [L29FE] 
2428 REM [2F978] 
2430 IF sci=B THEN 24780 [4CAA] 
24408 LOCATE 22,9: PRINT"{CTRL %} Gesamtsc 
_  _  huld :ı{CTRL %3"3sc EFF5A] 
2458 LOCATE 22,11::PRINT"- Rate (35BB0#)" 

: sc=sc-38808: k=k-3B008 [43Fö6] 
2458 LOCATE 22,13:PRINT"{CTRL X} = neuer 

Saldos {CTRL X}"sc [8854] 
2478 CALL &BBB&4:CL5 LC7AA]I 
2480 ji=jij+ti:IF i=2018 THEN 2558 ELSE & 

40 [21CB] 
24908 k=k+(isc#ti-1)):G60SUB 2840: sc=B [CBAA4] 
2s5a0 IF i=2B18 THEN 2558 EF176] 





ı ondsüchtig 


"nach den Sternen greift, will dort auch gut 
kommen. Bei »Lunar Lander« brauchen Sie viel 
eingefühl, um Ihre Landefähre durch Felsspalten 
nd Krater zu dirigieren. 


'iel Spiel mit wenig Basic bietet Ihnen Lunar Lander. 
Sie übernehmen mit dem Joystick das Kommando 
über eine Mondfähre, die es sicher auf dafür vor- 

"gesehenen Plattformen zu landen gilt. Wenn Sie das Pro- 

_ gramm abtippen, müssen Sie aus den Listings drei Dateien 

erzeugen. Um Lunar Lander zu starten, verketten Sie mit 





ij=jjit1:6GDTD 540 
REM sauna 
REM Endauswertung [3BB4] 


REM Hanna aHaare LFF22] 
2ss5g LOCATE 30,4: PRINT"{CTRL %} Endauswe 

rtung {CTRL X" [3FDC]I 

254B LOCATE 38,8:PRINT"Kapitalı"sk [FC?7A] 


2578 IF sc>® THEN k=k-sc:LOCATE 16,10:PR 
INT"Kapital nach Abzug der kreditsc 
hulden:";k [7648] 

Sag LOCATE 30,12: PRINT"{CTRL %} Spieler 
:{CTRL %}% ";UPPER#(n#) [FS528] 

2598 IF k<B THEN LOCATE 22,18: PRINT"ERSC 
HIESS DICH !!'!{2 SPACEIVERSAGER !!" 

[774C] 

2600 IF k>B AND k<=388208 THEN LOCATE 24 
‚„18:PRINT"Du bist ein PLEITEGEIER ! se 
7) ] 


2610 IF k>3BaWBR AND k<i=s00B20 THEN LOCA 
TE 25,18:PFRINT"Du bist ein GLUECKSR 
ITTER !"” [FBFE] 
2420 IF k>6dpnad AND kK<i=1BRBRRı THEN LOC 
ATE 21,18:PRINT"Du koenntest JR Kon 
kurenz machen !" [s53C] 
26430 IF k>i1dBnuaa AND kK<20BBB00 THEN LOC | 
ATE 28,18: PRINT"Carringoton haette k 





eine Chance gegen Dich" [BSCE] 
2640 IF k>=2000008 THEN LOCATE 29,18:PRI ’ 

NT"DU BIST DER CHAMP !!!":GOSUB 278 z 

1" [7974] 
2458 END CED88] 
2668 REM #rr##+ [A488] 
2578 REM Hymne [2BEB] 
26808 REM ####+ [CAABSCI 
2598 DIM ton (28) ‚dauer (28) „pause (28) LISEB] 
2780 RESTORE 2770:FOR a=i TOD 28 [88B4] 
2718 READ ton(a) „dauer {a} „pause (a) »NEXT 

a [381C] 
2728 FOR a=1 TO 28 CFBiC] 
2730 a$=INKEY$: IF a$=CHR$(13) THEN RETUR 

N [64404] 
2748 SOUND 1,ton(ta) „dauer (a) [51CA] 
2750 FOR b=1 TO pausela):NEXT=:NEXT [2204] 
2768 LIEFEI 


RETURN | 
2778 DATA 319,75,1,379,50,50,478,58,58,4 
798,188,188,379,50,1,319,5@0,5@,239,1 
28,100 LICASI 
2788 DATA 199,75,1,213,50,58,239,50,58,3 
79 ,50,50,338,58,58,319,188,100,319, 
1 [98C21 


SQ, 

2798 DATA 319,58,58,1908,75,75,213,25,25 
478,50,50, 253,108, 108,284,58,1,253, 
58,58 j [5934] 

2808 DATA 478,59,580,479,580,58,317,58,50, 
373.50.50,478,58,50.319.50,1,379,50 


‚ou [BEFEI 
z81B REM aut [3222] 
2828 REM Window Inhalt [BDD®] | 
2830 REM wanna [sC25] | 
2842 CLS#1 [örF48] 
2858 FRINT#1:PRINT#1," Jahr:"sj [C18BE] 
2858 PRINT#1," Kapitalz:":k CASBE]I 
2878 PRINI#1:PRINT#1," Spieler: "ıPRINT# 

1, TAB(2); UPPER$ (n$#) L1E34] 
2888 RETURN CBIAA4] 
28970 REM wurHuHnnetane L45DE] 
27088 REM Draw-Routine [CD28] 
291B REM wanna [&CDB] 
2928 PLOT xx ,„yy:DRAWR 268,8: DRAWR 0,-2645 

:DRAWR -268,8: DRAUR 3,265 [CFEC]I 
29308 PLOT x1,yi:DRAWR 268,8:PLOT x1,y2:D 

RAWR 258.8 [D482] 
29408 RETURN [FB9EI 


Listing. Haben Sie das Zeug zum Ölmagnaten? (Schluß) 


»MERGE:«Listing 1 und 2. Statt Listing 2 (Mondlandschaften) 


anzuhängen, können Sie auch die von Ihnen mit Listing 3 
erzeugten Landschaften benutzen. 

Nach dem Start des Programms erscheint im oberen Teil 
des Bildschirms das Statusboard. Sie steuern Ihre Lande- 
fähre mit drei Düsen, die mit dem Joystick zu schalten sind. 
Um auf den farblich gekennzeichneten Plätzen erfolgreich zu 


landen, müssen Sie mit Schubkraft auf eine sehr niedrige 


Landegeschwindigkeit drosseln. Haben Sie alle Landeplätze 
eines Bildes einmal angesteuert, so gelangen Sie ins nächste 
Bild. Immer wenn Ihre Fähre mit den landschaftlichen Tücken 
kollidiert oder zu hoch hinaus will, verlieren Sie Ihr Raumschiff 
in einer dramatischen Explosion. Das kostet Sie je nach Spiel- 
stufe mehr oder weniger Treibstoff. Beijedem neuen Bild, das 
Sie erreichen, wird Ihr Treibstoffvorrat erneuert. Das Spiel ist 
vorbei, wenn Sie Ihren gesamten Vorrat verbrauchen. 
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x Mit dem »Lunar Designers stricken Sie sich Ihre Mondland- 

=; = ‚schaften selbst. Nach dem Programmstart erscheint unten 

 linksein Pixel-Cursor, den Sie mit dem Joystick über den Bild- 

_  schirm steuern. Die dabei auftretende Gerade fixieren Sie mit 

dem Feuerknopf. Bei waagerechten Linien müssen Sie den 

_  Feuerknopf zweimal betätigen, wenn Sie eine Plattform 
erzeugen wollen. 


(Steffen Adomeit/Matthias Rosin) 


" #####+ LUNAR LÄNDER 

" #4### geschrieben 4/86 

" #####+ von Steffen Adomeit 
u 7 222" Tel 8211/5425833 
ee 3 2 


MODE i:INK B,@:INK 1,264: INK 2,28: INK 
3,14:BORDER 8 

PEN 2:POKE &B1C8,8:PRINT TAB (5) "LUNA 

R LANDER":POKE &BiC8,1 

PRINT TAB(18) "Steffen Adomeit, 4/86" 


ENV 1,6,-1,2B:ENV 2,15,-1,5:ENV 3,15 
„-i B:ENT-1,2,1,1,4,-1,1,2,1,1 
DEFINT a-z:G0SUB 1140’ "Symbols 
o1$=CHR$ (241) +CHR$ (242) s 02$=CHR$ (243 
) +CHR# (244) ' Lunarmodule 

DIM pl (18,2):hi=1988 


sco=B:bild=1:lev=1:c=B 

LOCATE 1,1:PRINT"{3 SPACE}IHI":LOCATE 
1,2:PRINT DEC$( chi , "#84 #") 

RESTORE: GOSUB 998:PEN 1:LOCATE 5,5:P 

RINT"Druecke Taste fuer Spielbeginn" 


a$=INKEY$: IF a$<>""THEN INK 1,26:L0C 
ATE &,5:PRINT SPACE$t38):60T0 338 
c=c+l:IF c>4288 THEN c=8 

INK 1,24-{(c/7”)MOD 26):60T0 278 

INK 1,1c/7)MOD 245:60T0 278 


' GOSUB 798° Landschaft malen 

GOSUB 958: TAGOFF' Score ausgeben 
GOSUB 1118° Sterne malen 

tr=576: TAGOFF=:LOCATE 1,3:PEN 2:PRINT 
CHR$ (24) STRING$ (48, 248) CHR$ (24) :LOC 

ATE 1,3:PRINT CHR$ (245) CHR$ (246) CHR$ 
(247) CHR$ (248) :PEN 1° FUEL 

LOCATE 1,24:PEN 3:PRINT CHR$ (24) "sco 
re"CHR$ (24) 

PEN 2:LOCATE 39,1:PRINT"B";MID$(STR$ 
(bild) ,2) 

LOCATE 39,2: PRINT"L";MID$(STR$(lev), 


»step=®: ystep=9: y=34B:x=2:t=B:x1=Bry 
1=8: gel=28 
sa &B358,B: PRINT CHR$ (23) CHR$ (1) 35: 


H) 

" #####+ Hauptschleife 

z=PEEK (%&B4F4): IF tr=B THEN z=8 

' IF gel=@ THEN t=t+1:IF t=5 THEN t=B: 

GOSUB 438 

IF z AND 8 THEN SOUND 132,0,8,4,1,8, 

1Q0:gel=B:60SUB 598: IF xstep{ß THEN x 

step=»step+2 

IF z AND 4 THEN SOUND 129,98,8,5,1,8 

18: gel=B: GOSUB 598: IF xstep>-8 THEN 

»step=xstep-2 

IF z AND 1 THEN SOUND 138,0,0,65,1,8, 

id:gel=-9B:GOSUB 5908: IF ystep>-& THEN 

ystep=ystep-i 

x=x+xstep: y=y-ystep 

IF y>358 DR y<34 THEN ystep=B8 

IF »>&B8 THEN »=4B8:»step=B 

IF x<® THEN x=B:xstep=® 

MOVE x1,yi=:PRINT oil$;:MOVE x1,yi-i1&: 

PRINT o2$; 

FOKE &B338,248:MOVE x ,„y:PRINT oi$j:M 

DVE x,„y-1&5:PRINT o02$; 

IF TEST(x+2,y-32)=2 AND TEST (x+28,y- 

Ss2)=2 AND ystep<3 THEN 790 

' IF gel=8 THEN te=TEST(x+2,y-32)0R TE 

Ru ee ter 
“+ -18 ix+ EST (x + 

28,y+2}} Ir te>i THEN B60” 

»i=x:ıy1l=y:60T0 438 

" #####+ Treibstoffverbrauch 

' IF tr>B THEN tr=tr-2:MOVE tr+64,352: 

DRAWR 8,14,2 

POKE %&B338 „248: RETURN 


. 
"##4#4#+ Traegheit der Faehre/Mondanz 
iehung m 

IF »step>@ THEN xstep=xstep-1 

IF »step<ß THEN xstep=xstep+1 

IF z AND 1 THEN RETURN 

IF ystep{15 THEN ystep=ystep+i 


a F “ = a 
En f 1 ar 8 | a "| 41 | 
eu. £ . 4 . 
un < 5 u .* Tt ‚ u a = + ’ 

Ge > . I 


[u a ei 


[B2FE) 


[82D8] 
L2OF&) 
[1D18) 
LEDA2I 
[1708] 
LA4AE] 
ECFDE] 
[9C68] 
[7A18] 
L7EICI 


[CC28] 


[F?F78] 


LC47C)9 
[CBE26] 
LF2A2] 
[OSAA] 
C4AF®] 


[Lö7FC] 
[3718] 
[AC22] 


CAD38] 
C9SBA] 
CDDECI 
CA7ARI 


£D7Cö] 
[ö7CE] 
[ESE2] 


[99B4] 
CC1F8] 
CCEF2] 
[L89EE) 


RETURN 


| 

" #####+ Alle Plattformen angeflogen 

WHILE tr >89: GOSUB 598: sco=sco+ 1: BUSUB 
7&B8: SOUND 1398,588-tr „B,&4,1:WEND 

bild=bild+1:60T0 328 

2 


A iel zuende (Kein Fuel) 

TAGOFF:LOCATE 14,5:PEN 1:PRINT"GAME 

DVER":SPEED INK 5,5:INK 1,80,2& 

IF sco>hi THEN hi=sco:FOR i=1 TO 58: 

LOCATE 4,1:PRINT"{2 SPACE?":LOCATE 4 

„12PRINT"HI":NEXT 

FOR i=1 TD 4808: NEXT: INK 1,25: LOCATE 
1i4,&:PRINT SPACE$#(18):60T0 248 
*»#### Gluecklich gelandet 

SDUND 128,239,8,15,3,1:S0OUND 129,190 

‚B,15,3,1250UND 132,159,08,15,3,1 

a=x+1ö:b=y-54:FOR i=® TO pl 

IF plti,B)<>-1R2@0 AND a>plii,i1)AND a 

<plfi,i)+plli,DIAND b<iplti,2)AND b>p 

1(i,2)-8 THEN FOR ii=8 TO 6 STEP 2:M 

DVE pl ti,1),pl(i,2)-i1:DRAWR pl (i,B®) 

-2,8B,1:NEXT:sco=sco+pl {i,@}):pl (i,@)= 

-1BB8:upl=upl-1:i=1880 

NEXT:IF upl<1 THEN 788 

re a cn tn iin 758: 60T0 
2 


: 
" ####*+ Faehre zerstoert 

SOUND 135,8,188,15,2,8, 20: i1=8:FÜOR i 

=1 TO iBB: INK 1,26-i/4 

IF i/5S=INT (i/5S) THEN il=sil XOR 1:IFi 

i=1 THEN MOVE »,„y:PRINT o1l#3:MOVE », 

y-15:PRINT o2$;}ELSE MOVE x,„y:PRINT C 

HR$ (249) CHR$ (258) 5; :2MOVE x,y-1&6:PRINT 
CHR$ (251) CHR$ (25293 

NEXT 

FOR i=1 TOD 38+(lev-1)#2B:GOSUB 598: 1 

F tr>@ THEN SOUND 135,i1*18,2,3 ELSE 

i=lev#308 

NEXT:GOSUB 938: TAG: INK 1,25: FOR i=1 

TO 2888: NEXT: IF tr>28 THEN 390 ELSE 

748 

" ####*+ Faehre loeschen 

MOVE »„y:PRINT ol$; MOVE »,„y-i1&5:PRIN 

T 0o2$; : TAGOFF :RETURN 


#+#+## Score ausgeben 
TAGOFF:PEN 3:LOCATE 1,25:PRINT CHRS$( 
24) DEC$ ( (sco, "####4#" )CHR$ (24) PEN 1: 
LOCATE 1,1:TAG:RETURN 

#*+##+= Mondlandschaft malen 
pl=®:DRIGIN 8,8,2,648,0,350:CL6 8:0R 
IGIN 0,8,8,640,0,4@0: TAGOFF=PRINT CH 
R$ (23) CHR$ (DB) 

READ ai,bi:IF al=-1 THEN RESTORE:le 

v=lev+1:bild=1:60T0 1888 

p=®:READ a,b: IF a=-i THEN upl=pl:pl 
1:3 RETURN 


Kira 
IF a<®: THEN a=-asp=1:plitpl,i)=ail:pl 
(pl,Z23=bl:pl {pl ,B)=ABSta-al)sepl=pl+ 
1 


IF a<ai THEN col=® ELSE col=3 
d»=a-al:dy=b-b1:1=SQOR (dx#dx +dy#dy) 
FOR e=8 TO 1 STEP 2 

MOVE alte*xd«/l,bite*dy/l1:DRAWR 8,—4 
Ba,col 

IF p=1 THEN MOVE talterdx /1), (bite#sd 
y/l):DRAWR 90,-4,2 
NEXTral=a:bil=b:60T0 1818 


####4 Sternenhimmel malen 

POKE &B338,240: FOR i=1i TO 18:a=(RND 

#318) #2:b=(RND#175) #2 

IF TEST(ia,b)=8 THEN IF ROUND tRND)=1 
THEN MOVE a-1,b:DRAWR 3,8: MOVE a,b 

-1:DRAWR 98,3 ELSE PLOT a,b 


I NEXT:RETURN 


& 
" ####+#+ Grafikzeichen definieren 
SYMBOL 2498,0,0,08,102,102,102,0,8 


Listing 1. Landung auf dem Mond 


L7D3A] 
[CEF®] 
LE7BB] 


[FC74] 


ECFBB] 
[LöAFE] 


[6F78] 


[CE?72] 
[D7EB] 
[B458] 
[5194] 


[CDSEE] 
LASBA] 


C433C] 
[FDF4] 
[B85sF7A] 
L77BQ] 
CF21E] 
CBE1i2] 


(D548] 


” TL1iCE6] 


[&15E] 
[S5B78] 


[B4A5] 


[SEBö] 
LFC7C] 
CB?40] 
[97228] 
EL17FA] 








241,0,32,32,127,255,196,196, 
242,30,30,16,254,255,35,35,2 
243,117,53,31,12,12,24,248,2 










244 ,94,92,248,48,48,24,15,15 


1218 SYMBOL L_ 245, 254,254,192,192,254,192, 
192,192 [1664] 

1220 SYMBOL 246,198,198,198,198,198,198, 
254,254 LICB2 


SYMBOL 247,254,254,192,192,254,192, 
254,254 
SYMBOL 248,192, 











1248 192,192,192,192,192, 

254,254 LEC72] 

1250 SYMBOL 249,0,0,0,7,15,15,7, [73BC} 
1240 SYMBOL 258,0.0,24,252,254, Sa, 252,2 

52 LOASAI 

- 1278 SYMBOL 251,15,31,31,15,7,9,80,® [2266] 
1280 SYMBOL 252,252,248,248,240,224,0,0, 












u 
1298 RETURN 
1580 : 


Listing 1. Landung auf dem Mond (Schluß) 



















































































1418 














1458 
14408 


1450 
1458 
1470 









































1490 
1580 


1518 
1528 
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Listing 2. Mondlandschaften 


*=#+### Ab hier Mondlandschaften 


####8# bild 1 
DATA 21,780,1,100,59,88,135,68,-245 
‚0,275, 58, 307 ‚80,337, 180 
"DATA 365, 126,389, 148,485,170,-479, 
170,493, 180, 513, 186, 533, 184, 553, 178 


DATA 553,144,589,114,5089,108,637 ,1 
12,-1 # 


#####+ bild 2 

DATA 21,90,1,1800,19,1808,55,128,85, 
168,103,184,-163,184,179,192 

DATA 199,212,213,240,-279,240,293, 
224 ‚315,202, 355,188,487,174,449, 168 


DATA -501,168,527,164,553,13@,561, 
54,561,30,-6435,30,637,38,-1, 


1420 : 


“”*** bild 3 
DATA 21,90,1,100,29,148,67,188,-11 
9,198,119,92,-165,92,165,234 
DATA -219, 234,243, 230,271,2@2,279, 
154 ,271,104,279,50,303,16,315,8 
DATA 327,4,-393,4,411,8,431,40,439 
‚76,447,118,-495,118,501,134 
'DATA 511,150,-557,158,527,168,575, 
198,599, 240,625,276,637,288,-1, 


1480 : 


*#+##+#+ steps 

DATA 21,98,1,100,9,80,-51,80,67,0@ 
‚69,68,-117,68,129 

DATA 129,48,-181,48,195,48,195,68, 
207 ,68,-255,68,255,80,273,8@ 

DATA -331,90,331,92,-393, 92,393 
9,-451, 188,451 ,124,-517,124,517, iso 


DATA -573,158,573,186,-627,186,627 
‚210,637,218,-1, 


*#+## compl | 
DATA 21,90,1,100,17,76,33,66,55,58 
‚79,52,105,56,123,74 
DATA 137,112,149,166,163,228,185,2 
56 ‚209,278, 235,290, 281 ,298,371, s04_ 
DATA 451,296,525,274,541,260,543 
36,525,214,479,212,425,218,349, 2 
DATA 273,232,223,202,205,160,289,1 
44 .-273,144,293,144,299,132,291,188 


DATA 269,96,243,978,209,90,2@1,74, 
07 ,52,221.48,-277,48,299,32 

DATA’ 347,24,391,36,435,74,453,128, 
475,168,-571,168,595,188,615,212 
DATA 623, 2398,623,268,613,294,597,3 
190,603,320,623,330,637,330,-1, 

: ar FIFDN 

DATA 21,90,1,180,19,174,-65,174,-1 
35,174,-177,174,-243,174,279,174 

DATA -339,174,-383,174,-471,174,-5 
15,174,—555,174,-599 ,174 ,637,174,-1 


7 
& 
" ####*+ pferdefuss 
DATA 21,998,1,180,25,154,67,186,141 
„204,-199,284,217,204,255,188 
DATA 285,154,285,112,269,80,235,66 
‚195 66,167,54,145,32,145,18@ 

TA -287,10,307,18,329,38,361,68, 


[C244] 


[C748] 
[7218] 


L7D56] 


[2882] 
[A71A] 
[CE4A] 
EDC24] 


[L728E] 


[DC58] 
[B555] 
[D142] 
CDS1E] 
LiAAd] 
L78AC] 
[835AB] 
[A112] 
CCB4E] 
LFEAC]I 
[SBEB] 


[5S35DC] 


[4738] 
L25EA] 
£C948] 
ECFFE] 
LEFFE]I 
LESI1E] 
[3738] 


[B548] 
[8848] 
L7E7&] 
E2D5E] 
(Ds48] 
CF782] 
[8418] 
[CECA]I 
[8A58] 
CBFBE] 
CDSFB] 


LE&ABA] 


373,120,367,164,369,192,377,238 
DATA 487,276 a6 19237720 
22 .625,330,637,330,—1, 


**+#+* plateau 
DATA _21,98,1,100,29,188,63,148,81, 
188,89, 256,301, 256, 313 


Data 525,268,54 282.321 .270.385,2 
56,-551 , 256,557 7232 573, 132 7 1k0 


DATA -637,140,638,148,-1 

H 

: #####+ ecko 

DATA 21 ‚70, 1 7 180,37, 158,37,508,-81 E 
sga,81,190,159,258,157,38 

DATA '_207 ‚38,207, 282,287 ,282,-35397, 
282,431, 282, 431,134,485, 134, 405, 258 


DATA 235,258, 235,196,-291,196,291, 
168,235,168,235,108,-289,108,289,76 


DATA 235,76,235,28,-293,28,483,28, 
403,76,431,76,431, 28, 2,8572 


DATA 485,282,515,282,-559 , 282,575 
256,569 , 256,509, 204,557 ,20 


282,575, 
4 
DATA re ‚192,599,148,-625, 


148,625, 282,637, 282 in 


1848 : 
1878 DATA -1, 


Listing 2. Mondlandschaften (Schluß) 


450 
468 


478 
488 


MODE 1:INK B,B: INK 1,25: INK 2,28: INK 
3,14:BORDER B:PEN i 
PEN 2:POKE &B1C8B,8:PRINT TAB(4)"LUNA 
R DESIGNER":POKE &%Bi1C8,1 
FRINT TAB{t11)"Steffen Adomeit, 4/86" 
:LOCATE 1,25:PRINT"#####";:LDCATE 1, 
24:PRINT"###*#="::PEN 1 
MOVE 5538,B:DRAWR 3,378,1 
»„=1:y=-1BB:1lx=x:ıly=y 
DIM a(5B2,1):al1,B)’=x:all,i)=yrald,® 
)=x+20:a(8,1)=y-iß:scur=1 
a 
*####++ Hauptschleife 

j=PEEK (&B4F4) 
IF INKEY$="X"THEN GOSUB 278 

AND 8 THEN IF »<d36& THEN x=x+2 

GOSUB 388:G0OTO 358 

AND 4 AND x>@ THEN »=x-2 

AND 2 AND vy>@ THEN y=y-2 

i AND 1 AND y<338 THEN y=y#+2 
 1x,l1y:DRAW ABS(alcur,B)) ,alcur, 


“»„‚y:DRAW ABStatlcur,B})),,atcur,i) 
1 
Ixmuı ly=ysGDTO 188 


*++##= Knopf wurde gedrueckt 
SDUND 135,188: IF alcur,B)=x AND alcu 
r,1i)=y THEN IF atcur, 1)=atcur- 1,1)AN 
D" ABS (ABS (a lcur „B))-ABStalcur- -1,8))) 
>36 THEN 318 ELSE RETURN rer 
cur=cur+l:atlcur ,„B)=x:alcur,l1)=y:RETU 


RN 

SOUND 135,88: alcur ‚@B)=-a(cur ,®) 

IF a(cur ‚Ö) <B THEN FOR i=y TOD y-1B5 

en %y is DRAW ABStalcur-1,8)), 
„l12NEXT ELSE FOR i=y TO y-18 STEP-2 

ı MOVE “»„i:DRAW ABStatcur-1,B)),i,@:N 


##+#++ Programm erzeugen 
LOCATE 1,1:PRINT SPACE$ (120): LOCATE 
1,1 
CALL &BBB3: INPUT"name des files";a$ 
INPUT"erste zeilennummer";z 
SPEED WRITE 1: DPENOUT "LUN-"+a$:curz= 
8 


PRINT#F,2z5":":z=z+1:PRINT#97,z;"' 

**+ "+asızeztl 

as=" data ":FOR i=1 TOB 
IF alcurz ,@)=B AND atlcurz,i)=B THEN 
458 


b$=STR$tatcurz,B))+",„":IF alcurz,®ß)> 
= THEN as=as+MID$ (b$, 2)ELSE a$s=as+b 


BS=STRE (a lcurz 19) +" ,"rIf alcurz,1)> 
=0 THEN a$=a$+MID#(b#,2)ELSE as=-as+b 
€ 

curz=curz+1:NEXT 

IF curz<cur THEN a$=LEFT#(a$,LEN(a$) 
-1)ELSE asf-as+"—1," 

PRINT#F? ,z5a%:z=z+t1: IF curz<cur THEN 


##H 


LIAFZI 
LACS21 | 
CD24A] 

[D322] 


[8724] 


[54AB] 


CAFE4] 
[LB558] 


[FEAA]I 
[41BC] 


[D614] 
[4EE2] 


[DDS2] 
[9358] 


[C844] 
[6748] 
CF9841 
LEBTE] 
(2288) 
[ES36] 
CCAE2] 
LAPACI 
[&FD8] 
[@BEB] 
(8498) 
[178E] 
[C8F12] 
C93D6] 
CAAD4] 
[4629] 
LEEA4] 


[DIES] 
LCEF2CI 


[8BA&] 


[8114] 
[@FBC) 


C4EE2] 


[BF76] 
[83341 
[3302] 
[4444] 
CAF1B] 


[F476] 
[4290] 


[BAFE] 
[2528] 
[6625] 
[C3A&] 


[56A2] 


[S5B18] 
[34B2] 
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Feldherrn unter sich 

























»Feldherr« ist ein dem Brettspiel Risiko nach- 
empfundenes Strategiespiel für zwei bis vier Per- 
sonen. Es geht darum, möglichst viele der 42 
Länder auf einer Weltkarte zu erobern. 


isting 1 enthält das eigentliche Spiel, von dem aus die 
| ‚Binärdateien RISIKOMC.OBJ und RISIKO.BIN aufgeru- 
BEE fen werden. Listing 2 enthält den Maschinencode-Teil 
und erzeugt die Datei RISIKOMC.OB\. Listing 3 schließlich 
beinhaltet alle Daten der einzelnen Länder und die komplette 
Weltkarte. Sie starten es mit »RUN 9000«. 

Und nun zum Spielablauf: 

Die Randfarbe, die während der Eingabe des Namens eines 
Spielers erscheint, macht auch im Verlauf des Spiels kennt- 
lich, wann dieser Spieler an der Reihe ist. 

Nach dieser Eingabe informiert der Computer über die 
Stärke der Nachschubarmeen des ersten Spielers. Danach 
werden Sie aufgefordert, Ihre Armeen in Ihren Ländern zu sta- 
tionieren. Dies geschieht dadurch, daß Sie das Fadenkreuz 
auf dem Bildschirm mit den Cursortasten oder dem Joystick 
auf das Land bewegen, das mit Armeen besetzt werden soll. 
Dann drücken Sie einfach »Copy« oder »Fire«. 

Armeen können allerdings nur Länder besetzen, die schon 
im Besitz des jeweiligen Spielers sind. Um welche es sich 
dabei handelt und wie viele Armeen sich in diesen Ländern 
bereits befinden, erfahren Sie, wenn Sie »Space« drücken. 

Pro Land können Sie nicht beliebig viele Armeen stationie- 
ren. Die maximale Anzahl an Armeen, die Ihnen zugestanden 
wird, eröffnet Ihnen ein Druck auf die »M«-Taste. 

Nun dürfen Sie aus denjenigen Ihrer Länder, die mit mehr 
als einer Armee besetzt sind, Ihre Mannen abziehen und 
_ anderswo einsetzen. Dies ist allerdings nur möglich, wenn 
eine durchgehende Verbindung zwischen den eigenen Län- 
dern besteht. 

Sie können nur Länder attackieren, die direkt an Ihr eigenes 
Territorium angrenzen. In dem angreifenden Land muß sich 
auf jeden Fallmehr als eine Armee befinden, da sonst im Falle 
einer Niederlage das Land unbesetzt bliebe. 

Nun erscheint ein sogenanntes Würfelmenü. Dort löst der 
Angreifer durch Drücken von »Fire« oder »Space« den Wür- 
felvorgang aus. Ist die Zahl der angreifenden Armeen größer 
oder gleich 3, so darf er dreimal würfeln, ansonsten entspre- 
chend der Armeenzahl. Dann würfelt der Verteidiger. Die 
gewürfelten Zahlen werden vom Computer automatisch der 





nn 


18 
M #*#* “#+ L[9CSC] 
s8 REM ## RISIKO *#* [7580] 
48 REM #%# 2 “”»* [974648] 
SB REM ##+ produced 1984/85 by ** [59758] 
dB REM #*#+ Markus Melchinger *# L[BS44] 
78 REM ## Laubachweg 24 *# LC[F418] 
B08 REM ** 7958 Laupheim *# L3EBC] 
90 REM +## ** [826A] 
108 REM #**+ for the CPC 444 *#* L[5C72] 
118 REM #+ “#* L757C] 
128 REM HH LIO9A] 
: 57380] 
-i [752E] 
158 DEFINT a-z. [7B38] 
i&B MEMORY &89778: LOAD "!risikomc.obj":LO 
AD "!risiko.bin" [8478] 
178 DEFINT a-z:DEF FNdeek (z)=PEEK {z ) +25&5 
#PEEK (z+1) :ds=&8D&48 C1D88] 
188 REM Parametereingabe #anunnununane#  [OF2A] 
170 REM | CA13C]I 
2B8 DATA 1,54,0,24 [$CDA]I 
218 MODE 1:BORDER ®:RESTORE 288:FOR i=8 
- TO 3:READ fz:INK i,f:NEXT i A186] 
228 FEN 1:PAPER 3: PRINT:PRINT" RISIKO{2 
SPACE}by Markus Melchinger {11 SPACE} 


238 LOCATE 1,24:PRINT SPACE$ (40); 











Größe nach sortiert und verglichen. Für jede Zahl, die niedri- 
ger als die des Gegners ist, verliert man eine Armee. Bei zwei 
gleichen Zahlen verliert der Angreifer. Diese Prozedur wird 
nun so oft wiederholt, bis der Angreifer aufgibt oder der Ver- 
teidiger keine Armeen mehr besitzt. Im zweiten Fall muß der 
Angreifer mit mindestens einer Armee im eroberten Land ein- 
marschieren. 

Nun kann man weiter angreifen oder seine Armeen ver- 
schieben. Hat man sich für ein Verschieben entschlossen, ist 
für diese Runde kein Angriff mehr möglich, und nach dem 
Verschieben kommt der nächste Spieler an die Reihe. 

Nach jeder Runde erhält der Spieler, der an der Reihe ist, 
eine bestimmte Anzahl an Armeen. Diese errechnet sich aus 
der Zahl der besetzten Länder geteilt durch 3, den Kontinen- 
ten, die der Spieler besitzt, und den in der letzten Runde er- 
oberten Ländern. | 

Zusätzliche Armeen für Kontinente: 

Amerika: 5 
Europa : 3 
Afrika : 6 
Asien : 4 
Australien : 4 

Die Länder der einzelnen Kontinente sind an einer charak- 
teristischen Färbung zu erkennen. Außerdem meldet der 
Computer, wenn ein Spieler einen Kontinent erobert hat. Der 
Computer registriert, wie viele Länder ein Spieler in einer 
Runde erobert. Die Anzahl der Armeen pro erobertem Land 
nimmt mit jeder Runde zu. Am Anfang liegt sie bei 1/10, das 
heißt, man muß 10 Länder erobern, um eine Zusatzarmee zu 
bekommen. 

Je mehr Nachschub anrollt, desto höher steigt der Spieler 
im Rang. Nach dem Soldat folgt der Gefreite, dann der Haupt- 
mann, General und Diktator. Es kann nun vereinbart werden, 
daß das Spiel zu Ende ist, sobald ein Spieler einen bestimm- 
ten Rang hat oder eine bestimmte Zeit abgelaufen ist. 

(Markus Melchinger/ja) 









CPC 464 


PEN 3:FAPER ®8:LOCATE 2,5:PRINT"Anzah 
ı der Mitspieler (2-4): „.":LOCATE 31 


















5 C45F8] 
258 a$=1INKEY$ [293A] 
258 IF a$="" THEN 258 [CABE&ö] 
270 IF as$<"2" OR a$>"4" THEN SOUND 2,78, 

18:60T0 258 [L4EFE] 
288 PRINT a# [7ED8] 
298 a=VAL(a$): DIM names (ati) [F432] 
388 PEN 1:PRINT:PRINT" Namen der Mitspie 

ler: ":PRINT=:PRINT 7452] 
318 CALL &BB8i [5CBöä]l 
328 FOR i=1 TO a LCABAE] 
338 BORDER i+2 [47F4] 
3548 PEN 3:PRINT i;5"Soldat ";:PEN 1:PRIN 

ee {3 SPACE}"; [78C8] 
358 LOCATE 11,8+2#i ın$="" [55665] 
Ss60 j=i [3262] 
378 a$=INKEY$: IF a$="" THEN 378 CBB78] 
3808 e=ASC (af) [CDS4] 
3598 IF e=&7F AND ji>i THEN j=j-i:n$=LEFT 

#in#,LENin$)-1I)se 

PRINT CHR$(8)35".":CHR$(B) 3: 

GOTO 378 [2418] 
480 IF e=13 THEN 448 [7828] 
418 IF e<32 OR e>12& THEN SOUND 2,790,18 

:GOTO 378 C717C] 
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TTV m a bp; 
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Ne u a 


a Fe en ee a Zn ni Ei I 0 5 Sa ad 2 1 RB ee a ae N BE za Em a a Zt ap a A A a a en a 
IF ji<i& THEN n$=n$+a$s: PRINT a#; 1 j=j 115@ PRINT" Fuer besetzte Laender {B SPAC 
+1 ELSE SOUND 2,78,18 [5088] E}r" [C5088] 
4308 GODTO 378 [CFF4] 1158 PEN 3:PRINT nl CB4BE] 
448 name$ (i)=n$ı PRINT:PRINT [7568] 1178 PEN 1:PRINT [C43C8] 
450 NEXT i LSF@2] 1188 PRINT" Fuer vorher eroberte Laender 
4408 CALL &BB84 [5718] 2"; [5916] 
478 PRINT:PRINT" Wie lange soll gespielt 119@ PEN 3:PRINT nel:PEN 1:PRINT [SEF8] 
werden" | LFC76&] 1288 PRINT" Fuer Kontinentet{i4 SPACE}:"3 
450 PRINT" 2 x <Enter> wenn kein Zeitlim CDCB4] 
it" [7612] 1218 PEN SıPRINT nksPEN 1:PRINT:PRINT [S9ACH 
498 PEN 3: PRINT" Stunden: ..";3:GOSUB 338 1228 MOVE 248: DRAWR 512 [2724] 
GO: zeit=zersd | [9A74] 1238 PRINT" Bumme(24 SPACE}: "; [ABAS] 
538 PRINT:PRINT" Minuten: ..";3:GOSUB 338 1248 PEN 3:PRINT n [4EE4] 
Bızeit=-zeit+tze [C5BE] 125@ IF zeit=@ THEN 1278 [92F2] 
518 REM Rangnamen einlesen s#arn#a#n00##+ | [BöFBBö] 1258 PRINT:PRINT:PRINTıPRINT" Noch zu sp | 
528 DATA Solust Betraiter ‚Heuntnsnn, ans ielende Zeit:";jzeit;"Min." CBABA] 
ral,Diktator [21A2] 1278 m$=" ":605UB 4848 [D588] 
5358 DIM status$ (5) ın$="":ıRESTORE 528 £D2C4] 1288 IF n=8 THEN 1488 [8152] 
548 FOR i=1 TO 5 [455E] 1298 m$="Bitte verteilen Sie Ihre"+STR$( | 
558 READ n$ [C858] n)+" Armeen" [3376] 
560 statusfli)ens+t" " [D97&1 13588 auswahl=1:60D5UB 2778 [BEE2] 
Be MErT i J [2888] 1318 IF b=s THEN 1348 [C&BA] 
| REM Laenderverteilung ##@@sr@meea0## [DEB&] 132@ m$=arti$(art)+iln$+" gehoert ihnen n 
57@ RANDOMIZE TIME [D@&C] icht '!"+nl$+"Bitte neu auswaehlen" LCCFB] 
588 FÜR i=1 TO a CD4B8] 1338 GOTO 1388 [B588] 
&iß FOR j=1 TO INT(42/a) [3796] 1348 PRINT del$; "Wieviel Armeen";art#lar 
628 adr=ds+11+INT (RND#42) #38 [?C78] t)s;1In$ [C2&2] 
638 IF PEEKtadr)<>@ THEN are [2BaC] 1358 PRINT "(alt: "saz;s "max. "smaximaz; "Arm 
648 POKE adr,i:POKE adr+1, CABICI a"amg") „." [D39A] 
#58 NEXT j [5E48] 15608 6 3388 [C&8B8] 
668 NEXT i LFB®8] 137@ IF ze<® OR ze>n OR az+ze>maxima THE 
678 FOR i=ds+1i TO ds+1241 STEP 38 (B4B4] N 1348 [E512] 
#808 IF PEEK(i)=B THEN POKE i,„INTIRND#a) 1388 n=n-ze:POKE ca-i5,az+ze [3884] 
+1:POKE i+1,i [78BC] 1378 GOTO 1288 [A322] 
678 NEXT i L47BE] 1488 m$="Wollen Sie noch verschieben (j/ 
’88 REM Spielbeginn En enunr CE7D2] n)" [BSZE]I 
7/18 s=B: MODE 1:PEN 3:PAPER 2 [BE78] 1418 auswahl =®: GUOSUB 2778 E7AE4] 
728 DIM elta) ,art$(2) ,„arti$(2) ,‚art2$(2), 1428 IF a$="j" THEN GOSUB 3778:6G0T0O 1488 | 
art3$ (2) [7268] CAD7CI | 
738 aprol=ß:nl$=CHR$ (13) +CHR$ (1B) [249C] 1438 IF a$<>"n" THEN 1418 CFEFA] 
748 del $=CHR#$ (31) +CHR#$ (1) +CHR$ (24) +CHRF$ ( 1448 REM Angriff ###* [F3978] 
14) +CHR$ (2) +CHRF (1B) +CHRF LIBI +CHRF IL 1458 m$="Wollen Sie jemand"+nl1$+"angreif 
8) +CHR$# (11) [8D44] en (j/n)" [S8F8] 
758 art$(B)=" in die "sart$li)=" nacht3 1448 auswahl=®: GOSUB 2778 [BAEE] 
SPACE}"sart$#(2)=" in den " £[37Dö] 1470 IF a$s<>"n" THEN 1538 [BBO8B] 
768 arti$(B)="Die "sartifli)=""sartisi2) 1488 m$="Wollen Sie noch verschieben (j/ 
="’Der " [44Fö6] n)" LES3E] 
778 art2$(B)=" in der "ıart2$ti)=" in "r 1498 auswahl=-B:6GOSUB 2778 £CAF4] 
art2s(2)=" im " [8D52] 1588 IF a$="j" THEN GOSUB 3778:60T0 1488 
780 art3$(B)=" von der "ıart3s(ti)=" von L258A] 
| "sart3s(2)=" vom " [9852] 1518 IF a$<>"n" THEN 1490 [FB@OB] 
798 IF zeit=B THEN 818 [BE4B] 1528 60T0 8358 [&BB8] 
888 EVERY S888,1 GOSuB 4 [7916] 1538 IF as<>"j" THEN 1458 [23FC] 
B18 karte=L8999: saver=tGB24: darst=&BBAD: 1548 m$="Welches Land wollen Sie angreif | 
lva=&8B975: deleter =&B8B&äD: vp=&BBFA [494A] en ?" CDEBC]I 
828 4 zeit>®@ THEN EVERY 3888,1 GOSUB 42 1558 auswahl=1:60SUB 2778 [C7AF®] 
[A4AA] 15648 IF b<>s THEN 14B8 [?A48] 
838 BALL lva C3874] 1578 m$=sarti$slart)+in$+” gehoert Ihnen s_ 
848 s=s+l:aprol=aprol+1l:ıe=FRE("B") C179@] chon"#nl# [3716] 
B58 IF s>a N s=1 [C887C] 1580 BOSUB 4840 CC9BB] 
.8&8 BORDER s+2 [58D8] 1598 GOTO 1458 [7E24] 
B7@ MODE 1:1PAPER ® [C7&4E]I 1500 ba=bı aza=azımaximaa=maximaslca=icıl | 
B82a GOSUB 4118 | CFDACI na$=1n$rcaa=cararta=mart [9E72I | 
898 IF 1z=@8 THEN PRINT:PRINT"Zivilist "5 1518 m$="Von welchem Land wollen Sie ang | | 
names(s)ıPRINT"hat keine Laender meh reifen" £3D24] 
dr :FOR i=i TOD 2888: NEX 1528 auswahl=1:605UB 2778 CBDEC]I 
T:80T0 848 [?CCE] 1438 IF az<2 THEN m$="Nur 1 Armee"+art2$ | 
908 elis)=B [8574] (art) +1n$+n1l$#:60SUB 4848: 60T0 1458 LI1EA4C]I 
918 IF zeit>=@ THEN 1138 CA188] 1548 IF b=s THEN 1488 [F7D4] 
928 MODE BGB: PRINT:PRINT"Zeitlimit abgelau 15508 m$=artislart)+iln$+" gehoert Ihnen n = 
fen":PRINT:PRINT:PRINT [D5768] icht"+n1# [ZEBA] 
950 maxn=Bı sa=s [S5B36] 1640 GOSUB 48640 [DSAE]I 
748 FOR s=1 TO a [53D2] 1578 GOTO 1458 c2C22] 
958 GOSUB 411B: IF n>=maxun THEN maxnen:ıs 1588 FOR i=ca-7 TO ca-i [71951 
ieger=s L1EB2] 15990 IF l1ca=PEEK(i) THEN 1748 [FF7BCI 
7680 NEXT s [F&422] 1788 NEXT i (D858] 
970 s=sieger:GOSUB 4118 [S541E] 1718 m$="Keine Verbindung zwischen "+lina 
980 PAPER 2:BORDER s+2:PRINT"Sieger ist" $+n1l$+"und "+lns$+" " LE?BE] 
CHR$ (18) PRINT status$ (status) ;CHR$ 1728 GOSUB 4848 L7BAB] 
(18) [654BA] 1738 GOTO 1458 [781C] 
7978 . 4,65, 24:S5PEED INK 4,1:PEN 4 [7876] 1748 REM Kampf ### C8iFA] 
1880 PR INT CHR$ (18) ı PRINT name$ (s) JCHRS$( 1758 MODE i:PAPER 8 Li4CA] 
18) PEN 1 [823A] 1768 e=status: s=-baı GOSUB 411Bı s=eb: status 
1B1iB PAPER BıPRINT:ıPRINTı PRINT: PRINT"Noc a=status: status=e CAFDAI 
hein Spiel (j/n)" CAFB5] 1770 PRINT status$ (status) saname# (b) ı ı PEN 
1828 IF INKEY(45)=-i THEN 1878 C173C] 1:1PRINT " greift"zjart3$tart) [ZDE4] 
1838 FOR i=ds+1i TO ds+1241 STEP 38 [5782] 1788 PRINT 1n$;" aus mit"saz-1;5 "Armee";: 
1848 POKE i,B:POKE i+1,8 [83586] IF az>2 THEN PRINT "n" ELSE PRINT L9sEFA] 
1858 NEXT i [CBSC] 1798 PRINT Ina$;" an, das von" [C&AC4] 
1848 RUN 178 ER [7D28] 1888 PEN 3:PRINT status$s (statusa) ıname$ ( 
1878 IF INKEY{A44)=-i1 THEN i L7B3E] ba)s5=:PEN 1:ıPRINT" mit"sazas "Armee"; 
1888 PRINT:PRINT"Altes Spiel"ıPRINT"fort CSRE?2] 
setzen{5 SPACE} (j/n)" LFODC) 1818 IF aza>ı THEN PRINT "n" ELSE PRINT LF21@] 
1898 IF INKEY(45)=-1 THEN 1118 [7C42] 1828 IF az-aza>B THEN PRINT"heldenhaft " 
1188 IF INKEY#<>"" THEN 1188 ELSE PRINTı ; [CB9IB4] 
END | [5B76] 18538 PRINT "verteidigt wird." [3A38] 
1118 IF INKEY(45)=-1 THEN 1870 [F848] 1848 af="" CD2ES1 
1120 s=sa: GOSUB 4118: BORDER s+2ızeit=B:ıM 1858 FOR i=1 TO dra$=as+MID$ (STR$ (I) „2,1 ; 
ODE 1 [7F@6] J)sNEXT i [91EB] 
1130 un 1:PRINTıPRINT " NE EL EN 
C4FBC] 
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18658 LOCATE 16,8:PEN 2:PRINT a$;"{2 SPAC tatusa) zname$ (ba) [2D38] 
E)N as, "(2 SPACE}" ;a$ [7BD&] 2538 PRINT"aus ";lna$;" vertrieben. "ıPRI 
1878 PEN 1:PRINT:PRINT "Angrifft& SPACE} NT:PEN 1:PRINT "Es lebe "; 
a" z [D397A] status$ (status) sname$ (b): 
1888 PRINT:PRINT "Verteidigung =" | CEDEB] PEN 3: PRINT:PRINT: PRINT LF@@2] 
1898 PEN 3:w=1:LOCATE 16,108: FÜR i=1 TO & 2548 IF statusa>status THEN PRINT"Nieder 
sw(ii)=B:NEXT i CE1B®] mit ";status®# (statusa)sname#(ba):P 
1980 PRINT CHR$ (231) 5 :w(w)=1:EIsi=1 E77F4] RINT=PRINT [443A] 
191@ MOVE 8,384:DRAWR 548,8:DRAWR -6,-4: 2550 POKE caa-1ö,btel (s)=el (s) +1 [33FE] 
DRAWR 628,8: DRAWR -6,4 [2ADE] 2568 a$="":CALL lva [1758] 
1920 MOVE @,1864:DRAWR 648,8:DRAWR -6,4:D 2578 IF PEEK(ds+1284)=b AND PEEK (ds+1285 
RAWR -528,@:DRAWR -6.-4 LFAF®] I)<>b THEN a$="Amerika" C59D2] 
1938 IF INKEY(47)=-1 AND JOY(B)<>1& THEN 2588 IF PEEK(ds+1287)=b AND PEEK (ds+1288 
19738 t422C] I)<>b THEN a$="Europa" [(B844] 
1948 EVERY 3,8 GOSUB 2828 [F958] 2598 IF PEEK(ds+129@)=b AND PEEK (ds+1291 
1958 IF INKEY(47)<>-1 OR JOY(@)=1& THEN )<>b THEN a$="Afrika" CDEF2] 
1958 [4010] 24880 IF PEEK(ds+1293)=b AND PEEK (ds+1294 | 
1968 e=REMAIN (BI) 1e=Bri=4 C7CDE] I)<>b THEN a$="Asien/Australien" [2508] 
197@ AFTER i,® GOSUB 2828 CBF98] 2618 IF a$="" THEN 2438 | CE?B®] 
1988 IF e=@ THEN 1988 [6E68] 262® PRINT a$;}" gehoert nun Ihnen":PRINT 
1998 e=8:i=i+INT (RND*#3) L155C3 : PRINT C9C74] 
2008 IF i>15 THEN 2978 [B2ACI 2530 age"" TACE2] 
2818 GOTO 1978 [C8D1A] 2648 IF PEEK(ds+1284)=® AND PEEK (ds+1285 1 
2028 e=1:w(iw)=w(w)+1:SOUND 2,58,2 C5D18] )=ba THEN a$="Amerika" | [BSB2] 
2030 IF w(w)<>7 THEN PRINT CHR$(231);5:F0 2658 IF PEEK(ds+1287)=® AND PEEK(ds+1288 
R j=1 TO S5:ıNEXT j:GOTO 2940 [28A4] )=ba THEN a$="Europa" [8524] 
2848 FOR j=1 TO 5:ıPRINT CHR$ (8) ;CHR$ (16) 2558 IF PEEK{ds+129@)=® AND PEEK (ds+1291 
5:NEXT j [7988  )=ba THEN af="Afrika" [897D2] 
2058 wiw)=1 LFC28] 267@ IF PEEK(ds+1293)=@ AND PEEK(ds+1294 
2068 RETURN [809%] )=ba THEN a$="Asien/Australien" C6öCB2] 
2078 IF w>3 THEN 2188 [BF74] 2588 IF a$="" THEN 2788 [C2BA] 
2888 IF w=i AND az>2 THEN LOCATE 24,18:w 25878 PRINT a$ı" gehoert nun nicht mehr"ı 
=2:60T0 1908 [DA24] | PRINT status$(statusa) sname$ (ba) L9E7B] 
2098 IF w=2 AND az>3 THEN LOCATE 32,1@:w 27@8@ PRINT del$}"Mit wieviel Armeen woll 
=3:G60T0 1908 [B42C] en Sie"jart$(arta) LEF&CI 
2188 IF az=2 THEN GOTO 2158 CDCDB] 2718 PRINT Ina$;" einmarschieren (max ."; 
2118 IF az=3 THEN IF wti)<wi2) THEN e=w( STR$ (MIN(az-1,maximaa))3").."5 L2AFC] 
1)ıwi1)=w(2)ımwi2)=erG0T0 2158 2728 GOSUB 3388 [8CB2] 
ELSE 2158 [76C2] 27308 IF ZE>MIN (az-1 ‚maximaa) OR zeii THE 
2128 IF w{3)>wt2) THEN eumt{2):wi2)=wil3): N 27 [4F2A] 
w(3)=e CB42A] 2740 POKE ca-i15,a2-ze C944C] 
2138 ae THEN e=wmtil1)wii)mti2): e 1293 27508 POKE caa-i5,ze [SFBO] 
wi2)=e | FAZ ’ =" if i/n)":GOTO 14 
2140 IF wiSI>mt2) THEN em 2IwiZImiDe ne A [8D381 
w(S)=e AZE 2778 REM ro Search (Tastaturauswertung 
2158 er ghhe 16 [5D88] alles Laenderer kennung) C758C1 
2188 FOR i=1 TO SHPRINT STRING$ (w(i) „CHR 2788 REM CABAAI 
5 (231) 1 BPALES (BMA) JS TNENT i [7A88] 2798 DRAWR 8,0,3 L2IFA] 
2178 w=4:LDCATE 168,12:60T0 1988 [8D6E] 280@ CALL karte:CALL saver:CALL darst [4AD®] 
2188 IF w=4 AND aza>i THEN LOCATE 24,12: 281@ PRINT del$;m$; C33F@] 
w=5:60T0 1788 L8BrF8] 2828 Ir. INKEY (B)=-1 AND JOY(@)<>1 THEN 2 x 
219@ IF ner aza>2 THEN LOCATE 32,12: AR [C8A58] 
__._ w=5:60 798 1 2838 YePEEX« s+1296)+2 "oben L2F6A] 
2288 IF aza=1 THEN GOTO 2258 |  LCS59C) 2840 F v>200 in y=288 [1B3A] 
221@8 IF aza=2 THEN IF w(4)<w(5) THEN e=w 2858 nt deleter:PÜKE ds+1296,y:CALL sa 
(4)ıw(4)=ew(5)m(5)=eı60T0 2258 ver:CALL &BD19:CALL darst CDA921 
Le ELSE 2258 [CCACI 2848 GOTO 2828 [A22A] 
2228 ee w(&)>wi5) THEN em (F)ın(Fenmlbdı > r 2878 IF INKEYtZI=-1 AND JOYtB)<>2 THEN 2 
n BFSB 920 L4F58]1 
2238 IF 5 3wiA) THEN e=w (4) ıw (4) m (5): 28808 y=PEEK (ds+1296)-2 "unten [3484] 
an Se E> ludelnn 2898 IF y<23 THEN y=23 [618C1] 
2248 IF w(&) >w(5) THEN eu (5) am (5)mlb)ı: 2988 CALL deleter:POKE ds+12964,y:CALL sa 
w(ö)=e [A754] verıCALL &BDi19:CALL darst [978A] 
. 2258 LOCATE 16 [L7&46E] 2918 GOTO 2828 [4722] 
225B FOR i=4 1 PRINT STRING$ (w(i) „CHR 292@ IF INKEY(1)=-1 AND JOY(®B)<>B THEN 3 
#(231)),5SPACEF(B- ti’): NEXT i [8396] a28 CEB4A] 
2278 av=Bıava=-® [7D1C] 2930 CALL deleter CAE1E] 
2288 FÜR i=1 TO 3 | [3608] 2940 x=FNdeek (ds+1272)+4 "rechts [C173E] 
2298 IF w(i)=@ OR w(i+3)=@ THEN 2328 [C4@DA] 2950 IF x<313 THEN 2990 LECSA] 
23588 IF wti)>wii+3) THEN ava=ava#+1 ELSE 29608 x=x-6B: kp=FNdeek (ds+1299) +60 [8802] 
av,av+i EFCB4] 2978 IF kp>632 THEN kp=kp-632 [43FE] 
251@ NEXT i | [BCSC) 2980 POKE %&927B,kp MOD 2564:POKE &927C,IN | 
2328 LOCATE 1,16:PEN 3 [B7E6] T(kp/256):CALL karte [6880] 
2338 PRINT status#(status’snamef(b);" ve 29798 POKE ds+1272,x MOD 256: POKE ds+1273 
rliert" [2722] „INT (x/256) [FIBEC]I 
2548 PEN 13PRINT avs:PEN 3S:PRINT "von";3a =: 3B88 CALL saver:ıCÄLL darst [C3AB] 
z-15 "Armeen" [229E] 3818 GOTO 2828 [3A12] 
2558 PRINT status#(statusa) ıname$s(ba)z;" 3828 IF INKEY(B)=-1 AND JOYtB)<>4 THEN 3 
verliert" [6BAA] 120 [2842] 
23568 PEN 1:PRINT avası:PEN 3:PRINT "von"; 32328 CALL deleter LiFBE] 
| azaz "Armeen" [SC5A] 3848 »=FNdeek (ds+1272)-4 "links [8362] 
2370 az=az-avıazasaza-ava:POKE ca-15,az: seS58 IF »>@ THEN 3098 [4178] 
POKE caa-15,aza CBRBE ] 3068 =x+6B: kp=FNdeek (ds+1299) -6@ C6DC2] 
2388 PRINT:PRINT LSF82] 3878 IF kp<® THEN kp=kp+632 C591@] 
2398 IF az>1 THEN 2438 LFB3E] 3088 POKE &927B,kp MOD 254:POKE &927C,IN 
2488 PRINT "Angriff gescheitert. "ım#="" L[718A] T(kp/256) »CALL karte cCD778] 
2418 GOSUB 4068 L3EA2] 3@98 POKE ds+1272,x MOD 2564:POKE ds+1273 
242B m$="Wollen Sie trotzdem nochmal "+nl „INT (x/256) C75DC] 
$+"angreifen (j/n)":GOTO 1468 L7DCB] 3108 CALL saver:CALL darst [33AA] 
2430 IF aza=9 THEN m$="":GOSUB 4948: G0OTO 311@ GOTO 2828 [9214] 
2508 | [1A88] 3128 IF INKEY(47)<>-1 THEN maxi=®:6OSUB 
2448 PRINT "Noch ein Versuch ? (j/n)" [5B2C} 3490: G60T0 28088 CA776&61 
2450 a$=INKEY$: IF a$<>"" THEN 2450 LSB6E ] 313@ IF INKEY(38)<>-1 THEN maxi=-1:60SUB 
2458 a$=INKEY$: IF a$="" THEN 2468 [SDF8] 3490:60T0 2888 [99D4] 
2478 IF a$="j" THEN 1758 [6098] 3148 IF (INKEY(9P)<>-1 OR JOYt@)=14) AND 
2488 IF a$<>"n" THEN 2458 CDA1B] auswahl THEN 31990 [DSsBC]I 
2498 m$="Noch ein Angriff (j/n)":60T0 14 3158 IF auswahl THEN 2828 [3498] 
60 | [C838] 316@ IF INKEY(45)<>-1 THEN a$="j":RETURN 
2588 MODE 1:PRINT | | [5348] CEB48] 
2518 PRINT"GRATULIERE“: PRINT: PRINT [9576] 3178 IF INKEY(46)<>-1 THEN a$="n":RETURN 
2528 PRINT"Sie haben hiermit ";status$# is [8054] 
ur HOMELOMPI DO: or enäs,jnrDLlrpr sinn ee APP Ya 
UT WINEE RE TUR N: 7 eg 1-4 21.1 Ei ZZ BON PUTERE 
a TIERE EN FE =: wma Tr F N eh in ER se N; Bi 
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3318 
3328 
3338 
3348 


3378 
3378 
3418 
3420 
5430 
3448 


3458 
‚3478 





GOTO 2828 [9722] 
SOUND 1,158,5:SOUND 1,188,7:50UND i 
‚>, [5848] 
EALL deleter CEDSC]I 
lc=PEEK (&8D56&) [FDEA] 
IF 1c<>15 AND 1c<>255 AND 1c<>248 T 
HEN 3248 LiBCE)] 
lc=PEEK (&8D58) CF3F2] 
IF INKEY$<>"" THEN 3240 [7854] 
IF 1lc=B THEN mi$em$ım$="Wasser !!"+ 
nl#: GOSUB 48508: m$=mi$:CALL darstı 
G0OTO 2818 [A308] 
FOR ca=ds+27 TO ds+27+41=38 STEF 30 
[8858] 
IF PEEKica)=1c THEN 3328 [9270] 
NEXT ca L7E28] 
Et TE Identifikation mo | 
Be [3B32] 
INT"Bitte nochmals auswaehlen"; [C4E58] 
CALL darst:6G0TO0 2828 LJEABI 
In$="" CD7CE] 
FOR j=ca+i1 TO ca#+12 [FEDB]I 
In$=1n$+CHR$(PEEK (j)) [45848] 
NEXT j [DC58] 
b=PEEK {ca-16) raz=PEEK ica-15) rmaxima 
=PEEK {ca-i4) rart=PEEK (ca+13) [417E] 
RETURN [AA?A] 
REM Upro Input ##=##= [8228] 
PRINT CHR# (BI); CHR# (BI); : PEN i:CALL & 
BBBi [2B3A] 
i=B:ıe(il)=Bıiel2)=d [4EB4] 
as$=INKEY$: IF a$="" THEN 3418 [ZBEB] 
IF INKEYi79)<>-1 AND Er THEN eti) 
TURASKTEREIENT CHR# (8) 35". "5CHR#(8) 3; 
GOTO 3418 E2B24] 
IF INKEY(18)<>-1 OR JOY(B)=1& THEN 
3478 [34C8] 
IF as<"B" OR a$>"9" OR i=2 THEN 341 
[fu] [C2CB] 
PRINT SELF rIERILINAL Ta [CAFF?A] 
GOTO 3418 [771C] 
IF Fe THEN ze=e{i1) ELSE ze=eti)#1B8 
+e (2) [44E8] 
PEN 3:CALL &BB84: RETURN [77976] 
REM Upro Armeenzahl darstellen #### 
BEE C4B97&4] 
CALL deleter [2212] 
IF maxi THEN mi$="Maximale Armeenza 
hl" ELSE mi$="Ihre Armeen" CAGF4] 
FOR j=1 TO 3 C3ABE] 
PRINT del$#;mi$ [87DcC] 
TAG [CABDB] 
FOR k=ds+1i1 TO ds+1241 STEP 38 C[B858] 
IF NOT(maxi) AND PEEK{ikI<>s THEN 36 
40 [86556] 
x=FNdeek (k+3) -FNdesek (ds+1299) [L125A] 
IF »<-328 THEN x=x +448 [bB4C] 
IF »<B OR «>312 THEN 3448 [CAAS5A] 
y=PEEK (k+5) : TAG [C4D&C] 
MOVE 2#4+8,2#y [1272] 
IF maxi THEN DRAWR 0,0,1:a%=STR$1 
PEEK {k+2) ) : PRINT RIGHT$ (a$,LEN(a$)- 
1)33 GOTO 3448 CDAC4] 
DRAUR 8,9,3: a$=5TR$ (PEEK(k+1)) ı PR 
INT RIGHT$(a#,LENta$)-1); L7F&E] 
NEXT k [B7AE]I 
IF INKEY$<>"" THEN 3458 [22B8] 
TABOFF=:PRINT "Bitte Taste druecken 
” [LES4C] 
WHILE INKEY$S=""ıWEND [424C] 
x»=FNdeek (ds+1299) C4D35] 


243,237,115,113,141,49,129, 1027 
146,237,75,123,146,221,33,981 
99,141,17,88,192,237,83,849 
188,141,17,1&0,192,237,93,938 
182,141,151,221,119,11,221,966 
119,5,33,64,1,151,237,618 
66,33,1,0,48,68,33,249 
128,2,237,66,151,203,60,847 
203,29,203,31,283,60, 203,932 
29,203,31,203,63,.203,63,795 
203,63,203,643.203,63,203, 1201 
63,35,34,111,141,221,119,724 
6,42,120,141,17,80,0.386 
151,237,82,237,91,111,141,1805@ 
25,221,203,5,134, 209, 221, i818 
125,6,221,114,7,214 


15, ‚71,24,26,209, 122.3 ‘32 cas 
2,25,45, ‚27. 46, 2,55, ‚415 


‚87,151,237,66,125,966 
ig 80,0,42,18@,141,237,6Bi1 
65,71,62,3,184, zi8, 196,792 
138,114,35.5,5,5,5 


[8072] 
[54C2] 


[ 
12@,237,75,18@,141,183,237,1893 








4078 


»=x+212 

IF »>432 THEN x=x-432 
POKE ds+1299,x MOD 254 
POKE ds+13@@, INT (x/256) 
EALL karte 
NEXT j 
PEN 3S:ıDRAWR 8,0,3 
RETURN 


REM Upro Armeen verschieben ####4## 
ma$="\Von welchem Land wollen Sie Arm 
een"+nl$+"abziehen" 

auswahl=1:6G0S5UB 2778 


IF b=s THEN 3838 
IF v>5 THEN a$=" (noch)" ELSE af="" 


 m$=arti$(art)+ln$+" gehoert Ihnen"+ 


af+nl#+"nicht. ":605UB 4848: RETURN 
IF az=1 THEN m$="Nur eine Ärmee"+ar 
t2$ (art)+1in$+n1l18%ıG0OSUB 48481: 

veaz-i 

PRINT del$; "Wieviele Ärmeen wollen 
auge ala iIn$;" abziehen 
(max."zvı") ıG0SUB 5388 

IF ze>v THEN 3958 

IF ze=8 THEN SETURN 

v=zeıPOKE ca-15,az-vıcav=ca 
mt="Sie haben"+S5TR$ {v)+" Armeen"+nl 
#+"In welches Land soll verschoben 
wer den" 

auswahl=1:6GOSUB 2778 

IF b=s THEN 3948 
IF v>5 THEN af=-" 


ELSE ue"" 


m#=arti$(art)+1n$+" gehoert RR 
Bu Am DRENE, ":GOSUB 4848:60T0 38 


IF ca=cav THEN 4008 

CALL vp,s,cav,lc 

IF PEEK (ds+1271)=255 THEN 4980 
m$="Kein Verschieben moeglich"+n1$ 
GOSUB 4948 

GOTO 3878 

vmax=MIN (v,maxima-az) 

PRINT del$; "Wieviel Armeen";art$lar 
t)sln$;nl$5" (max. "zvmax;") „."z 
GOSUB 3388 

IF ze>vmax THEN 4818 

POKE ca-15,az+ze:ı vev-ze 

IF vw>@ THEN 3898 ELSE RETURN 

REM Upro Warten auf Tastendruck ### 
* 


PRINT del$;m#; "Bitte Taste druecken 


5 
IF INKEY$<>"" THEN 4080 
WHILE INKEY$="":WEND 


(noch) " 


4188 RETURN 


4118 
4128 
4138 
4148 
4158 
4168 
4178 
4188 
4190 
4208 


4218 
4228 
42538 


REM ro Nachschub berechnen ### 
lz Ktids+1282-s) 
nl=INT(1z/3})=:IF nl<4 THEN nil=3 
nk=8 
FOR i=ds+1284 TO ds+1293 STEP 3 
IF PEEKti)=s THEN nk=nk+PEEK (i-1) 
NEXT i 
nel=INT (el (s) #*aprol /1®) 
n=nl+nk+nel 
IF n#a<75 THEN status=INT {in#a/15) +1 
ELSE status=5 
RETURN 
REM Upro Zeit ##* 
SOUND 1,15,3:zeit=zeit-1:RETURN 


Listing 1. Erobern Sie die Welt (Schluß) 


109,141,237,75,123,146,33,864 
64,1,151,237,66,48,21, 
42,109,141,17, 64, 1,9,383 
237,82,221,125,6,254,8,926 
194,13,138,43,195,13,138,734 
42,180,141,17,0, 8,25, 355, 
34,188 ‚141,88, 13,42 
141,34,180,141,17, 5.0 2.315. 
25,34,102, ja1 io. ia2, "al.se7 
17,208,199,151 ,237,82,32,92& 
6,237,123,113,141,251,201, ‚172 
231 ‚283,5,7@,194,238,137 
58,189,141,111,38,8,237 20 
75,123,146. 17,64 1, 9,435 
25,43,62,2,198,56,222,598 
32,18,62,128,189,54, 215,708 
32,11,237,75,123,146,51.675 
33,1,8,195,13,138, 209,589 
22,8,25,24,225, 122,209 ,627 
74 ,87,151,187,32,12,221,764 
203,5, 198,59,62,4,184, 675 
95,221,78,7,237.8% 187,828 
141,81,151,184,32,7,58 
187,141,71,195,39, 136, 12" 753 


DATA 
DATA 
DATA 
DATA 


Listing 2. Maschinencode bringt Geschwindigkeit 


LSFAAI 
[CA78] 
[6286] 


15584 ] 


[CD3&] 


tu yal 








Böl 

878 
868 
B78 


a P—i —— a7; zur Zu Z—— , > ER Z; 
FL Tr DRIETE ee Er,r er re er fs n 
> 7, er j" ir 2 rl, y w y 7, w - =. 

er Ge en 

5 h « ‚ 


184,32,11,122, 238,119,499 
A a7. 221 ,126,9,230,136,24,833 
25.62,2,184,32,11,122,438 
Zen 2a ‚51,87,221,126,9.250,954 
1a, 5, Zu 558. 138 ‚119,1121 
= ' 203.5.70,194,180,138,931 
35,58,187,141,214,4,128,587 
71.81.195,51,138,237,91,864 
96,144,58,128, 146, 111,38,715 
2, 285, 29,188,17,80,141,648 
141,237, „168,5 3,237,875 
128 3 ‚43,43,285,38, 188,688 
235,183, 257 66,9,235,56,, 1821 
237.201. 2 145,203 ,37,962 


203,20, Fi 44,179,58,128,558 

146, 11l, 38,8,203,37,283,738 
20,34 179, 205, 25, 189,698 

22° 22 ‚205,252, 187,201 ,237,1347 


91,96,146,58,128,146.111,768 
‚285,29,188 57 
141,235,1, 76, 141.237. 160 1011 
3 27; 7,168,3,2 35.43,43,724 
335, 183,237, = 1152 
52.237 „201, 634,33 5,588, 
162,144 5 


4, 16,251 

&,3, 33. s,115, 14 1,34, lıı a 
141,14,8 08, 186,257 ,665 
83,187, Eh 7 ‚18, 126,52@ 
27 .18,126,33, es 196, 95,551 

‚ 22,0,151,237,92,52,42,586 
111,141,17,30,@,15i, Var 
34 ,111,141,12, 62, 42,185,587 
200,17,6,8,151,25,126,525 
184,408,17,4,237,91,107,688 
141,19,19,19,237,83,1807,625 
141.42.111,141,24,197,42, 2628, 
111,141,237,91,1@7,141,2 
190,40,192,151,18, 34. 1a das 
33,95,146,54,0.237,115,68@ 
113,141,221,118,2,221, 182,910 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


48 REM ee 37211-37478) 


sa 
60 DA 
78 
80 
78 


108 
118 
128 
158 
148 


148 DA 


DATA @,8,20,36,8,194,1,240,255,0,8,8, 
DATA" ‚a,2 

2,0.,0,8 
Baia’ 2’0'48.58'0 
2,0,0, sr USA,G 
DATA, ö „0,20, 58,0, 128, 1,251,258,0,8,0, 


DATA 6 8,198,Hex 0, ie}. 1,190,187,0,0,0,0 
"DArz „0,250, Mittelamer. ‚1 


39. AERER ai 
‚0,50.84,0,182,1, „239,255,251,75 


5 Kanada 
„152, be 255,190,0,0,0, 


TA 8,0,15,94,0,91,1,250,234,197,25 
2,8,8,8,187,Kolu 1 


Kolumbien, 
3 D la ıı2'0, 5, 1,197, 177,0,80,8 


‚28,8,0,0,234, Venezuela,i 


DATA B,B,i16, 90 ‚8,75,1,187,197,174,17 
5,2,0,8,8,8,254,Peru,i 
DATA 0,8,35,.146.0,61,1,234,187,254,1 


74.238,26, 0,80,8, 197 ‚Brasilien,i 

DATA 8,8, 15, 118, 0, 62, 1,254,197,238,1 
75,8 ‚2,0,0, ö, 174, Bolivien, i 

DATA 0,0,97, 11a, 2,39, 1, 254,174,2538,8, 
2,0,0,08,08,175, Chil 

DATA, @,8,21,122,0, ss, 1,175,174,197,0 
‚2,08,08,0,0, ‚238, Argentinien. 


ı7@ DATA 2,0,24, 214,8,195,1,255,69,0,8,8 
28,0,80, 35 ‚Groenland,i 
ı00 data 2,8, 17,295, 185,2,248,85,8@,255, 
0,0,0,0,0, Skandinavien, 1 
198 DATA 3.232 167,2,69,85,80,8,8,0,8 
‚8,0,80,England, 1 
| 20@ DAiA @,8,22,282,157,2,240,84,90,78,8 
| 1,80,67,8 8,85, Mitteleuropa, i 
| 218 DATA 0,0,16.255,0,147,2,75,85,0,8,8, 
- 8,8,0,8,81 ,Westeuropa,i 
228 DAT 8,8,18, 338,146, 2.240,181,241,85 
,B,08,08,8,0,8 Tuerkei, '2 
230 DATA @,0,25, 232.8, 132,3, 255,81,78,95 
‚2,8,0,8,0,75,Marokko,i 
240 DATA 0.0,22,248,128,3,75,85,90,30,26 
‚95,8,8,8,78,Algerien,i 
| 25a DATA 0,8,24,300,128,3,78,85,27,14,1@ 
‚30,0,0,8,90,Libyen,i 
268 DATA 0,08,14,224,0,116,3,75,78,26,8,@ 
28,08,08,0,75, Mauretanien, 1 
270 DATA 0,0,30,230,8, 180, 3,95,78,30,31, 
- 197,0,8,0,80,26,Mali, 
280 DATA @,8,14,272, 110°, 26,78,90,10,31 
‚0,8,8,8,38,Niger ‚2 
290 DATA 0.0,10,294,108,3,38,90,14,15,31 
0,2,8,0,18,Tschad,2 
3a@ DATA @,0,16,264, 78, 3,26,38,18,15,8,0 
‚8,8,8,31,Nigeria 
| zı@ DATA 98,0,31,296, 9. 3,31,18,14,91,79, 
94,0,8,8,15,Zaire,i 


CE15A] 
[EO58] 
[457A] 
[L1AS5AI 
ED7FCI 
[CEC8@] 
[DFACI 
LEBE) 
[7888] 
CBBD6] 
CAD@2) 
[8508] 
CCFFCI 
[43CC] 
EFFCCI 
[F@64] 
[C9FSB) 
[D28A) 
[63EC] 
LFSE6] 
[SCB8] 
(7582) 
CD788] 
[83A2] 
[2DD4} 
CDIE2] 


[8IEB]I 
[CH3E]I 
L?C7C] 
[7384] 
[2A54] 
CFED®] 
LECAB] 
[BB&4] 
L42A8] 
3542] 
[AES6] 
[&B4E] 
[&4FD4] 
ESA4E] 
LESBE] 
[&CCH] 
[5734] 
EBCBB] 
[B43E] 
[8842] 

[47C8] 
[ö5SFE] 
EBF?BA] 
LiiF8] 
[87A8] 
[F458] 


EB7&C] 


[6&sDC] 





328 


448 
458 
468 
478 
488 


3470 
3582 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 4 
DATA 
DATA 
DATA 
DATA 
DATA 
REM N huncole in den Speicher b 


3,253,33,99,141,253,54,836 
0,0,126,229,33,32,141,561 
253,94,8,22,8,25,119,513 
253.52.0,225,17,9,8,556 
183,237,82,126,183,40,74,925 
221,190,0,32,18,33,95,581 
146,54,255,237, 


201 ,35,229,33,32,141,253,924 
70,8,190,32,8,225,128,645 
254,1,40,42,24,218,35,614 
16,242,33,131,141,17,380,61@ 
@,5,42,190,32,18,17,385 
18,8,183, 237 ‚92,221 ,126,865 
‚190,32,3,25,24,167,445 
225,24,186,25,16,232,237 75 
123,115, 141 ,201,253,126,8,95 
'2.,200,225,41,253,119, 1 
2,24, 165,0,0,0,8,189 


MEMORY &89798: adr=&89797: laenge=B: zei 
le=18 
RESTORE 
FOR i=1 TD 7 
READ byte 
IF byte=1B88 THEN 21538 


1253, 113, 141,1047 : 


POKE adr ,byte: adr=adr+i1: laenge=lae : 


nge+1:summe=summe+byte 

NEXT i 

READ qsum 

IF summe< >qsum THEN PRINT"Fehler in 
Zeile";zeile:END 

zeile=szeile+1d: summe=d 


‚b,&57797,laenge 


ı GOTO 2948 


SAVE 
END 


"risikomc.obj" 


DATA 0,0,21,288,72,3,15,79,8,0,8,8,0 


‚Oo, 2,7%, An ola,i 

DATA 0 ‚299,50,3,94,15,91,0,0,8, 
2,0,0 „° satin, | 

DATA 0,8,19,320,128, 3,90, 241,14,0,80, 
0,0,0,0,27,Aegypten 

DATA 0,8,22,324,188, 3, 18,98,27,91,15 


‚2,8 ‚20,14, Sudan,2 

DATA 8,0, 24,340,88,3,15,14,241,79,8, 

2,0,0,0, ya Östafrika,i 

DATA 8,8, 10@,408,184,4,649,85,84,181, 

164,245,168,239,0, 248, UdSSR,® 

DATA @,8,25,346, 128,4,27,84, 181,164, 

91,0,2,8,8,241,Saudiarabien 

DATA’ 9,90,19,368,1398,4,241, “Bi.zae, 164 

‚2,8, ‚Iran, 2 

Baia r) „2,52, 208 134,4,181 ‚249,245,22 
@,164,1 Indien,i 
138.4.246,245,0,0,0, 

‚168 Pen pe 


eı 
AR 1 »472,142,4,248, 160, 180,22 
8 China, 

Be 21.2.2328’ 0,0,0,0,0,0 
ir s. ne ae, 


DATA 8,0,20,484,116,4,164,245,229,8, 
2B,0,8 ‚8,0,225, Thailand 1 
DAT 0,8,24,514,88,4, 225 ‚244 ,0,0,8,8 
8 ‚8,229, Indonesien 
Data’ 0,0,44,556, 0 220,0, 0,0,0,8,8 
‚0,0,244, Australien,i 
DATA 2,140,0,0,8,0,0,0,8,0,0,8,5,8,0 
3,0,8 ‚6,8, ’8.4,.0,0.0,103,0,2,200 
DATA 8,0 
Ren Bllgechirmdaten (37585-42563) # 
Et hhEne 
DATA 192,0,64,235,138,8, 32,240,214, 


DATA 158,0,3,255,32,8,57,255, 105,0, 
4,.240,34,8,34,248,213,0, 
DATA 44,8,3,239,6,8,5,239,60,8,3,25 
5,36,0,3,255,31,0,59,235,1 
DATA 8,240,34,0,31,240,68,8,22,240, 
134,0, 
Data „28,8, 8,255,7,8,22,255 „47,8,9,2 
3520»3, 255,27,8 

Data 203 3537 8,51.255, „, 2,9,240,21 
‚2,3,240,8, a" 49,240,18,0 
Data 20,240,14,8,71,248,85,8 
DATA 28,.0,8,239,5,8,23 5 a,11, 
255,32,0,4,255,3,0,3,255,3 
‚DATA 48, 255, 98,0,3,240 18, o' 4, 240,6 

3,248,7,0,164,248,85,8 

Baia’ 24 ,8,52,255,40,0,6 Dis ,33, 8,7, 
255,44,0,47,255,118,® 








[57E4] 
[BAAE] 
L[38CC)] 
[58B8] 
[DCC4] 
[7164] 
[85B8] 

[ö82E] 
[A4CE] 
[2818] 
C2CEC]I 
[3854] 
[7CDCI 
CBFBB] 
CD7CC] 


[75E8] 
CS532C] 


[C72E] 
L1478] 
E?DBE)] 
EFF1A] 
[FEDB] 
[B772] 


[C4D4] 
[FO68] 


L78D4] 


[3CA2] 
[4508] 








—— 








5618 
36528 


35640 


3678 


3578 


3718 


35878 


5718 


.. 


» 3 
u 
En 


HH 


DATA 


DATA 4,248,65,08,4,240,3,2,178,240,82 


’ 7 
DATA 24,0,57,239,31,0,12,255,31,8,1 
5. 255,36,0,44,235,121 

DATA 4,240.4,0,174,240,03,0, 

DATA 29,0,53,235,14,8,12,255,29,8,3 
‚255,14,80,14,255,37,0,46,255 

DATA 98,0,.6,240,14,8,8,248,5,8,167, 
248,71,80, 

DATA 32,8,44,239,33,255,28,0,3,255, 
16,8,17.255,29,0,44.235.101,0 

DATA 9,240,13,8,7,248,4,0,166,240,9 


2,8 
DATA 3@,0,77,255,8,8,3,255,19,0,3,2 
55,19,8 12,255, 35,0,38 

127,8 0,4,0 188, 242,88,0 


DATA \ 
DATA 24,15,4 232233. 38,25 0,9,255, 
11,8,4 „255,12,0,3.2 2.6 7 "12'235 
DATA 29 2,35, 335,126,8,9,240,4,0,16 
9,240,97,1 

DATA 21, is. ‚89,255,3,0,15,255,6,0,5, 


255,7,0,7,255, 11,8, 12, 255,27, 

DATA 44,255,51,8,10,69,53.0,3,240,1 

0,8,9,248,3.0,167, 2i8 v7 ‚is: 

DATA 21 ara 1239,73,255,5; ‚10,255, 

10,8,10,255 

Data A’22,69, 34. Nr Et >i0.9'8.100,2402,0 
ses 


DATA 21,80,118,255,4,0,8,255,12,8,15 
255.23,0,41,255,54,0,24,69 

BATa A '43,0,5,240,7,8,179,240,86,0, 

DATA ‚778 25,239 ,07,25 11,8,21,255 


0,23,6 
dark 13.240 7,8,7,248,10,8,4,240,5, 
0,190,248,8 
DATA 13,8, ı5i, ‚255, „15,8,23,255,24,15 
‚27,255,62 
DATA 4,8 8,215 ’208, Br | 
DATA 14,8,46,239,77,255,16,8,17,255 
„4,8,8,255,22,0,26,235,14,8 
DATA 3,235,47,0,23,69,18,240,3,8,21 
5,248,87,8, 
DATA 18,8,1290,255,108,0,23,255,3,8,3 
255 28.0,24,255,15,8,9 
Bara' 41.0.23.49,17,248,3,8,212,248, 
Data’ 14,0,44,239,84,255,8,8,21,255, 
0,24,235,16,8,11,235,39 
Dat 12,69, 4 2,8, ‚67:5, 248,15,0,196, 
248,9,0,6,248,92,8, 
DATA 11,0,129, si 21,0,3,255,3,0,6, 
255,31,0,28,255,20,80,10,255 


DATA 39,15 12, 49, 38,3 ‚9,6,240,13, 
0,198,248,10,0,5.240,9i, 
DATA 1,0.4 a.283.2 „22,8. 15,239,77,255, 


27,8,3,255,3,8,5,255.30,8 16,255 

Data 25 ,0,12,235,37,0,12,29, 

9,206,240,21,0,6,240,90,0, 

DATA ia, 2 ‚5,255,25,0,78,255,40,0,3, 

255,3,0 4,255,38 2,12,255,30,0 
‚12,69,3,8,12,69,204 

248,21, 3.8.240' ‚89, 

DATA 5,0,11,255,37,0,73,255,24,0,7, 

255 ‚5,0,3,255,39,8,10,235,77,8,11,6 


Data 5,8,11,69,197,248,28,8,9,240,8 


DATA 35,9,72,255,25,8,8,255,49,0,8, 
255,79 9,5,0,14,69,194,240 
DATA 30, ur i0,240,87 

DATA 52. 2,72, 255; 24, 198: ‚255,49,0,7, 


235,78, 
DATA 2’2k8, 31° ar 240,85,8, 
Daran 52 Wer 255,24,8,9,255,53,0,3, 
255,77,8,10,59,4,8,16,69 
DATA 194,2408,31,0,11,240,85,0, 
DATA 52,8, 12: 28,22: 200,700, 131,0, 
Date "aa ’11.240,84 
DATA 18'735 255) 18° 2 13,255,133,®, 
69,6,0,14,69 196,2 24 
Data 32,8,11,248,8 
DATA 51,8,73,255, 17'8°25, 255,111,8, 
6,80,3,8,11,49,9,8,12 
DATA’ 194,248,35,0,11,240,82,0, 
DATA 51,8,74,255,15,8,27,255,199,8, 
6,88,5,15,18,69,19,8,198,240" 
DATA 35,0,7,240.84,8 
DATA 48,0,77,255,14,8,28,255,183,@, 
3,80,3,8,5,80,7,15,198.,49,15,8 
DATA” 201 ,240,16,0,4,240,17,8,3,240, 
DATA a ‚8, 75,255, 17,0,27,255,99,8,4 
„Q,8,00,4,@, 1, ’59, 
batk" 340.20,0, 5'248, 183,0, 
DATA 47 879° 255,18,0, 53, 255,98,0,5 
‚80,3,8,8,80,5,0,3,49, 
DATA 3,69, 11. ‚0,185, 248, i4,245,22,24 
0,6,8,7,240,1 
DATA 44,0 8.02 .258. a „0,33 ,255,102,8,9 
‚88,8,0,4,69,11,0,225,240 


‚8,6 


LEiBB] 


cc778] 
[ABBB] 


[BE7A] 
[8924] 
[47DC] 
[2F36&] 


[C2C5] 
[F7&A] 


[C8D14] 
[CABSC]I 
[8SA2E] 
[BC5A]I 
[B@48B] 
[2542] 


[?73BE] 
[53508] 


[8351C] 
[8758] 


LE2SE] 
[7EBCI 


[EBI1E] 
[35F4] 
[CCFE] 
[4578] 
[AIE4] 
L15BE] 


L17E4] 
[FAB4] 
[E7BA] 
L7FF7@] 
[858C] 
LASCA] 


[7D85] 
[8A5B] 


[S356E4] 
[2BBA] 


LESCC)I 
[24D6] 


[Ads18] 
[55Bö] 


[457E] 
[B7#FE] 


[7192] 
[L2AA4] 


LiFDC] 
[D2C4] 


[?28C) 
[D35E)] 


LFCCCI 
[8476] 


[7300] 
ECFF&] 


[8045] 
[&7&6E] 
[BC48] 





4168 
4178 


4188 
41970 


4200 
4218 


4228 
42538 


4248 
4258 


4248 
4270 


4558 
4568 
4578 
4588 


4570 
4600 


4610 
4420 


463B 
4548 


4550 
4,40 


4678 
4458 


DATA 


DATA 4,8,4,248,102,0, 

DATA 35,8,81, 255,7.0.36,255 2,8 
18,8,3,15,5,0,189 "240.17.245 

bata 23 ‚240,3,0,5,240, „101,8, 


DATA 48,8,79,255,6,0,34,255, 186, 8,1 
8,88,11 „0,3 is „40,258, 249,5 
DATA 7 ‚97, 


DATA Kar! 129,255, 96,8,9,80,6,0,12, 
192,240,18,245,23,24 
Data 5,0,3,240,100,0, 
DATA 47,8,641,255,5. 8,63,255,96,8,8, 
80,7,8, ‚i2 05,235 248 


Data 5'0,3,248,1 
A 4L,0,20 38:0,56,255, ‚6,15,98 


or ‚88,7,15, 8.21 5,168 


8,160,15,240,22, 245, 20,248,107 


Bala 46,0,63,255,5,0,54, 255 3659 4,1 
5,93,0,8,8 ‚98,3,15,19,85,232,248 


DATA 42 . 68,251,5,8,49,255,12,8,3 
15,185,8,1 7,85, 151,248, CIE 7 ae 
DATA 34, 245 


DATA 25.0, wre a aniar: 14,0,3, 


127 ,0:2%,85 251,11,0,47, 355 16.0.3 
Ms 18, 39. 85,127 304.2 Ba. 

„15 ne 1,245)5, 248,14 ET 70,0, 

DATA s1'8.28" 255 ua}. 255,21,8,3, 

15,93,0,28,85,230,240,14,8 

DATA 7,248.86.0, 

DATA 39,8,66,251,5,0,46,255,11 158,8, 

255,5,8,3,15,89,0,32,85,126.2 

DATA a, 245, 59,158,31.245,5, 340, 14,8 


180,86, 
bata 33.076, 255,3,8,38,255,16,8,8, 
255,9,8,3,15,91,0,29,85 
DATA 229,248,16,0,4,180,87,0, 

DATA 35,8,66,251,81,8,3,15,91,0,29, 
85,58,248,4,0,57,240,18,245 
DATA „ee 160,37,245,4,240,16,0,4,180 


‚87,8 

DATA 38,8,114,255,37,8,3,15,90,8,42 

‚985,11,240,9,0,25,240,7,0,143,248 

DATA 14,0,3,180,88,8, 

DATA 29,8,119,251,36,0,3,15,898,0,44 
‚85,9,84,10,0,23,240,9,0.56.240 

DATA 21,245,42,160 „90,245, 111,0, 

DATA 28,0 121 ‚255,3 8,3; i5, „68 ‚B,4, 

81,15,0 43,85,5,84 12.8 

DATA 13,0,154,248,112. 

DATA 278 126,251 1,55,8,3, 15,67,0,9, 

81,190,0,48,85,7,84,18,8,19,248 

14,0,54,240, 3 245'28.140,40,2 

45,20,0,3,180,89, 

DATA 25,8,111, 255,8,0,10,255,33,8,3 
„15,67 ,8,9,81 37a; ‚42,85,64,84,24,0 
bATA 4,240,14,0,156,240,19,8,4,18@ 


Bars 25,8,188,251,55,0,3,15,66,8,17 
;e1,12, ‚85,3,0,25,895,6,84,27.0,13.24 


DATA 12,90,52,2490,5@,245,13,160,24,2 
45,7,80,12,245,19.0,5,180,84,0, 

DATA'23,0, „108, 25 3.38" 8,3,15, ‚65,8,18 
‚Bi, ‚4,85,3,8,4,85,3,0,25,85,6,84,16 


DATA 14,84,11,24@,11,8,139,240,18,0 
‚18,248, 17,8,5,1880,87,8, 

DATA 23,2,1@8 1231,59,8,5,15,64,8,19 
u ‚3,85,4,2,4,85,4,8,14,85,10,8,38 


DATA 8,248,12,8,50, 20, 87,245,12,0, 
11,245,14,0,8.1 
DATA „24,8, 180,255,67, 2,3, 15,61,0,22 
‚81,7,8,4 ‚85,5,8,10,85,1 
DATA 8,240,18, 8; 137, "Zas. 14.8, 10,248 
‚12,0,9,180,85 

DATA 23,0,95, 2 74,8,3,15,640,8,23, 
si, ‚6,0,4,85,2,0,9,85,15.0,39,84,7,2 


DATA 2; 49,240,90,245,14,0,7,245,1 
2,0,7,180,86, 

DATA 3; 0,95,255,75,0,3,15,68,8,21, 
Bi, ‚9,8,3,85,8,0,6,85,15,0,39,84,7,2 


DATA 9,80,142,2498,13,0,5,248,18,8,12 
‚180,85,0, 

DATA 23,0,95,251,76,8,3, 15 ‚57,8,19, 

1, ‚11,8,5,85,9,0,6,85,15,8,39,84,6, 


DATA 10,0,8,181,39,240,95,245,13,8, 
240,9. 15,11, „160 2, 

TA 25,8,92 53003, 15,55,0,18, 

81,13,8,5, 15, 14, wi 3,85,16,8,38,94,8 


BaTa 10,0, 140,240, 14,8,3,248,9,15,1 
DATA 25,8,90,251,81,8,3,15,67,0,3,1 


Listing 3. Daten für tolle Grafik 





[&13C] 


L24FC] 
[?DE4] 


[1488] 
[857A] 


LS5BE] 
[&D32] 


[1476] 
[FFS6] 


[&ADCI 
[A?DB] 


LA7AA] 
[DF797B] 


[8DDC)I 
[2482] 


L756A] 


[SADC]I 
[853A] 


[OF7AB] 
[5482] 
[F7&AB] 
L1IE&A]I 


[CEAsS] 
[C8F88] 


[562A] 
[5718] 


[E83] 
[82658] 


[ODA4] 
[7288] 


L192A] 
[4776] 


[4858] 
[S1IFE] 
[1B44] 
[BBFA] 


[C827A] 
C781A] 


[7&4EA] 
[AEBö]I 


C(2D44] 
[8D75] 
[DB45] 
[C314] 


[BDE2]I 
[LAB7E]I 


[BCEE] 
[F3SC] 


[6754] 
CAS8C]I 
[C5AC]I 
[S&CC] 
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4700 


4718 
4720 


4730 
4740 
4758 DA 
4778 
4788 


4770 


4818 DATA 


4870 


4988 


4918 


4930 


4948 
4958 


49778 


In 


49978 
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u uEN Im 


1 


wo 
ee 
No 
8 


un 
3 ö 


1 


a 
- 


5150 


5,15,8,3,15,12,8,4,85,27,8,18,84,10 
Bata si, 181,8,248,24, ee 
DATA 25 2’ 2 23 15 >..8.5,1 
DATA’ Den 15,150, ö, 391288117: ‚ei 
1713714,0.3.85,37)8 


DATA 25,8,13,190,75 
3,8,15,75,13,78, 

DATA 20,241,30,181,33,164,99,245,11 
8,8, 


1er 26 ‚8,97, Erg y 188,246, er, 


3,15,36 
iA 20’8) ‚14,190, 71 89 ,0,3,15,3 
5,8,29, re Ha 15,35.8,23.2 


DATA 29,181,38,164,95,245,116,8, 
DATA 25,8,84,255,71,0,3,15,35,8,40, 
15,22,0,3,15,35,0, „184,248, 117,8 
DATA 25,8,17,198 8,7, 251,1 
@2,8,3, ‚15,34,8,31, Ku 11 78.30) 8, 


2. 34 u 27,181,37,164,978,2 


a 25 „ö,61, ,255,6,8,8,255,102,8,81 


‚15,17,8 5,33,8, 190,248 ,1 

Is, $) 198,3,0,19, 21. 1351, 2 
Fieleik ‚183,0,31,15, 34 ee 78,1 
DATA 9,90,38,0,26,241,29,181,39,164 

96, 248.1 111,8, 

DATA 26,0,3,255,3,0,39 255 ,25,0,6,2 
55,133,0,102,15,194,240,111 
DATA 25,8,3,190.5,8,18, ise.17’ 251,2 
6,8,5,251,133,0,33,75,23,78,32,90,1 
5,27 


DATA 30,241,30,181,42,164,93,245,11 


2,0 
DATA 25,8,3,255,5,0,33,255,28,8,5,2 
55,132,8, i@2,15,197,248,118,8 
DATA 5,4,19@,4,8,19,198 ja? ‚251,2 
8,0 az 133,0,33,75,23,78,33,98 
Dark is 27.30° 241,7,0,24,181,48,164 
23,245,4,225.59,245,11@,8, 
DATA 24,0,3,255,7,0,28,255,308,8,4,2 
55,135, ‚8,10%,15,5,8,25,240,8,8,156, 


DATA 118,8 
DATA 26,8,3,190,5,8,28,1 251,30 
‚0,4,25i, „124,0,42,75, 21.78 0'353 9016 


DATA 5,0,26,241,19,80,11, 181, 59,164, 


245,11, „225 54,245 i11 
DAra be 3,255,5,0, 29.308, 32,0 
55,122,8, IL 15, 4 Er 240,24,0, er 


data 111,8, 
DATA 54 8,22, 198,6, 251,157 ,8,39,75, 
8,35 93.17. 27 ‚8,0,26,241,26,0 
Data "ia, 164, 27, 25,47,245,111,8, 
DATA 34,8,28 3, 1 Teer gi ‚15,6,8,2 
8,248,27, 1 1i 
DATA 33,8 ‚28, 138, 153 8,39, 78, 
34,90,17, 27,8,0,27,241,12,8, 6.5, “241, 
DATA 52,164,38,225,43,245,112,8, 
DATA 33,0,29,255,154,8,123,15,6,8,2 
9,240,9,8,13,240,12,0,1290,248,113,0 


DATA 36,8,25,190,153,0,38,75,36,78, 
33,70,18,27, ‚6,8,38,241,5,8,16,241,1 


DATA 43,164,32,225,37,245,116,8, 
DATA 35,0 151,8,127,15,5,0,5 
6027208, 127.6 


1,248 ,21, 
; 98,153,8, vs, 75,22,95,5 
2,78,29 29’. 2 20 127'8, 8,49,241,21,8,38 
164 


7 - I 2 

DATA 32,225,5,245,7,225,9,245,132,8 
DATA 54 ,0,29,255, 13,0, 19,255 129.8, 
1264,15,8,8 Er 8,38,248,18 

DATA 41, 248. 134,0 

DATA 33,8, Sa.1 i3,0 4,190, 153,0 
1,95,6,26 32'780, u 38,24,90,21,14, Ei 


DIR, rs ‚241,24,08,33,164,15,0,58,225 


DATA =,0,29, 255,11,8,7,255,131,8,1 
31,15,11,8,41 1248,24, 0,34,240,17,0 
DATA 32.3481 

DATA 35,0, sl. 18.2.0, 9,190,134,0,28 
75» ‚11,26,26,78,16,30,8,18,18,98.22 


DATA 13,8,37,241,30,0,27,164,20,8,3 
4,225,135,8 

DATA 36,8, Ss} 255,136,8,138,15,12,8, 
32, ‚248,36,0,23,240,24,.0,32.240, 135° 


DATA 37,8,42, 198,17,8,7,258,112,8,2 
9,95,17, 25,16,78,19,38,17,18,18,90 


[8082] 
LECAA] 
[SCDC] 
[2E58] 
[1328] 
[A?5C]I 
L[FFF2] 
CBBE2] 
[83SCE] 
CBAD4] 


[6454] 
[375C] 
[Eö22] 


[D@12] 
[753A] 
[8312] 


[C4EB2] 
[53148] 
[1818] 
[EöAA] 
[232A] 
[C332] 
[D282] 
[BB3E)] 
CEFB2] 
[E7865] 
[AS58C] 


L378E] 
[C7B2] 


EFASA]I 


[BF&6B] 
EF7BAB]I 


L[EF28] 
CAC42] 


L1B9C] 
[B4C2] 


[58C8] 
[2728] 
C1@72] 
[3B32] 


[7@7A] 
C4F&62] 


[FE&E] 
[BD3B] 


[0748] 
[5424] 


CAC92] 
[23C5] 





s1öB 
5178 


5188 
5178 


5208 
3218 


5228 DA 
5238 


5249 
5258 


32648 
3278 


3288 
3278 


5318 


5400 DATA 4, 22 


5470 


5578 


5388 
337 


500 


DATA 24,14,14,0,26,241,48,15,21,164 

‚26,0,34,225,133,8, 

DATA 49,8,40,255,14,0,180,250,111,8, 

135,15,9,0,24,240,43,15,21,248 

DATA 27,0,32,240,134,0, 

DATA 40,0.40,190,7 ‚250,11, @,9,250,1 

07,0,29,.95,22,26,6,78,2 

DATA 23,18,5,90,21,14,8, ur 7,8,25,2 

41,42,0,20,164,30, a,53,225, 151,0, 

DATA re: »6,228,17, d, 

94 ,0,141 15,5, 240,46.0, 13% 248 

‚8,4 Ss 24, 2aB, 51,0, 

DATA 70033 10,5, &,250,1 6,0, 8,258,1 
0,8,26,19,95, 21, 26, 32. 38.22,18 

Data" 27,14,14,91,3,15,19,241,48,8,1 

7,164,42 8,23 223. 131.8, 

DATA 54,8,23,255,5,250,17,0,7,258,1 

04,0,147, 151 14,248,51,0,17,248,42,0 


DATA 25,2498,129,8, 
ed I 2, 18, 250, 20,8 4,258,104,0,4 
8,31, 26,50, 32, ia, 29,14,13 ‚1,3 


’z 
DATA 10,241,59,0,14,164,44,0,23,225 
‚138,8, 

‚„11,250,100,0, 


DATA 68,80,16,258,16,0 
147,15,71,0,14,240,44,0,23,240,130, 


a 
DATA 75,8,7,250,130,8,46,26,6,31,28 
339,22,10,28,14,17,91,78,0,14,164,4 


DATA 23,225,129,0, 
DATA 74,8,18,258,134,0,141,15, 72,0, 


11 47 a 22,240,129,8, 
Data To ‚11,250, 1310 8,41,26,18,31, 


12,38, er 3. 35. 18,26,14,19,91 „12,0 
DATA 7,91,54,8,8,164,48,0,22,225,12 


9,0 

DATA 77,8,13,250,128,8,168,15,55,0, 

8,240,48,0,3,240, 4,0,16,246, 128,0, 

DATA 72,8 Veie- : ‚125,0 RR; E, ‚5. 
E; 


Data 3235. Lo 12 22 


DATA es 17° 2iB. 126 . is. i5,57,8 
se ss i 33,0 


2175 Ad s, 34 ‚240, 8,8, 8,4036, ss 31, 


IS 28, 126, 0,34 
21 e.2s i4 91,59 3,164 50.0 


5, Fa u 5, 222° 25 is, 116,8 
DATA 81,0,15.250. H 5.20, 


127,8, 52, 
4.240, se 0,4,240,9,0,24,15, ka 
DATA 83,8,14,250.8, ‚8:3,187 5,2010 ‚ıo 


ST ‚89,8, 33, 256,37,31,253,15,25 


DATA 34,91,148, 9,7,15,118,0, 
DATA 94,0,3,250,7,8 6,255 20.234,94 
‚„2,149,15,152,80,5,15,110,0, 

DATA 95,8,14,187,28, 334. e. 197,91,8, 
5326,58 ‚35,31, 1,15» ‚20, 14,29,91,67,0 


164,82,8,7,229 
DATA 95,90,14,255,28 234,5 "2u5.09,08, 
146,15,72,0,4,248, 7 2,9 "333. ler'e' 


DATA 95,0,20 187, 14,234 ,9,197,86,15 
„52,26, 3@8,31,36,15,19,14,28,91,155, 


DATA 9,229,108,@ 
A 95,0,20,255,14,234,13,255,10@7, 
1s. nn... 113 15,154,8,7,148,109,8, 


DATA 94,8,21,187,13 24. 18, 197,82,0 
‚18, 26,15:8; 30,3i, 47,1 
DATA 156,0, 8,227 
DATA 54 3.31 ‚255,1 ar, 20 e 115, 
0,182, „ib, 1568,10, 32° 1 

187, i3 ‚254,24, 197,114, 

I8; 3" 55. 13.5 ‚21,119,8 

DATA 5.229,30, a 12) 329. i1@,o, 
DATA 93,0,21,255,13,234,25,255,134, 
0,78,15,114,8,11,240,28,80,14,240,18 


u: 
DATA 93,0,28,187,13,234,27,197,131, 
0,49,15,29, 91, 115,0,20,229, 19,8 
DATA’ 17,229,189,8 

DATA 92,0,21,255,13,234,27,255,127, 
0,808,15,122,8,14,248,17,0,22,240,18 


5, 
DATA 91,8,21,187,43,197,123,0,54,15 
‚26,91,124,8,17,229.13,8,21,229,107 


- 
Data 90,8,65,255,123,80,78,15,124,8, 
‚248 i8,0,18,248,118,0, 
A 89,0,4,254,18,187,45,197,122,0 
139, 15,28,91,198,0, 10,229, ‚16,8 
229,11 
DATA 88 ha 122,8,75,15,155,0, 


DATA 528,91,102,8) KIRrgeS: 5; unz 124,8 
0,15 


62,255) 125,0,75,15,165,8, 
14,240,13,0,39,248,40,0, 
DATA 88,0,11,254,12,187,41,197,127, 


>> 
— 
D 
0 
® 
iS 
1 


[EED8] 


[SCF2] 
[LEC18] 


[4814] 
[448C] 


CFEBE] 
[2BBC] 


[5SE45] 
[?ADB]I 
LEEFE] 
L7C4B] 


[2AB4] 
[8452] 


[4696] 
[8926] 
CB23A] 
EBFOA] 
[A458] 
[1358] 


[B572] 


[8578] 
[F4F6] 


[2638] 


CFB58] 
L1CEC]I 


[(4BB8] 
[5232] 
[DFB4] 
[CASFB] 
[F&DA] 
L[EA28] 
[2432] 
LISECB] 
[AA4F4] 
CBSDE] 


[2CDE] 
[858A] 


[3246] 
[C96E 
[FO48] 
L718E) 
L79BEI 
[6456] 
[2A82] 


[D542] 
[FE1B8] 


[5454] 
[E242] 


[CEB2] 


[8488] 
[4EFE] 


[BAD&] 












5768 
57708 


6810 


sBhB 
6878 





&188 
6118 
6128 
61358 
6148 
6158 
6148 





= 
BT 


Han. 
Aue) Fyt 


0,13,94,39,15,20,91,167,8, 18,229 
DATA 17,0,32,229,63, 

DATA 88,8,62,255,129,8,72,15,170,8, 
4,240,21,0,34,240,60,8, 

DATA 89,0,20,254,43 197, 128,8,18,94 
‚34,15,17,91,200,0,37,229,54,8, 
DATA 89,0,64,255, 1397 870° 15.202,08, 
31,240,56.0, 

DATA 90,0,20,254,52,197,120,0,25,94 
‚2@,15,23,71,210,0,34,229,46, 

DATA 98,0,70,255,122,0,48.15,208,0, 
28,240,54,8, 

DATA 91,8,16,254,56,197,118,8,27,94 
‚18,15,25,91,217,8,16,229,56,0, 

DATA 91,0,77,255,115,8,68,15,225,8, 
14,240,50,8, 

DATA 92,8,15,254,71,197,185,0,32,94 
‚11,15,25,91,226,0,3,15,60,0, 
DATA 93,80,87,255,1803,0,48,15,.226,8, 
3,15,60,8, 

DATA 93,@0,19,254,72,197,100,0,35,94 
‚3,79,5,15,25,91,225,0,3,15,60,8, 
DATA 94,08,25,255,3,174,61,255,99,0, 

37,15,3,79,30,15,225,8,3,15,40,8 
DATA 95,8,28,254,17,174,58,197,181, 
0,35,94,10,79,23,91,226,0,3,15,60,8 


DATA 96,8,19,255,17,174,58,255,1®1, 
0,35,15,18,79,25,15,210,0,9,248,4,0 


DATA 3,240,59,8, 
DATA 97,0,2@,254,20,174,44,197,101, 
a, 36,94,11,79,23,91,209,0,21,244,58 


data 1808,8,17,255,20,174,44,255, 108 
‚2 ‚37,15,11,79,23.15,186,0,9,240,14 


DATA 21,248,58,8 
DATA 181,0,17, 353, 28,174,41,197,102 
‚8,36, 94,14,79,21,91,189,0,9,244,11 


BATa 22 244, 
DATA 182,08 2 u58, 20,174,42,255 eh 
0,38,15, ‚2.ie, 22,15,186,8,12,248,8 


B 

DATA 29,240,52,8, | 
DATA 184,08,13,254,22,174,41,197,188 
‚8,36,94,18,79,15,91,190,0,58,244,5 


DATA 186,8,11,255,22,174,41,255,10@ 
„2,36: 15, is 75 12,15,192,0,53,240,4 


9 
DATA 106,0,8,254,25,174,48,197,101, 
0,4,94,52,79,7,91,192,0,59,244,46,8 


DATA 118,8,4,255,25,174,40 255,182, 
08,55,79,5,15,193,0,58,24@,48, 
DATA 118,8,9,175,21,174,39, 137° 183, 
0,59, 79,192,8,59, 244 ,48,0, 
DATA 118,8,9 255,21 174,37, 255,186, 
0,58,79,187,8,64 
DATA 111,8,7, 175° er 174,7; ‚238, 36,19 
7 ,186,0,59,79,181,8, ‚68,284, 
Data Aıl 8,7, 255 ,16,17 ä,42, 2a, io7, 
0,57,79,188,8,71,240,49, 
DATA Bi ‚@,7,175,14,174,11 238.54, 1 
0,60,79,176,8,76,244,4 
Data ılı ao 255,13,174,43, Ertk, 187, 
172. ö, 2a0,4 


DATA” 73, 0,5, 170248 N Ball 14 
3 3.59.75. 173° ’; 76:244. 38 


‚3@,197,187,8 


Li ’ 

DATA 113,8,11,255,7,174,38,255,114, 

8,57,79,174,0,79,248,47,0, 

DATA 111,0,5,175,30,238,21,197,115, 
8,55,79, 173.8. 80,244,47,0, 

DATA 111,0,56,255,116,8,52,79,178,8 


81,240,46,8, 
DATA 112,0,5,175,35,2398,13,197,118, 
0,53,79,176,8,84,244,44, 
DATA 112,0,53,255, 118,8,53,79,176,8 
84 ,240,4 

bata 112. as’ 175,34, 238, 12, 197,119, 
0,52,79,179,8,83, 244, 

DATA 113,0,49, 255,122 ‘2 >, 79,177,0 
‚83,249,45,8, | 
DATA 112,0,5,175,32,238,12,197,124, 
0,49,79,176,0,84,244 ,46, 

DATA 112,0,48,255,127,8,45,79,180,0 


240,42,0, 
batı 113,0,5,175,380,238,180,179,131, 
0,44,79,179,0,84,244,44,0, 
DATA 113,0 ‚46,255, 133,8,48,797,188,8 
„85,240,43,0, 
DATA 113,8,5,175,32, 238 ,7,197,136,8 
38,79,182,0,82,244,4 
113,8, a5, 255,137,8,33,79,185,8 
‚81,240,46,0, 
barh 113,0,5,175,34,238,3,197,140,8 
79,188,0,80,244,47,0 
barı ılz ‚8,43,255,141,8,14,79,200,0 
‚81,248,47,08, 


i - Y 
2: U FE Tu Se 
% d 
EA RRK: 





[42538] 
[87D2] 


L745A] 
[FEBE] 
[DAS5B] 
[5358C] 
[6854] 
[?FDB] 
[5458] 
L73D8] 
[8297C] 
LFE7E] 
[Fö6E] 


[598A] 


L9F2A] 
[5882] 


[F&A] 


[21EB] 
[79E6] 


[CE3B8A] 
[S@arF2] 


[F1A8] 
[73EB] 


[E1B4] 


CA4A2] 


[B35BC] 
L77AA]I 
[BSF&] 
[43E4] 
[6556] 
[DEDs] 
[CAF&] 
[&3C8] 


[4772] 
C7DCCI 
C3CC®] 
C&9BC]I 
CBiD6&] 
[BBöCBH] 
[74DA] 
[49C4] 
[ADDE] 
[LE2B&] 
L1ABE] 
[A7AB] 
[4174] 
[?77BE] 
[5B&&] 
[LA&PFE]I 





u3082 
6318 


6348 


1BB1B8 
12028 


18038 
18848 


18858 
1BB40 


18078 


DATA araaa 29 ‚175,37,2538,142,08,5,79, 
2 


218,0,79 
Dr Dar 112,0,41, Yzas' 167,0,190,0,81,24 


DATA 112,0,6,175,22,238,9 y2,3,238,1 
68,8,190,0,20,244,7.0,46,244 ,49 
DATA 112,0,32,255, Hy: ’2.109.8.13.34 
0,22,0,41,248,51,0, 
DATA, 112,8,7,175,24, 258, 175,8,186,8 
‚14,2 442718; 41,244,52,0 

batk 11 0,32,255,174,8,234,0,34,24 
252,0 


DATA Han ‚6,175,27,2398,174,8,232,@ 
ara ı 11$.8' 3ı, 255,173,0,232,0,34,24 


„54, Fr 
DATA’ 115,9,6,175,25, 238, 178,0, 232,8 
DATA 113,8,24,255,181,0,232,0,31,24 


‚a, 
DATA" ja @,5,175,18,238,183,80,231,0@ 
DATA 114 ‚0.23,255,183,8,232,@,24,24 


DATA’ 1la,o,e, 175,15,238,185,80,234,0 
‚„19,244,67,8, 
DATA 114 ‚2,20,255,186,0,234,0,12,24 


DATA” 1is „2:5. 175,15,238,185,0,235,8 


11 
h Base et 4 a’ ‚20,255,255,0 
DATA 116,0,4,175,12,238, 2358 251.0 


l 

DATA 116,8,17,255,255,8,252,0, 

DATA 117,8,5,175,12,238,184,8,238,8 
‚7,244,75,8, 

DATA 117, 8,14,255,189,8,234,0,18,24 


DATA’ tis,o,s, 175,8,238,189,0,230,8, 
17,244,73 

DATA 118,0,14, 255,255,0,253,8, 

DATA 120,8,4,175,7,238,255,0,254,8, 


DATA 119,8,12,255,255,8,254,0, 
DATA 119,8,5,175,6,238,255,@0,255,8, 


DATA 120.8, 18, 255,255, 8,255,8, 
DATA 120,0,5,175,4,238,251,0,240,0, 


’ 
122,08,7,255,251,8,240,0,20,0, 
122,8,4,175, 254,8, 240,08, 28,B, 

DATA 280,0, 200, ad, ‚24 

129,0,6, 239, ‚255,8,250,0, 

159,8 ‚8,255, 252,0,250, 8, 

DATA 288, ‚2,2080 „2,240,8, 

un 200,2,200,8,2408,0, 


REM Daten in den Speicher poken ### 
“rare 

MEMORY 351797: RESTORE 

FOR i=35211 TO 37584 

READ af 

IF a$>="A" THEN a$=a$+5PACE$ (12-LE 
Nia$))ıGOTO 78978 

a=VALiat) 

IF a>255 THEN POKE i,„a-INT(a/256) # 
256: i=i+1:POKE i,INT(a/255):60T0 9 
38 

POKE i,a 

GOTO 7138 

FOR j=1 TOD 12 

POKE i+j-1,ASC(MID#(a$,j,1)) 

NEXT j 

i=i+11 
NEXT i 
adr=37585 
sum=d 
READ a 
POKE adr ‚a: adr=adr +1: sum=sum+a 
IF a<>8 THEN REAÄD b:POKE adr ,btadr= 
adr+1:60T0 7158 
IF sum“ >448 THEN 1BB08 
IF adr<425653 THEN 9145 
SAVE "risiko.bin" ,„b,36288,5354:5TOP 


datadr =PEEK (& AE3U) +256#PEEK (&AE31) 


IF FPEEKtidatadr)=8@ THEN 180848 

IF PEEKidatadr)<>ASC("„"} THEN PRI 
NT"Fehler !'''"ıSTOP 

IF PEEK(datadr)<>%&BC THEN datadr=d 
atadr-1:G60T0 18958 

a ae ee teen 
| a 

G60TO 18878 
zeile=PEEK (datadr +3) +254#PEEK {data 

dr+4)-1B 
| "Falsche Quersumme in Zeile 

"ızeile 


18088 END 
Listing 3. Daten für tolle Grafik (Schluß) 


[(D3B8] 
L7’ES4] 
[4DD8] 
LASD4] 
C4F44] 
[8848] 
CDFB®] 
[5B4C] 
CSDB4] 
[1058] 
[7&4B8] 
[8154] 
[BCCE) 
[7F4&] 


[&DAE] 
ECBBA] 


[ABA] 
[4ADB] 


[D758] 
[88765] 


[F8&C] 
[D4D8] 


C14C&4] 
L1ECA] 


LA2CA]I 
[82BC] 


[4170] 


EFCHAI 
L2B5A] 
LZACA]I 


LFF2C) 
LSFAA] 
LiC&E] 


CEFE2] 
[F852] 
[54D4] 
[ASB6] 
CD554] 


L7F7&] 
[D8F4] 


[C4A&] 
[CF&A] 


LA4CC] 
[ö4CE] 


[23EC]I 


C3C4EI 
[E6EB] 
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Direkte 
Eingabe 
am Bildschirm : 


Der 3D-Dreh 


R Betrachten Sie mit dem Programm »3D-Dreh« be- 
liebige Rotationskörper von allen Seiten. Auf die 
Perspektive kommt es an! 


i in Rotationskörper im mathematischen Sinn entsteht, 
| wenn eine sogenannte »Mantellinie« eine volle Umdre- 


hung um eine Achse geführt wird. Die Mantellinie 


erzeugt dabei die Oberfläche des Körpers. Um eine grafisch 
sinnvolle Darstellung im Drahtmodell zu ermöglichen, muß die 
Umdrehung in Winkelschritten erfolgen. Außerdem ist die 

Darstellung der Mantellinie als Streckenzug (Polygonzug) 


. ‚erforderlich. 

Um einen Körper in unserem Programm zu editieren, kön- 
nen Sie dessen Mantellinie auf zwei Wegen eingeben: 

Bei der Eingabe über DATA-Zeilen werden im Programm- 
text die Eckpunkte des Streckenzugs programmiert. Für 


E 2 einen Eckpunkt sind drei Daten erforderlich: 


1. Nummer des Punktes 


2. X-Koordinate 


8. Y-Koordinate 
Der Bildschirmmittelpunkt ist der Koordinatenursprung 


(0/0). 


Nehmen wir als Beispiel die Darstellung einer vierseitigen 


Pyramide. Hierzu müssen Sie ein rechtwinkliges Dreieck ein- 
geben. Die Drehachse fällt dabei mit einer der beiden kürze- 


. ren Seiten des Dreiecks zusammen, die den rechten Winkel 


i ü bilden (Katheten). Rotiert nun dieses Dreieck in Winkelschrit- 
ten von 90 Grad, so entsteht der gewünschte Körper. Tippen 


Sie zum Beispiel folgende Zeilen ein: 


270 st=90 
840 DATA 1,0,100,2,140,-70,3,0,-70 

Die Variable »st« in Zeile 270 bestimmt die Größe der Win- 
kelschritte. Wählen Sie st=5, so erhalten Sie einen Kegel. 
Nach dem Start des Programms müssen Sie bei der Abfrage 
des Eingabemodus »d« eintippen. Für Drehungen um alle drei 
Achsen erweist sich ein Wert von 30 Grad in allen Richtungen 
als sinnvoll. 

Komfortabler und schneller gestaltet sich die Eingabe der 
Mantellinie über den Editor. Sie erreichen ihn im Eingabemo- 
dus mit der Taste »b« und verfügen hierbei zur Orientierung 
über ein Koordinatenkreuz und eine Koordinatenanzeige. Die 
Cursor-Tasten bewegen einen Pixel-Cursor über die Koordi- 
natenebene. SPACE hält jeweils die aktuelle Cursor-Position 
fest. Die so gespeicherten Koordinaten werden zur Mantel- 
linie verbunden, der Editor mit ENTER verlassen. Sie bestim- 
men anschließend noch die drei Winkel für die Perspektive. 

Da das Programm selbstdokumentierend ist, können Sie 
seine Bedienung und Funktionen ohne weitere Anleitung 
erkunden. (Frank Müller/Matthias Rosin) 


3D-Dreh 
CPC 464/664/6128 
Explora 


Kassette/Diskette 3 


Fonecksummer-| 
Datenträger: 
PR APPY=S P 


- KON BUTE Ri 


ae 














I 
} 


>18 


EEE ka rn ae ge 


REM 

REM ######%# 73-D-DREH-FIGUREN ####### 
REM ###### VON FRANK MUELLER ##ea### 
REM 

DEG:MODE 1 

KEY B,CHR# (13) +"mode 2:pen 1"”+CHR# (13 
Burhiäh, "KEY 1,CHRF(13)+"edit " 


DIM x» (1000) „y(1BQB) ,z(1248) 
ODRIGIN 320, 288 


NPUT"Ein abe ueber DATAs oder direkt 
ami& SPACE}Bildschirm (d/b) {24 SPACE 
[Ein Beispiel ist eingegeben3"sası IF 
as="b" THEN 4538 

REM 

REM ####### DATAS EINLESEN ######%##+ 
REM 
READ c,%x,y=:IF c=-7777 THEN 158 
i=si+tl:x(i)=k:yl(i)=y:60TO 138 

z=i 

ECLS 

REM 

REM ####### DATEN ZEICHNEN ########+ 
REM 

FOR t=1 TDi 

IF t=1 THEN MOVE »(t),yit) 

DRAW SER UNI 1 

NEXT 

REM 

REM #zu##ua###0### DREHEN KR 
REM 

st=&8 

FOR w=st TO 348 STEP st: an=an+i1:FOR 
t=1 TO isz=ez+t1ıx (zZI)=-C0Stw)a (t)ıylz) 
=yit):z(iz)I=x (t)#5IN(W) NEXT t,w 
s=j:i=zır=d 


MODE 1 
ORIGIN 328,280 

REM 

REM ####### WINKELEINGABE #unH#0##4+ 
REM 


INPUT"i.Winkel : 
CE}: ";w2 

INPUT "3.17 SPACE}: ";w3 
ei=C0Stwl}e:si=sSsINtwl) 
ELSE 


":w1l: INPUT "2.17 SPA 


REM 

REM ########## ZEICHNEN #008 H08#H+ 
REM 

PLOT -188B,8,1 

FOR t=1 TOi 

d=SQOR (ix it)#x (t)+zZit)ez l(t)) 

IF »(t)<>B@ THEN w4=ATNiz tt) /“tt)) EL 
SE w4=56N (z (t)) #98 

IF »(t)<B THEN w4=w4+1B8 

yzy (it) :x=C0S (w3+w4) #d:z=5IN (in3+wm4) #d 


1=SOR (x#x+y&y) 
IF x<>@ THEN w5=ATNty/x):IF x<@ THEN 
wSs=w5+180 

IF x=@ THEN w5=SGN (y) #98 

x1=1#C05 (nZ+w5) zyi=1#SIN (n2+wS) #ci+s 
#Z 

IF t=1 OR ts=1 OR (t-1)/s=INTttt-1)/ 
s) AND ti<>1 THEN MOVE x1,yi 

DRAW niıyl 

IF r=1 THEN 418 

NEXT t 


REM 

REM # VERBINDUNGSLINIEN ZEICHNEN ## 
REM 

PLOT -18090,0,3 

r=1:FOR ti=1 ’To s:FOR ts=1 TO antist 
=(ts-1)#s+ti:B0T0O 448 

IF r=1 THEN NEXT ts,ti:r=® 

GOTO 358 


REM ###=#=# BIIDSCHIRM-EINGABE #u##%## 
CLS 

MOWE -328,B:DRAW 328,80,1:MOVE 8,-288 
: DRAW 8,200,1 

G0OTO 758 

PLOT x,y,>3 

i$=INKEYS: IF i$="" THEN 4980 

PLOT x,y,®@ 

as=ASC (i$) 

x=x+2# (as=242) -2# (as=243) ı yay+2# (as= 
241)-2#(as=248) 

IF as=13 THEN i=z:60T0O 158 

IF i$=" " THEN 778 

LOCATE 1,1:PRINT x;y3; 

GOTO 688° 

AR — THEN MOVE »,„y ELSE MOVE x(z), 
yiz 

DRAW x „y,1 

z=sz+lıxn (zI)=xıylz)=y 
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LESCAI 
[1D86] 
[3148] 


[?BaA]I 


[CB38] 
[B11A] 


L14FE] 


[CD2CCT 


[3716] 


LFAB4] 
LFFBAI 
CB79C] 
[BA1A] 
C6B3E] 
[LBFF®@] 
[3E42) 
L8CaC) 


[84DA] 
L3435A] 
[FES2] 


L7B3A] 
[53184] 
(2453A] 


[32@C1 
[9A64] 
[7832] 
CB@64 ] 
L9DIEI 
LSCFC) 


LIFAAI 
LE22C] 
[O94A] 
[DIEB] 
[DA4B] 
[5654] 
[L69BE] 
[89661 


EN NEN EN 


918 
728 


738 


7408 


758 


960 


7708 


770 


See 





GOTO 488 

REM 

rs “HH IHRE DATAS wanna 

DATA 1,180,1898,2,1080,20,3,25,28,4,26 
‚32, 5, ‚28,-52, 5,88, -72 

DATA’ -9999 ,D, 

REM 

REM ########. EINLEITUNG 

REM 

PEN 1:INK 2,18 

te SPACE} 3-D-DREH-F IGURENPROGR 

MOVE 182,582:DRAWR 395,8,3:MDVE 182, 

378: DRAWR 396,8,3 

PRINT:PRINT:PRINT"Als Eingabe benoet 
igt das Pg nur eine{3 SPACE}Haelfte 

einer Fiqur.Das FPg dreht dann{3 SPAC 

E’diese Fiqurenhaelfte um die Y-Achs 

e." 

PRINT"Die Eingabe kann wahlweise ueb 

er DATAs{2 SPÄCE}oder direkt am Bild 

schirm erfolgen.Dabeiist der Ursprun 


Ed u 204 2 du: 


g immer in der Bild-{5 SPACE}schirmm 
itte." 
PEN 2 
PRINT"Bei Eingabe ueber DATAs sind 3 


Eingaben fuer einen Eckpunkt erford 
erlich.":PRINT" 1.Nummer des Punktes 
-ibeliebig)" 

PRINT" 2.X-Koordinate":PRINT" 3.Y-Ko 
ordinate":PRINT"Die lezte DATA-Ieile 

muss -7777,8,8{5 SPACE}enthalten. (B 
eispiel siehe Zeile 829 ff)" 

PEN 3 

PRINT"Bei einer direkten Bildschirme 
ingabe istfolgendes zu beachten :":P 
RINT" 1.Mit den Cursortasten wird ei 
n kleiner{3 SPACE}Punkt gesteuert. Zu 
m Speichern eines{5 SPACE}Punktes wi 
rd die SPÄACE-TASTE gedr." 

PRINT" 2.Als Abschluss druecken Sie 
die ENTER-{i3 SPACE}ITASTE." 


10800 GOSUB 1158 





1858 


18658 
1878 


1888 


19978 


1188 
i11® 


112& 
1127 


1138 
1148 
1158 


1168 







CLS:PRINT"Das Pg erwartet die Einga 

be Ser Winkel.":PRINT:PEN 2:PRINT" 

i1.Drehwinkel um die X-ÄAchse." 

nt S:PRINT" 2.Dehwinkel um die Z-A 

chse. " 

ie 15 PRINT" 3.Drehwinkel um die Y- 
se." 

MOVE 258,258: DRAWR B,6&8B,1:MDOVE 250, 
250: DRAWR 68,8,2:MOVE 258,258: DRAWR 


LocÄre” 15, &:PRINT"y"3:PEN 2:LOCATE 
21, 18: PRINT"x" ;: PEN SıLOCATE 19,8:P 
RINT"z" 
PRINT:PRINT:PRINT:PEN 1 
PRINT:PRINT"Die Variable st in Zeil 
e 278 gibt den{3 SPACE}Graduntersch 
ied zwischen den einzelen{3 SPACE}D 
rehungen an." 
PRINT:PRINT"Sollen die roten Verbin 
dungslinien weg- gelassen werden mu 
ss an Zeile 5488 ein{i3 SPÄACE}REM ges 
etzt werden." 
PRINT:PRINT"Wenn Sie die Instruktio 
nen zur{i2 SPACE}Genuege kennen ‚entf 
ernen Sie einfach Zeile 55." 
GOSUB 1158 
PRINT"Mit diesem Pg kann auch eine 
beliebige{i2 SPACE}Figur verarbeitet 
werden.Dann sollte{4 SPACE}aber mi 
t DATAs gearbeitet werden. An" 
FRINT"Zeile 2889 muss dann einfach e 
in "REM’{3 SPACE}gesetzt werden.Ein 
e Drehung um die{& SPACE}IY-Achse wi 
rd dann nicht mehr durch-{5 SPACE}Ig 
efuehrt." 
PRINT:PRINT:PRINT"Am Anfang experim 
entiert man am besten{2 SPÄACE}mit d 
em bereits in Zeile 848 eingegebe- 
nem Beispiel.S5o laesst sich die Wir 
kung der einzelnen Winkel am besten 
erkennen." 
FPRINT"Probieren Sie z.B. folgende W 
inkel :" 
PRINT"i. 8,0,80":PRINT"2. 0,9790,8":PR 
INT"3. 79,8,8":PRINT"4. 108,0,0":PrRI 
NT"S. 10,8,45":PRINT"6. 90,.80,45":P 
RINT" etc." 
GOSUB 1158 
GOTO 78 
LOCATE 35,25:PEN 1:PRINT"TASTE"5:CA 
LL &BBU& 
CLS:RETURN 


Listing. Mit diesem Programm lassen Sie Ihren Schneider rotieren 


- 
P a 
Wu Kr F I5# “ 
’ f 
DEN A 


vw 4 . 
EEE ne 


[1418] 


[A218] 
[FFE4] 


LiFCE] 


[CPAA]I 
[3S4EC]I 


[D974] 
CA7B2] 
[5498] 
[E346] 
[C198] 
CBA7AI 
[C714] 


[4488] 
[C1DEB] 


EB574] 


[1528] 


CABBB] 
[C7?72] 


[757C] 


LEZECI 


[35D8] 
[BA44] 


[A178] 
[5778] 
L724C] 


LACEA] 
[SCC8] 
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- Malermeister 


Titelbilder und Hintergrundgrafiken zaubert »Back- 
ground-Painter« komfortabel und schnell. Mühe- 
volle »Planspiele« auf Millimeter-Papier und die 
anschließende Rechenarbeit zur programmtechni- 
schen Umsetzung gehören damit der Vergangen- 
heit an. Lassen Sie Ihrer Kreativität freien Lauf. 





BE m ein gutes Spiel zu programmieren, muß neben 
Spielidee und Sound auch die Grafik stimmen. Aber 
esistrechtmühsam, erst die Hintergrundgrafiken auf 

Papier zu entwerfen und dann das entsprechende Programm 
einzutippen. Ärgerlich wird es besonders dann, wenn man 
nachträglich etwas ausbessern will. Mit dem »Background- 
Painter« ersparen Sie sich diesen unnötigen Arbeitsaufwand. 

Das Programm funktioniert ähnlich einem Construction- 
Set, jedoch lassen sich auch die einzelnen Bauelemente neu 
definieren. Die Zeichen haben eine Größe von 4 x 8 Punkten 
in 16 Farben (Modus 0). Gemäß der Zeichenmatrix passen in 
eine Zeile 40 und in eine Spalte 25 Zeichen. Folglich haben 
1000 Zeichen auf dem Bildschirm Platz. Jedes Bild belegt 
somit 1000 Byte im Speicher. Hinzu kommt noch die Tabelle 
für die Zeichendefinition, die bei maximaler Ausnutzung der 
256 verschiedenen Zeichen nochmals 4 KByte Speicher 
einnimmt. 

Sie entwerfen zunächst mit »Background Painter« die Gra- 
fik und übernehmen dann die automatisch erzeugte Zeichen- 
definition samt Bildschirmaufbau in Ihr eigenes Programm. 
Der Vorteil besteht darin, daß Sie nach Herzenslust auf dem 
Bildschirm herumprobieren können, bis Ihnen das Bild gefällt. 


 Maschinencode-Routinen für 


zeitkritische Abläufe 


Das Programm besteht aus einem Basic-Teil (Listing 1) und 
Maschinencode-Routinen (Listing 2) zur Ausgabe des Cur- 


. sors, Vergrößerung des Bildes, das Auslösen der Garbage- 


Collection (Speicher-Reorganisation), etc. Den Startadres- 
sen sind gleich am Beginn (Listing 1, Zeilen 175 bis 190) 
Namen zugeordnet, um die Lesbarkeit zu verbessern. Listing 
3 enthält die Daten für das Titelbild. Wenn Sie auf das Titelbild 
als Demonstration verzichten wollen, dürfen Sie Listing 3 
weglassen. Die Funktion des Programmes bleibt gewährt. 


Die Speicherorganisation: 


Basic 

8732. Do 
Maschinencode-Routinen 

8E71 hex 
Daten für Unterroutinen 

9283 hex | U ER De RD 
Farbentabelle Dieser Bereich 

. 9293 hex enthält die 

Bereich für Bilddaten Bilddaten für die 

967B hex 2 vollständige 
Bereich für Zeichensatz Grafik 


Wie bauen Sie nun die fertigen Grafiken in Ihr Programm 
ein? Dazu benötigen Sie die Maschinenroutine aus Listing 4, 
die die Zeichen aus den vom Background-Painter erstellten 
Tabellen herausliest und als Grafik auf dem Bildschirm sicht- 
bar macht. Nachdem diese Routine auf Diskette gespeichert 
ist, läßt sie sich später an jede beliebige Adresse laden. Dann 
muß man jedoch das höchstwertige Byte der neuen Adresse 
im 17ten Byte ändern (normalerweise steht dort »&C0«). Der 
Aufruf erfolgt mit 
»CALL adresse, spielfeld, zeichensatz«. 

adresse ist die Lade-Adresse der Maschinenroutine. 

spielfeld (Bereich für Bilddaten) ist die Adresse, ab der 
sich die Tabelle mit den Zeichennummern befindet. Sie liegt 
direkt hinter der Farbtabelle (siehe Speicherübersicht). 

zeichensatz ist die Adresse, ab der die Zeichendefinition 
gespeichert ist (befindet sich hinter der Spielfeldtabelle). 

Hier nun Schritt für Schritt die Vorgehensweise anhand 
eines Beispiels: 

Die fertige Grafik haben Sie bereits gespeichert. Zuerst 
schützen Sie den Speicher ab Adresse 7000 hex mit dem 
Befehl »MEMORY &6FFF« vor Überschreiben und laden 
dorthin den Maschinencode mit »LOAD ”prscreen.bin”, 
&7000«. Die Grafik laden Sie ebenfalls, beispielsweise durch 
»LOAD ” grafik” ,&8000«. Den ersten Wert im Zeichensatz- 
Speicher belegt der »Background Painter«. Er muß bei Dar- 
stellung der Grafik Null sein, da sonst lauter Punkte in der 
Grafik erscheinen. Also führen Sie immer ein »POKE 
&8000+1016,0« aus (8000 hex ist die Basisadresse, dazu 
kommen 16 Farb-Byte und 1000 Byte für die Spielfeld- 
tabelle). Nun setzen Sie noch die Farben entsprechend den 
Werten der ersten 16 Byte: 

»FOR i=0 TO 15:INK i,PEEK (&8000+i) :NEXT i«. 

Um die Grafik dann aufzubauen, genügt der Aufruf 
»MODE 0:CALL &7000,&8000+16, &8000+1016«.. 

Während des Programmlaufs erscheint am linken Bild- 
schirmrand das Menü. Die einzelnen Menüpunkte wählen Sie 
mit dem Cursor aus, indem Sie ihn auf die Symbole richten 
und mit Tastendruck die entsprechende Funktion aktivieren. 
Steuern läßt sich der Cursor wahlweise mit einem Joystick 
oder den Cursor-Steuertasten und der Copy-Taste als 
Feuerknopf. Bewegen Sie den Cursor zum unteren Bild- 
schirmrand, scrollt das Menü nach oben und zeigt die restli- 
chen Funktionen an. Angefangen von oben bedeuten die ein- 
zelnen Menüpunkte: 

Paint: enthält die wichtigsten Funktionen für die Gestal- 
tung der Grafik. Mit dem Cursor bestimmen Sie 
die Position und setzen das aktuelle Zeichen 
durch Druck auf den Feuerknopf (Copy-Taste). 
Dieses Zeichen muß bereits definiert sein. Es 
läßt sich so lange beliebig oft auf den Bildschirm 
bringen, bis Sie ein anderes Zeichen als aktuel- 
les Zeichen bestimmen. Das geschieht, indem 
Sie den Cursor auf ein Zeichen richten und es mit 
»CTRL-G« anwählen. Ist das gewünschte Zei- 
chen auf dem Bildschirm nicht vorhanden, rufen 
Sie mit »CTRL-T« die gesamte Zeichensatztabelle 
auf. Neben diesen beiden stellt »Paint« noch wei- 
tere Unterfunktionen bereit: 

Aufruf der Zeichensatz-Übersicht. 

Zeichen unter dem Cursor wird aktuelles Zei- 
chen. 

Ausgabe des ASCII-Codes für das aktuelle Zei- 
chen. 

Umschalten zwischen vergrößerter und norma- 
ler Darstellung. 

definiert neues Zeichen (Zeichen unter dem Cur- 
sor wird in die Definition übernommen, es kön- 
nen also vorhandene Zeichen als Vorlage die- 
nen). 


CTRL-T 
CTRL-G 


CTRL-N 
CTRL-Z 
CTRL-D 





















CTRL-R 


CTRL-O 
- ETRL-C 
CTRL-B 
CLR 

ENTER 
CTRL-Z 


CTRL 
CTRL 


SHIFT 
_ ETRL-S 


Color: 


CTRL-C 
CTRL-B 


Move: 





ändert definierte Zeichen 


In den letzten beiden Routinen (CTRL-D und CTRL-R) sind 
folgende Funktionen verfügbar: 


überlagert zwei Zeichen (zweites Zeichen hat 
höhere Priorität). 

Farbe für Punkt wählen. 

Abbruch der Definition. 

löscht Definition. 

übernimmt Definition in die Zeichensatztabelle. 
vergrößert Zeichen bei der Definition. 


Nur bei der vergrößerten Zeichendefinition: 


(und Pfeil-Taste hoch/runter) spiegelt an der x- 
Achse. 

(und Pfeil-Taste rechts/links) spiegelt an der y- 
Achse. 

(und Pfeil-Taste) schiebt in jeweilige Richtung. 
sucht Zeichen in Zeichensatztabelle. 


Die Definition bei vergrößerter Darstellung unterscheidet 
ich etwas von der normalen Darstellung. Hier wird ein Punkt 
nmer durch Drücken des Feuerknopfes gesetzt und mit 
»5pace« (Leer-Taste) gelöscht. 


Im Color-Menü wählen Sie aus der Farbpalette 
die 16 Farben für Ihre Grafik. Die Wahl der einzel- 
nen Farbtöpfe erfolgt wieder mit Hilfe des Cur- 
sors. Die Farb-Nummern sind durch Bewegung 
des Joysticks (der Cursor-Tasten) nach rechts 
oder links zu erhöhen beziehungsweise zu ernie- 
drigen. Bei Druck von »CTRL-A« erscheint wieder 
das Bild, und die Farbe ist direkt im Bild veränder- 
bar. ENTER übernimmt den Farbwert. 

zieht zwischen zwei frei wählbaren Punkten eine 
Linie, Diese wird in Elemente (Zeichen) von 4x8 
Punkten zerlegt und im Zeichensatz abgelegt. 
Das Programm beachtet dabei selbständig, daß 
ein Zeichen nicht mehrfach im Speicher steht. 
Die Position der Endpunkte läßt sich mit dem Cur- 
sor zunächst grob festlegen. Durch Drücken des 
Feuerknopfes (der Copytaste) erscheint ein 
Punkt, dessen Positionierung dann die endgül- 
tige Position bestimmt. 

legt die Farbe des Punktes fest. 

löscht die Positionen. 

funktioniert ähnlich »Line«. Jedoch bestimmt die 
erste Position den Mittelpunkt, die zweite Posi- 
tion den Radius des Kreises. 

dient der Vergrößerung des aktuellen Bild- 
schirmsektors. Dieser Sektor umfaßt 5 x 3 Zei- 
chen. In der Mitte befindet sich der Cursor. Das 
Bild scrollt bei Positionsänderung über den Bild- 
schirm. Bis auf »CTRL-T« und »CTRL-N« haben Sie 
auch bei vergrößerter Darstellung alle Funktio- 
nen aus Menüpunkt »Paint« zur Verfügung. 
kopiert Inhalte von Bildschirmbereichen. Sie 
markieren den zu kopierenden Bereich mit dem 
Cursor an der linken oberen und rechten unteren 
Ecke. Dabei bleibt das Zeichen des Cursors an 
der jeweiligen Stelle stehen. Nun steht der Bild- 
schirmsektor im Puffer und läßt sich beliebig oft 
kopieren. Dazu geben Sie durch Drücken des 
Feuerknopfes die neue Position der linken obe- 
ren Ecke an. Mit »Space« wählen Sie einen ande- 
ren Bereich. 

ist genauso zu bedienen wie »Copy«, jedoch 
löschen Sie den ursprünglichen Bildschirmbe- 
reich. 

füllt einen markierten Bildschirmbereich (siehe 
»Copy«) mit einem gewählten Zeichen. Mit der 
Leertaste bestimmen Sie einen neuen Bereich. 


Garbage ist eine Routine, die alte, nicht mehr benötigte 
Collection: Zeichen aus dem Zeichenspeicher entfernt. 
Dabei werden Zeichen gelöscht, die zwar im Zei- 
chensatz noch definiert sind, aber in der Grafik 
keine Verwendung mehr finden. So läßt sich 
nach Fertigstellung einer Grafik der Zeichensatz 
von überflüssigen Zeichen bereinigen und Spei- 
cherplatz sparen. 
Clear löscht den Bildschirm ganz oder teilweise. Beim 
Screen: Löschen von Bildteilen ist wieder nach dem Prin- 
zip »von links-oben nach rechts-unten« der 
Bereich zu markieren. 
Clear löscht ein Zeichen, das Sie nur mit dem Cursor 
Character: auszuwählen brauchen. Dabei rücken die Zei- 
chen im Zeichensatz um eine Position nach vorn. 
In das Hauptmenü gelangen Sie, indem Sie das 
erste Zeichen der Zeichensatztabelle (Leerzei- 
chen) anwählen. 
Help: ruft eine Hilfsfunktion auf. 
Value: dient zur Ausgabe der zweimal acht Byte (linke 
Seite und rechte Seite), aus denen sich jedes 
Zeichen zusammensetzt, auf Bildschirm oder 
Drucker. 
Disc: stellt folgende Funktionen zur Wahl: 
load file lädt alles, was Sie zuvor mit »Background Pain- 
‘ ter« gespeichert haben (Grafik und/oder Zei- 
chensatz). Dabei erkennt das Programm selb- 
ständig, ob eine Grafik vollständig oder nur teil- 
weise gespeichert ist. Somit lassen sich beliebig 
viele Teile zusammen in den Bildschirm laden, 
wobei Sie die ursprüngliche oder eine neue Posi- 
tion wählen. 
save all speichert sowohl den Zeichensatz als auch die 
Grafik. 
save speichert nur das Bild, weshalb Sie darauf ach- 
picture ten sollten, daß bei wiederholtem Laden sich 
auch der ursprüngliche Zeichensatz im Speicher 
befindet (sonst gibt es nur Zeichen-Wirrwarr). 
Auch einzelne Bildschirmbereiche lassen sich 
speichern, um diese dann wieder in anderen Bil- 
dern zu verwenden. 
save speichert den Zeichensatz oder auch nur ein- 
table zeline Zeichen. Die Markierungen werden hier, 
wie auch bei »save picture«, mit dem Cursor fest- 
gelegt. 
load hängt einen allein gespeicherten Zeichensatz an 
table einen schon bestehenden an. Dabei müssen Sie 
append darauf achten, daß Sie die maximale Länge von 
255 Zeichen nicht überschreiten. 
show picture und show table 
erlauben nach dem Ladevorgang die Betrach- 
tung des Bildes oder der Grafik. 
catalog gibt ein Inhaltsverzeichnis des Kassetten-/Dis- 
ketten-Laufwerks aus. 
menu löst die Rückkehr ins Hauptmenü aus (wie die 
Enter-Taste). 


(Peter Ullrich/ja) 
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background-painter 
1985 by peter ullrich 
felixallee B 
8482 neustadt 

07402/1451 


ON BREAK GOSUB 7778 

MEMORY 34511 

LOAD "bp.bin",„34612 

INK 0,8: INK 5,1:INK 14,15: INK 15,7 
bladr =&CBBB: adro=bladr 
ovly=&8734:mirr y=%&875B: sr=&878C: sl=% 
87B2: menu=&87D8: picm=&B8BF : abfall=&8 
BBQ: compare=&8B1B:c#1=%&8B62: copy=&BB 
653: 1buff=&8B83: prtable=&BBCD: mochr =& 
8BF&B: chpi c=&8CBB: clbyte=%BBAD 
zeich=&8C2A: vzeich=-&B8C3F ıcurcl=&BCAC 
tcurset=&BCAB: feuer=&BC9A:clscreen=& 
SCCA:prscreen=&BCDB: z0o0m=&8DB3: vcur= 
£8DD6: vfeuer=&BE1D: vpoint=&BE2A: deco 
de=&BE45: encode=&BE4F : adrcl=%BE73:xp 
o=&BE7&: ypo=&BE77 
spx=&BE71:spy=L8E72:xcc=&BE74: yec=kB 
E75: adrchr=&967B: buffer=&BEBB: adrcol 
=&9283: picture=&9293: chrnum=&BE77 
temp$=STRING$t1&,CHR$(B) ) stempadr=PE 
EK (@temp$+1) +256#PEEK (@temp#+2) 
my=1:ıxc=Q: vco=@:color=1:newchr=1:actc 
hr=9: y=8 

DIM co(?) 

FOR i=8 TO 7:READ a:scoli)=arNEXT 
DATA 8,24,14,6,25,180,18,8B 

MODE ®:BORDER B:POKE adrchr ,@ 

A i=ß TO 15:INK i,Q:NEXT:GOSUB 108 


ic) 


CALL clscreen:CALL prscreen 
adro=bladr 

POKE chrnum,actchr 
madrn=bl adr +4+my*#BQ: madr =madrn 


: se men u HH 


BORDER 8:G0OSUB 498: CALL menu,picmty: 
CALL curset ,„madr 

int=INKEY$: IF in$="" THEN 388 
BEE TEE OR ASC(in$})=224 THEN 
GOTD 41BD E 

IF INT Ctmy-1+y/5) /2)< > imy-1+y/5)/2 T 
HEN 388 


ON (my-1+y/5)7/2+1 GOTO 5@8,3200 ,.6008 
3900, 1645, 345,346, 6208, 7008, 2800,23 
50.,63280,3680,7148 

mflag=@:BORDER 8:60T0 2588 
mflag=1:BORDER 7:G0TO 2588 

IF ASCtin$)=i@ OR ASctin#)=241 THEN 
IF my=23 THEN IF y=28 THEN 388 ELSE 
y=y+5:60T0 458 ELSE my=my+1:60T0 448 


IF ASCtin$)=11 OR ASCtin$)=249 THEN 
IF my=1 THEN IF y=® THEN 388 ELSE y= 
y-5:60T0 458 ELSE my=my-1:60T0 440 
G0OTO 388 

CALL curel „madr:madr=bladr +4+my*#BB:C 
ALL curset „madr:GOTO 388 

CALL menu,picm+ty:CALL curset „madr:GÜ 
TO 308 
FOR i=® TO 15:INK i,PEEK(ladrcol+i):N 
EXT: RETURN 

FOR i=9 TO 7:INK i„coti):NEXT:RETURN 


: 4 pain 
BORDER 1:605UB 488: adro=sbladr +Hc#2+y 
c*80:CALL prscreen:CALL curset ,adro 
in$=INKEY$: IF in$="" THEN 558 
kfl=8:60S5UB 1158: IF kfl THEN GOSUB 1 
221:60T0 5538 
IF ASCtin$)=88 OR ASCtin$)=224 THEN 
CALL feuer „adro:CALL curset „adro:ıPOK 
E Teig ie eine 
& 
IF in$=" " THEN GOSUB &48:60T0 548 
IF ASCtin$)=4 THEN ndfl=1:60T0 7B8 
IF ASC(in$)=1B THEN ndf1=B:60T0 788 
IF ASCtin$)=7 THEN IF PEEK(picture+x 
c+48#yc)=9 THEN 5380 ELSE actchr=PEEK 
(picture+xc+48#yc) :POKE chrnum,actch 
r:GOSUB 7788:6G0OT0O 538 
EBENE THEN GOSUB 1398:60T0 
en Mt 


IF ASC(in$)=13 THEN CALL curel ,adroı 
GOTO 288 

IF ASCtin$)=25 THEN 1558 

IF ASCtin$)=14 THEN LOCATE 1,1:PEN i 
:PRINT"chr.code :";PEEK(picture+xc+4 


Listing 1. Steuerprogramm für »Background Painter« 


[5SABCI 


C31F@] 
[S12E] 
[E546] 
[A182] 
C544A] 
[BABA] 
[6848] 


[1588] 
EFDCA] 
[3252] 
C4FC4] 


[OBB&] 
[11&C) 


£11D8] 
LC47DA] 





O*yc)ıFÜOR w=8d TO 1BG0:NEXT:CALL prsc 

reen:CÄLL curset „adro 

GOTO 538 

IF xc=39 THEN 538 ELSE »c=xc+1:BOSUB 
1221:G60T0 538 

POKE chrnum,B:CALL feuer „‚adro:sCALL c 

urset „adro:POKE picture+zc+t40#vc,BıP 

OKE chrnum „actchr » RETURN 


*“*#### zeichen definieren ##H##+#+ ( 
auf normalen bildschirm) 


IF newchr=254 THEN GOSUB MSB: CALL p 
rscreen:CALL curset „adro:GOTO 588 
CALL curcl,adro:ırfl=®8:GOSUB 19088: IF 
rfl THEN CALL curset „adro:G0T0O 538 
xpoia=xc#16: ypoia=(24-yc)*#16+15 


GOSUB 9728 

IF TEST(xpoia+txpoir,ypoia-ypoir) THE 
N col=@ ELSE col=color 

PLOT xpoiatxpoir ,ypoia-ypoir,col 


in$=INKEY$: IF in$="" THEN 788 

IF ASCtin$)=2 THEN POÜKE chrnum,PEEK ({ 
picture+xc+4B8#yc):CALL feuer „‚adro:PO 
KE chrnum.actchr:CALL curset ‚adro:B0O 


5358 
ASC(in$)=3 THEN GOSUB 1258:60T0 7 


ASCtin$)=13 THEN 9768 

IF ASCtin$)=26& THEN GOSUB 1858: 60SUB 
1790: pl adr=kC2AB+Rpoir+ypoir#40: CAL 

L zoom,adrzoom:LCALL vzeich,„tempadr:f 

1=8:60T0 1738 

IF ASClin$)=15 THEN POKE chrnum,B:CA 

LL feuer .adro:FOR i=@ TO 15:POKE tem 

padr+i „d:NEXT:ıPLOT »poiat+txpoir,ypoia 

-ypoir,color:6GOTO 788 


keyfl=B:60SUB 1828: IF keyfl THEN GOS 
UB 888:60T0 748 

IF ASCtin$)=88 OR ASCltin$)=224 THEN 
un 928: G0SUB 855:605UB 888:60T0D 7 
60T0 788 | 

IF xpoir=12 THEN xpoir=®B:RETURN ELSE 
‚xpoir=xpoir+4:RETURN 

En adro+toldy#1824,PEEKitempadr+old 
Wi 

POKE adro+toldy*1@24+1 ,PEEK (tempadr+o 
ldy/2+8) 

oldy=ypoir:RETURN 


POKE ERDROME TRONR. 2, DEERABSETIUDENTE 
*+1024 

POKE tempadr+ypoir /2+8,PEEK (adro+ypo 
ir#1824+1) 

RETURN 


zeichen uebernehmen 
POKE &8B44,.B:POKE &8B4D,%&23 
CALL compare,„newchr „tempadr: IF PEEK( 
cf1)<>@ THEN IF (newchr-PEEKicfl)=ch 
r AND ndf1=9) THEN 775 ELSE chr=newc 
hr-PEEK (cf1): POKE picture+txc+tyc#4Q,c 
hr:G0OSUB 9358:ndfl1=8:G60TO 788 
FOR i=8 TO i5S:POKE chrzei+i „PEEK(tem 
padr+i):NEXT 
actchr=schr :POKE chrnum,chrsCALL feue 
r ,adro 


| IF ndfl1 THEN POKE picture+xc#tyc#4Q,c 


hrsnewmchr=newchr+1 ELSE CALL prscree 


n 
1808 CALL curset ,adro:G0TD 5538 
1818 


1828 


punkt bei der definition bewegen 


1838 IF ASCtin$)=7 OR ASCtin$)=243 THEN 


1840 


1858 


keyfl=1:IF xpoir=12 THEN »poir=B EL 

SE »poir=xpoir+4 

IF ASCtin#t)=B OR ASCtin$)=242 THEN 

keyfl=1:IF »poir=@ THEN «poir=i12 EL 

SE xpoir=xpoir-4 5 

IF ASCctin$)=1d OR ASCtin$)=241 THEN 
keyfl=1:IF ypoir=14 THEN ypoir=8 E 

LSE ypoir=ypoir+2 

IF ASctin#)=i1i OR ASCctin$)=240 THEN 
keyfl=1:IF ypoir=B THEN ypoir=14 E 

LSE ypoir=ypoir-2 

RETURN 

chr=PEEK (picture+xc+40#*vc) 

chrzei=sadrchr+chr#1& 

FOR i=8 TO 7:POKE tempadr +i „PEEKich 

rzei+ti):POKE tempadr+i+8.PEEK{chrze 
i+i+B8):NEXT 

IF ndfl THEN chr=newchr ELSE IF chr 

= THEN rfl1=1:RETURN 

adro=bladr+xc#2+yc#8B 


. 
er 


ee 


REIT 


[7B3C] 
CD454] 


[C5EE] 
[24FC] 
EB3C8] 


[848C] 
LESCCI 


[öaFB8] 
[C2B8] 
[SAFC] 
tE7C2] 
LEEEC] 
[4B8A] 
[C1D&64] 


LESCA] 
[öRic] 


cC7148] 


CD8B8] 
[7574] 


[57D8] 


[2E78] 
[CBE84] 
£C13C8] 
EF35C] 


[2&DE] 
[CBSCC]) 


CF2B8] 
[73381 
CADF&] 
C@DC2] 
[259A] 
[@11A] 


[F234] 
E6bERAE] 


C84BE) 
[CC52] 
[571C] 
[7B76] 
LACEB] 


[9212] 
[349A] 


[7858] 
L7F&2] 
[647B8] 


[7BBE] 
LAB?®] 
L1iAEB] 
[3334] 


[325A] 


[(BES4] 
L758C)] 


COM FUTE 














1288 


1218 
1228 
1221 
1222 
1258 
1248 
1258 
1258 
1278 
1288 
12978 
1518 


15208 


1518 


15358 


1548 


1558 
1568 


1578 


1588 
15978 
1580 
1518 
1528 


1548 
1545 


1568 
1578 


1588 


1598 
1788 
1705 





chrzei=adrchr+chr #1& 
»poir=B: ypoir=B:oldy=B: RETURN 


*###### bewege Cursor #rn### 


IF ASCtin$)=7 OR ASCtin$)=243 THEN 
IF »c=397 THEN 1228 ELSE »c=-+c+tl:kfl 
=1: RETURN 

IF ASC (in$)=8 OR ASCctin#)=242 THEN 
1228 ELSE xc=-xc-1l:kfl= 


IF ASClin$)=1B OR ASC(in$)=241 THEN 
IF vc=24 THEN 1228 ELSE vco=vc#+l:kf 

1=1:RETURN 

IF ASctin#)=11 OR ASCctin$)=248 THEN 
IF vc=B THEN 1228 ELSE ye=yc-i:ıkfl 

=1: RETURN 

RETURN 

Zeige curcl „adro: adro=bladr +uc#2+vc# 

8 

CALL curset „adro:RETURN 


" #####+#+ farbe fuer punkt auswaehl 
en ####4# 


BORDER PEEK (adrcol+color):ıfli=8 
GOSUB 1388: IF col THEN PLOT xpoia+x 
poir,„ypoia-ypoir,„color 

FOR w=1 TO 1BB:NEXT:IF fli THEN RET 
URN ELSE GOTO 1278 


in$=INKEY$: IF in$="" THEN 1388 

IF ASCctin$)=7 OR ASCctin#$)=2453 THEN 
IF color=15 THEN 1388 ELSE color=co 
lor+1:G0OTO 1358 

IF ASctin$)=8 OR ASC(in#$)=242 THEN 
IF color=1 THEN 1388 ELSE color=col 

or-1:G0T0 1358 

IF ASCtin$)=88 OR ASC(in$)=224 THEN 
BORDER i1:fl1=1:RETURN 

GOTO 1388 

BORDER PEEK (adrcol+color) :RETURN 


Ha character 
le Hits 


FAPER #1,8:GOSUB 14180:60T0 1548 
ie curcl „adro: GUOSUB 1428:60T0 151 


tab 


WINDOW #1,.1,28,1, LM 

+4: FAFER #1 ‚B:CLS # 

PEN 2: LOCATE 1, Er "{CTRL Bene 

Kr table£CTRL X{CETRL OIICTARL C 

E 

PEN EPRINT STRING$ (28."-")3; 

LOCATE 1,INTt(tneuchr-1) 7/28) +4: PRINT 
STRING$(28,"-"):PEN 3 

count=8: xc1=9: adroi=bladr +80#2 

IF newchr>1 THEN CALL prtable,newch 


fe 
POKE chrnum,actchr 
CALL curset „adroi:RETURN 


in#=INKEY$: IF in#="" THEN 1518 

IF ASCtin$)=97 OR ASCtin$)=243 THEN 
IF count=newchr-1i THEN xci=ß:count= 

2:60T0 1598 ELSE «ci=sci#+#2tıcount=co 
unt+1:60T0 1598 

IF ASctin$)=8 OR ASCtin$)=242 THEN 
IF count=8 THEN count=snewchr-1lıxci= 
(newchr-1)#2:60T0 1598 ELSE xci=xci 
-Pecount=scount-1:60T0 15998 

IF ASCctin#$)=88 OR ASCtin$)=224 THEN 
RETURN 

GOTD 1518 

IF count<>8 THEN actchr=count: POKE 
chrnum,actchr 

tee prscreen:CÄALL curset „adro:RETU 


* 


LOCATE 16,1:PRINT counts" 
ladr+xc1#2+1&68 

CALL curcl „adrol:CALL curset „adrni 
adroi=sadrni1:60T0 1518 


"sadrni=b 


“eat zoo m Hat 


BORDER 1:GOSUB 488 

GOSUB 1858 

GOSUB 17978 

PEN 3:LOCATE 8,25:PRINT xc;:LOCATE 
17,25:PRINT vcs:LOCATE 1,1 

CALL zoom,adrzoom: CALL vcur „adrvcur 


® 


in$=INKEY$: IF in$="" THEN 1708 
kfl=8B:GOSUB 1158: IF kfl THEN 1548 


[FB2&] 
[CFBB] 
[?21C] 
[87658] 
(B428] 


£1732] 


[7CBC] 


[C85A] 


[3184] 
EABBA] 


[9054] 
[774A] 
[BB1A] 


L7EEE)] 
LFZI1E]) 
[7A4C] 


[5374] 


[CA16] 
[DE26] 
[F7BB] 


[ABSC]I 


[5AB4] 


[3784] 
[729A] 
[3972C] 
[B522] 


[1956] 
[BB2&] 
C[DF&58] 
[BF18] 


ESE1B] 
[8436] 


[5444] 
[4914] 


[2746] 
[B2EC) 


[(54B2] 
[537D4] 
[C7BA] 
EB71A] 
LEBBC] 


[825E] 


[2E28] 


[EB22] 
[BC16] 


[F78DE] 


[A496] 
CDF2A] 


[C9C2] 
[D37A] 
[LFC58] 
CBF28] 
[DDB4] 
[£C124] 
[8BEA] 
£[?CB4] 
[B4BC] 


[8152] 
[C18E2] 
[L9&2E] 
CD3C®] 
[B234] 





17865 


1718 


1728 


17538 


IF ASCtin$)=88 OR ASCtin$)=224 THEN 
CALL vfeuer:FPOKE picture+xc+4B#yc. 
PEEK {chrnum) :GOTO 1775 
IF ASCctin#$)=25 THEN CALL prscreen:a 
GE EEE WESEN curset „ad 
ro:GOTO 5 
IF ing" " THEN FOÜKE chrnum „dB: CALL 
vfeuer:POKE picture+tsc+t40#*yc „BB: POKE 
chrnum,actchr:6G0T0 1775 
IF ASCtin$)=7 THEN IF PEEKtpicture+ 
xc+t40#vc)=9 OR PEEK(chrnum)=B THEN 
1780 ELSE actchr=PEEK (picturetxc+4B 
#*ve):POKE chrnum,„actchr :GOSUB 1778: 
CALL zoom,adrzoom:FÜR w=1 TO 1B88:NE 
XT:CALL vcur „adrvcur 
IF ASCtin$)=4 THEN ndfl=1:60T0 1788 


IF ASCtin$)=18 THEN ndfl1=2:G0T0 1970 


I] 
IF ASC(in$)=153 THEN 288 
GOTD 1788 


; IF »c=39 THEN 17808 ELSE »c=“c+1:60T 
BD 


0 166 
adrzoomspicture+xc-2+48# (yc-1) 


adrvceur=PEEK (picturetnc+t4Bß#vc)#16+a 
drchr 
a xc<=1 THEN xp=254+xc ELSE xp=xc- 


IF vc=®B THEN vp=255 ELSE yp=yc-1 
POKE »po,xp:POKE ypo,vp:RETURN 


PEN 2:LOCATE 1,25:PRINT "{2 SPACE}« 
ka SPACE} ypos{4 SPACE}"s:LOCATE 


PEN S3J:LOCATE 8,25:PRINT »c; :LOCATE 
17,25:PRINT yc3:LOCATE 1,1:RETURN 

"  AHHH zeichen definieren #####+ 
„auf vergroessertem bildschirm) 

IF newchr=255 THEN GOSUB 7838: GOTO 

1588 

rfl=8: GOSUB 1888: IF rfl THEN 164658 E 
LSE pladr=&C2A8B: POKE xpo,xp:POKE yp 


O,.YyDB 

fl=B:CALL zoom,adrzoom 

POKE adrcl „color:ıtempcl=PEEK ({pladr) 
: CALL vpoint,pladr 


in$=INKEY$ı IF in$="" THEN 1958 
BEL BODEN 1828: IF keyfl THEN 28 


IF ASCl(in$)=88 OR ASCctin$)=224 THEN 
GOSUB 2888:6G0T0 2328 
IF ASCtin$)=2 THEN POKE chrnum,PEEK 
(picture+xc+4B#yc):CALL vfeuer:CALL 
vcur „PEEK {chrnum) #1&+adrchr:POKE c 
hrnum,actchr :GOTO 1788 
IF ASCt(in$)=3 THEN 22990 
IF ASC(in$)=13 THEN 2228 
IF ASCctin$)=25 THEN CALL prscreen:C 
ALL zeich,adro,tempadr :oldy=ypoir:6 
OTO 728 
IF ASC(in$)}=32 THEN IF PEEKipladr)= 
8 AND tempcl=8 THEN 1958 ELSE adr=-t 
empadr+ypoir /2- (xpoir >=8) #B:GOSUB 2 
170: G0T0 23208 
IF ASCctin$)=1& THEN FOKE chrnum,B:C 
ALL vfeuer:FOR i=@ TO 15:POKE tempa 
nt ‚@:NEXT:CALL vpoint ,pladr :60T0 
IF ASCtins)=17 THEN 2251 
IF ASC(tin$)=244 THEN GOSUB 2313: CAL 
L vzeich,„tempadr:tempcl1=PEEK (pladr) 
:CcALL vpoint ‚pladr:G0TO 1950 
IF ASCtin$)=245 THEN GOSUB 2314: CAL 
L vzeich,tempadr:tempcl1=PEEK {pladr) 
:CALL vpoint,pladr:GOTO 1958 
IF ASC(in$)=247 THEN CALL sr ,tempad 
r:CALL vzeich,tempadr:tempc1=PEEK (p 
ladr)sCALL vpoint „pladr:G0TO 19758 
IF ASClin$)=245& THEN CALL sl ,‚tempad 
r:CALL vzeich, tempadr :tempc1=PEEK(p 
ladr):CALL vpoint ‚pladr:60TO 1958 
IF ASCtin$)=248 OR ASCc(in$)=249 THE 
N GOSUB 2315:CALL vzeich,tempadr:te 
mpcl=PEEK(pladr):CALL vpoint,pladr: 
GOTO 1958 
IF ASC(in$)=258 OR ASCclin$)=251 THE 
N CALL mirry,tempadr:CALL vzeich,te 
ee en rn vpein 
t,„pladr:GüOTO 1958 
F ASCtin#$)=15 THEN 2848 
GOTO 1958 
PAPER erg 1428: 6G0OSUB 1518: IF 
count=@g THEN 2848 
CALL ovly,tempadr „adrchr+15*#count 








[C258] 
[AF26] 


[DFF2] 


[BAS54] 
C1C1A] 
[SF8C]I 
[CA1D2] 
[C728] 
CDFEC]I 
[232E] 
LFBFE]I 


CFFB4] 


1728] 


CD788] 
LE42ZE] 


[FD74] 
[7AS32] 


[ö545E] 
[F7ARE] 
EZAICI 
[SCCE] 
[E32A] 
[?8DC] 
LCADA2] 


[S7FC] 


CB2BE) 
[2EDE] 
[8934] 


LSEF2] 
[D21E] 


[DEFB®] 
[54532] 


[FS7@] 
[L107E] 
[7D1A] 


[FS16] 
[6148] 


[8158] 
[C42A] 
[852C] 

[1858] 
[7716] 


71 


go _ 


u a 


a en 


nn: 


2514 


2315 


2520 


2338 
2348 


23568 
23708 


23970 
24080 


2418 
2420 


2 


GOSUB 1790: CALL zoom,adrzoom: CALL v 
zeich,tempadr:GOTO 1938 

POKE adrcl,tempclsCALL decode: CALL 
vpoint,pladr:IF PEEK(adrel)<>@ AND 
fl THEN CALL vpoint,pladr:fl=®8 
pladr=&C2AB+xpoir+ypoir#48:60T0 173 
8 


# 


IF PEEK(pladr)=B AND tempcl=B THEN 
1958 

adr=stempadr+ypoir #2-(xpoir>=B)*#8 
fl=1:1IF tempcl<>@ THEN GOSUB 2178 
POKE adrcl,color:CALL encode 
code=PEEK (adrcl):tempcl=code+code#2 


IF »poir=@ OR »poir=8 THEN code=cod 
e*2 

POKE adr „PEEK(adr) +code 

RETURN 


code=PEEK (adr ) 

POKE adrcl,tempcl:CALL decode: CALL 

encode 

IF xpoir=@ OR xpoir=8B THEN code=cod 
S-PEEK (adrel) #2 ELSE code=code-PEEK 
(adrcl) 

POKE adr ‚code: tempcl=8: #1=98:RETURN 

* zeichen uebernehmen 

POKE &8B44,B:POKE %8B4D,%23 

CALL compare,newchr „tempadr : IF PEEK 
(cf1)<>B8 THEN IF tnewchr-PEEK{cfl)= 
chr AND ndf1=B) THEN 2228 ELSE chr= 
newchr-PEEK icfl):POKE picturetxc+tvc 
*48,chr:6GOSUB 850:ndf1l=2B:60T0 2238 


FOR i=8B TO 15:POKE chrzei+i „PEEKite 
mpadr+i):NEXT 
actchr=chr:POKE chrnum,chr:CALL vfe 


uer 

IF ndf1 THEN POKE picture+tsc+yvc#4Q, 

chrınewchr=newchr+i1 ELSE xPO,X 
p:POKE ypo,vyp:CALL zoom,adrzoom 
CALL vcur „chr#1&+adrchr:60T0O 1788 

' suche zeichen {ctrl s) 

POKE %&8B44,.8:POKE &8B4D,&23 

CALL compare ,newchr „tempadr: IF PEEK 
er tee THEN GÜSUB 9138 ELSE GOSUB 
71 

GOSUB 1858: 605UB 1798: CALL zoom,adr 
zoom:CALL vzeich,tempadr : f1=9:G60T0 
17358 

"AH Farbe fuer punkt auswaehl 

en #####+* (bei vergr. blildschirm) 


BORDER PEEK tadrcol+color):fl1=8 
GOSUB 1388 

POKE adrcl,color:CALL vpoint,„pladr: 
EALL vpoint,pladr 

FOR w=1 TO 1B@:NEXT:IF fli THEN 195 
8 ELSE GOTO 2388 

FOR i=B TO 4:POÜKE tempadr+j,PEEK(te 
mpadr+j+1):POKE tempadr+i+8,PEEK(te 
mpadr +j+9?) :NEXT:POKE tempadr+7,8:PO 
KE tempadr+15,B:RETURN 

FOR i=7 TO i STEP -1:POKE tempadr+j 
„FPEEK (tempadr+j-1):POKE tempadr+j+8 
„PEEK ({tempadr +j+7) :NEXT:POKE tempad 
r„B:POKE tempadr+8,B8:RETURN 

FOR j=B TO 3:temp=PEEK (tempadr+j):P 
OKE tempadr +j,PEEK (tempadr +7-j) :POK 
E tempadr +7-j,temp: temp=PEEK (tempad 
r+j+8):POKE tempadr+j+8,PEEK(tempad 
r+15-j):POKE tempadr+15-j,temp: NEXT 
: RETURN 

IF xpoir=12 THEN xpoir=8:60T0 2858 

ELSE xpoir=xpoir+4:60TD 2858 


"4 clear character HH 
CALL curcl,madr:PAPER #1,8:605UB 48 
1] 


WINDOW #1,1,28,1, INT (neuchr-1) 7/28) 
+4ı1CL5 #1 

LOCATE 1,„1:PEN 3:PRINT"{CTRL X}clea 
r character {CTRL x>":B8 

temp=actchr :605UB 1448: GOSUB 1518 
IF count=d THEN CALL prscreen:actch 
r=temp:POKE chrnum,temp:5OSUB 4978: 1 
F newchr=1 THEN CALL clscreen:560T0 
288 ELSE GOTO 288 

IF temp >=count THEN IF temp=count T 
HEN temp=8 ELSE temp=temp-1 

IF count“> newchr-i THEN CALL mochr 
„‚Inenuchr-i-count)#15,count#1&+adrch 
r ELSE CALL chpic,„count: count=count 
-1:xci1=xc1-2Z:radroi=bladr+xc1#2+16ßB: 
GOTO 2448 


CBD74] 


[7A28] 


ECCDA] 
[7728] 


[&6BA4] 
[CB4AB] 
[E828] 
[87D8] 
[27E4] 
[S4F4] 
C3D18] 
[BE?B] 
[7528] 
LEADE] 
[3D5E] 
[2B5C] 
E7DEB] 
[6588] 
[CaDF2] 


CA2B2] 
[ABA4] 
CBDBB] 
[B&AC]I 
[C7ABZ] 


C1A1®) 
LIAFCI 


LAB9B] 
CE8B4] 
[9822] 
[217A] 
[2626] 
[2454] 
[5292] 
[9268] 


E[FDE2] 
[CC11E] 


[2216] 


[4458] 


[4158] 
[1926] 
[CES1E] 
[öA1B] 
[ES522] 
[3718] 
L7C35C) 


L4E7A] 
[7434] 


[7554] 
[8558] 


CD®D8] 








24538 
2448 


2445 
2458 
2508 
2518 
2528 
2325 


255358 


2548 


2550 
2560 


2578 


2578 
2688 


2602 
26405 
2610 
2640 
2645 
2647 
2650 
2660 


2678 
2708 


2718 
2880 
2818 
2820 
2838 
2848 
2858 


2868 


2678 


2708 
29718 


zo20 
sB1ıa 
3260 
5218 
3228 
3238 
3231 
3235 


5248 
3258 


3248 


3278 


CALL chpic,„count 
nenchr=neuchr-1:60S5UB 1478:60SUB 15 
18:60T0 24808 


FOR i=1 TO 25:L0OCATE 1.26:PRINT:NEX 
T:MODE B:CALL prscreen:CALL curset, 
adro: RETURN 

move ## 


HH co pp y and 
HR 


. 


fl=Bırfl=B:60SUB 2538: IF rfl THEN C 
ALL orscreen:GOTO 288 ELSE CALL cop 
Y‚picture+ttx+48*ty:6G0TO 2498 

GOSUB 480: CALL prscreen:PEN 1:L0OCAT 
E 1,„1:PRINT"{CTRL X}315 SPACE}set ma 
rks{iä SPACE}+{CTRL X}":FOR w=1 TO 18 
BU:NEXT:CALL prscreen:CALL curset,a 


dro 

GOSUB 26548: IF spfl THEN 2538 ELSE I 
F rfl THEN RETURN ELSE GOSUB 2708 
tx=xıcıty=yvc 

GOSUB 2548: IF spfl THEN 2538 ELSE I 
F rfl THEN RETURN ELSE GOSUB 2788 
IF xc<tx OR yc<ty THEN GOSUB 97804B:6 
0TO 25538 

POKE spx „xc-tx+1:POKE spy,ye-ty#+l 
RETURN 
GOSUB 2548ı IF spfl THEN 2525 ELSE I 
F rfl THEN CALL prscreen:60T0 288 E 
LSE IF mflag THEN POKE »cc,tx:POKE 
yec,tyv:POKE cibyte,&3EsCALL I1buff,p 
icture+ttx+4@0#ty:POKE clbyte,&iA 
POKE »cc,xc:POKE ycec,yc:CALL lbuff, 
picture+xc+4B*yvc 

CALL prscreen:CALL curset ,adro 
tx=xc:ty=vc:GOTDO 2488 

in$s=INKEY#: IF in$="" THEN 2448 
sofl=B: IF in$=" " THEN spfl=1:RETUR 
N 


IF ASCtin$)}=13 THEN CALL curcl,adro 
ırfl=1:RETURN | 
kfl=9:60SUB 1150: IF kfl THEN GOSUB 
1221:60T0 2448 
IF ASCtin#)=88 OR ASC(in$)=224 THEN 
RETURN 
GOTO 2548 
CALL curcl1,adro:FÜOR w=i1 TO 1B8:NEXT 
sCALL curset „adro 
FOR i=8 TO 7:POKE buffer+i „PEEKladr 
o+i1 #?848) :POKE buffer+i+8,PEEK(adro 
+1+1#2948) :NEXT i:RETURN 

4 clear screen ## 
Hark 


PEN 3:LOCATE 1,1:PRINT"{CTRL X3t4 5 
PACE}clear screen{f4 SPACE}TCTRL X}" 
s:PEN 1:PRINT STRING$(298,"-") 
WINDOW #1,.4,17,4,1@:PAPER #1,7:CL5 
#1 
LOCATE #1,1,„2:PEN #1,.3:PRINT#1," {C 
TRL X>a{CTRL X}1l1 or {CTRL X3pi{CTRl 
Kart" 
in$=INKEY$: IF in$="a" THEN 2878 ELS 
E IF in$="p" THEN 2988 ELSE GOTO 28 
[1%] 


GOSUB 32088: CALL clscreen: CLS: adro=b 

ladr:xc=B: vco=B:6GOTO 525 

BOSUB 3008 

rfl=9:GOSUB 25380: IF rfl THEN 288 EL 

SE FÜKE clbyte,&3E:POKE scc,tx:POKE 
ycec,ty:ıCEALL lbuff ,„picture+tx+40#ty 
:POKE clbyte,&1A:GOTD 2918 

PEN #1,@:PRINT#1:PRINT#1," are you 

sure":PRINT#1,"15 SPACE}y/n" 
in$=INKEY$: IF in$="y" THEN RETURN E 

LSE IF in$="n" THEN CALL prscreen:6 


OTO 288 ELSE GOTO 3818 

wa color menu #### 
#*# 
GOSUB 488 


CLS:PEN 2:LOCATE 1,1:PRINT "{CTRL X 
+{4 SPACE}color menufd& SPACE} {CTRL 
“}"s:PEN 1:PRINT STRING$(28,"-") 
WINDOW #1,1,28,3,12:PAPER #1,8:CLS 
#1 
FOR i=BD TO 7 
LOCATE 2,4+i:PEN 1:PRINT i;:=PEN 
isPRINT"{CTRL X+{5 SPACE}{CTRL X" 
:PEN i+8:PRINT "{CTRL X315 SPACE} TC 
TRL X}3"z3:PEN 1:PRINT i+8 
NEXT:PRINT"{CTRL DOYIECCTRL B}ctrl as" 
:PRINT "{CTRL OY£CTRL C}t2 SPACE}ch 
ange on picture":PEN 1:PRINT:PRINT 
STRING$ (28,"-")3; 
PRINT:PRINT"{CTRL OI{CETRL B+t2 SPAC 





tED®2] 
[F166] 
[752C] 
[4252] 
[?741C] 
L1C38] 
[9220] 


[?FB6] 


[?B54] 


[A256] 
[BEö5B] 


[?65A] 
[öi7E] 


[FAFB@] 
CBAAB]I 


[24D2] 
[452C] 
[3@D2] 
EFC1B] 
[C7DB] 
[4788] 
C&B84] 
CBA24] 


[C4C2A] 
[93281] 


C1D8@2] 
C4B24] 
LEA22] 
[843A] 
[2C265] 
[8828] 
[5A58] 


LE7C4] 


C[BB44] 


£E7B1ö6] 
LEA?C] 


LEBAA] 
[6262] 
CABSE] 
[9318] 
LE2CAI 
[911C9 
[1848] 
[4088] 


[3348] 
[EICH] 


£E73BA] 


[72A8] 














E}ink":PRINT:PRINT"{2 SPACE}color" 
fl=B:coli=ß: inki=Bß:xc=B: vo=3: adro=b 
ladr+xc#2+808*yc:CALL curset .adro 
GOSUB 3588 
in#s=INKEY$: IF in$="" THEN 33880 


ı IF ASCtin#)=13 THEN CALL prscreen:G 


OTTO 288 

kfl=9:605UB 1158: IF kfl THEN GOSUB 
1221 

IF xc<8 OR xc>27 OR yc<3 OR vc>1@ T 

HEN 33088 

GOSUB 3588 

IF ASClin$)=88 OR ASC(in$)=224 THEN 
3458 

GOTO 33808 

CALL curcl,adro 

in$=INKEYS$ı IF in$="" THEN 3588 


B@ IF ASCtin$)=9 OR ASCtin$)=243 THEN 


3656 
3457 


3670 


5688 
3690 


3788 
3718 


3728 
3738 


3748 
3745 
3746 
3747 
3778 
3788 


3770 


5888 
35818 


IF coli=25 THEN 3588 ELSE coli=coll 
+1:60T0 3558 

IF ASCtin$)=8 OR ASCclin$)=242 THEN 

IF coli=B THEN 3588 ELSE coll=coli- 
1:60T0 3558 ; 
IF ASCctin$)=88 OR ASCtinf)=224 THEN 
POKE adrcol+inki,coli:IF #1 THEN 3 
238 ELSE CALL curset „adro:6G0T0O 3388 


IF ASctin$)=1 THEN fl=1:CALL prscre 


GOTO 3588 

INK inki,coli 

IF fl=8@ THEN GOSUB 3578 

G0OTO 3588 e 
inki=vc-3-(xc>17)#8:coli=PEEK (adrco 
l+inki) 

IF FEEKtadrcol)=coli OR PEEKtadrcol 
+3)=coli THEN FEN 2 ELSE PEN 3 
LOCATE 7,17:PRINT inki:LOCATE 9,19%: 
PRINT col1i1:RETURN 


at value tab 1 ee #HHH 
ODE Zı INK 1 ‚24: f1l=Dı flag=® 


PRINT STRING$ (88, " -"),;"{1& SPACE}I## 
“HH VAL U E{2 SPACEIT ABLE ## 


rt STRING$ (88,"-"):PRINT:W r 


*0,1,80,6,25 
PRINT:PRINT"{ETRL X}s{iCTRL X)creen 
or {CETRL X}of{CTRL %X}rrinter :":PRINT 


in$=INKEY$: IF in$="s" THEN n=® ELSE 
IF in$="p" THEN n=8B ELSE GOTO 3642 


PRINT #n,„"values of character set : 
":PRINT #n 
zeig=adrchr 
PRINT"£ETRL X3aftCTRL X311l or {CTRL 
X3s{iCTRL X}equentiell :" 
in#=INKEY$#: IF in$="a" THEN 3558 ELS 
E IF in$="s" THEN 3555 ELSE GOTO 3% 
497 
FOR i=8 TO newuchr-i1 

GOSUB 3548 
NEXT:GOSUB 3818 
GOSUB 3778: IF flag THEN 3828 ELSE 6 
o0TO 3454 
ee code of character 

":i:IF i>=nenuchr OR i<B THEN PRINT 

IPRINT"not defined '!'!'":60T0 3455 
GOSUB 35548: PRINT:PRINT"press {CTRL 
X}c{iCTRL X> to continue or {CTRL X} 
enter {CTRL X} to return " 
in$=INKEY$: IF in$="" THEN 3657 ELSE 

IF ASC(iin$)=13 THEN 3828 ELSE IFi 
n$="c" THEN 3555 ELSE GOTD 36557 
PRINT #n,„"char.:"si 


[4028] 
[4235A] 


[DBBC]I 
[B2BA] 


CD4F8] 
[C312] 


[7224] 
[C7C8] 


[0758] 


[EUFA] 


[77BE] 


L17&E] 
[721A] 
[8DFA] 
[D878] 
[CD28] 


L7ES58] 


FBA] 


[7558] 


[B45C] 


[5482] 


[E835DE] 


F 
PRINT #n,"i4 SPACE}1.s.: &"sHEX$#(PE 


EKizeig+ti#16))3; 
FOR j=1 TO 7 
PRINT #n,"„&"sHEX#(PEEKizeig+ti+i* 
16)):; 
NEXT 
PRINT #n:PRINT #n,"i4 SPACE}r.s.: & 
re 


15 
"„&"sHEX$(PEEKI(zeig+tj+i* 


NEXT:PRINT #n 

G60SUB 3778: IF flag THEN 3828 

IF fl THEN 3745 

RETURN 

in$=INKEY$: IF in$="" THEN RETURN 


[A4C2] 
(FB52] 


[4E02] 
[6138] 


IF in$=" " THEN IF #1 THEN fl=B:RET 


URN ELSE fl=1:60T0 3778 
IF ASCtiin$)=13 THEN flag=1:RETURN E 
LSE flag=8 


RETURN 
PRINT:PRINT:PRINT" {2 SPACE}{CTRL X} 





press enter key to return{CTRL X}": 
RETURN 

MODE @:CALL prscreen:GOTO 288 

e “ae cc ir c 1 ee Hui 


POKE &8B44,1:POKE &8B4D,&19:GOSUB 4 
88: BORDER 4 

GOSUB 3958: IF rfl THEN CALL curcl,a 
dro:60TO 288 

GOTO 3995 

CALL prscreen:CÄLL curset „adro 
GOSUB 4888: IF rfl THEN RETURN 

IF rifl THEN 3938 

GOSUB 4128: IF rifl THEN 3738 
»B=xpoiat+txpoir:yQ=-ypoia-ypoir 

EALL ceurel,adro:PLOT »B,y@,color:CA 
LL curset „adro 

GOSUB 40808: IF rfi THEN RETURN 

IF rifl THEN 3938 

GOSUB 4188: IF rifl THEN 3938 
x1=xpoia+txpoir:yl=ypoia-ypoir:fl=@: 
RETUR 


r=SOR ( (x 1-xB) #(x1-xB) +tyl-yB)#(vi-y 
8)) 

CALL curcl,„adro:PLOT xpoia+xpoir,yp 
oia-ypoir, £01:60T0 sa08 


4200 in$=INKEY$: IF in$="" THEN 4008 


EN Meer ASC(in#)=13 THEN rfl=1:RET 
rifl=B:IF ASCclin$)=32 THEN rifl=1:R 
ETURN 


 kfl=B:605SUB 1158: IF kfl THEN GOSUB 


1221 

IF ASCtin$)=88 DR ASC(in#)=224 THEN 
RETURN 

G0TO 4288 


ndfl=1:CALL curcl „adro:605UB 1888 
x»poia=xc#lö: ypoia=(24-ye)#16+15 
GOSUB 728 

IF TEST{»xpoiatxpoir,ypoia-ypoir) TH 

EN col=8 ELSE col=color 

PLOT »poia+txpoir „ypoia-ypoir „col 
in#$=INKEY$: IF in$="" THEN 4178 

IF ASCtin$)=3 THEN GOSUB 1248:60T0 
4178 

rifl=@8: IF ASCctin$)=32 THEN rifl=ei:R 

ETURN 

keyfl=B:GOSUB 19028: IF keyfl THEN GO 
SUB 888:60T0 4138 

IF ASCtin#)=88 OR ASCctin#)=224 THEN 
RETURN 

G0TO 4178 


DEG: fl=-9B: flag=8: chrzei =sadrchr +newuch 
r#1ö 
»=B:xp=xd+r#C0Six)eyp=sy@-r#5SINix):o 
»=xp\1ld:0oy=24-yp\löd:soxl=ox soyl=oy 
PLOT »p,yp,color 
FOR x=8 TO 348 

xp=4B+Hr#C0O5S(x)ıyp=y@ß-r#SIN{x) 

IF »p<B OR xp?557 DR yp“<B@ OR yp> 
397 THEN flag=1:60T0 5058 

IF flag THEN PLOT »p,yp,color:fl 
aa=B ELSE DRAW xp,yp,„color 

GOSUB 58288 


IF INKEY(54)=128 THEN GOSUB 4128 

:GOTOD 3925 

NEXT 
GOSUB 5848: CALL prscreen:CALL curse 
t,adro:FLOT »B,vß,color:GOTO 3925 
tx=xp\l1d:tv=24-vp\ld 

IF ox<>tx OR oy<>ty THEN IF #1 THEN 
GOSUB 5848 ELSE CALL curset ,bladr+ 
ox#t2+oy#8ß: oxl=0x soyl=oyıfl=1:1IF 1f 
1 THEN 5848 

ox=txroy=ty 


| CALL curcl,bladr +tox 1#2+0y1#80 


adrn=bladr +0x #2+0y*BB8 
oxl=ox :oyl=oy 
POKE offs,B:POKE offs+1,&8:CALL com 
pare, newchr , adrn: IF FEEKicf1)<>8@ TH 
EN POKE picturetox+4@#oy ‚newchr-PEE 
Kticefl):GOTO 5915 
IF newchr=25%4 THEN GOSUB 7838: CALL 
prscreen:GOTO 288 
FOR i=8 TO 7 
POKE chrzei+i „PEEK (adrn+i #29848) 
POKE chrzei+i+B, PEEK (adrn+i #2848 
+1) 


| NEXT 


POKE picture+tox +4@0*#o0y „neuchr 
newchr=newchr+il:ıchrzei=chrzei+1lä 
CALL curset „adrn 

RETURN 


4 dr a w line #Hss4H 


[5@D8] 
CCSCE] 
[C526] 
[3B94] 
[C32A] 
[0284] 
[I3A4] 
CA1i4E] 
CF4D6] 
[81AB) 
[2FAB] 
[OBE4] 
LE4EE] 


[6752] 
CDBBB] 


L1BFCI 
E1iEC4] 
C875C] 


CD7D4] 
[C@323 
CA41CI 
LA31A] 
[9A26]3 
[2F44] 
[29CA] 
LF224] 
[A49C 
[311C2 


[6668] 


Listing 1. Steuerprogramm für »Background Painter« 
(Fortsetzung) 


3 RAARPY 7 


5 SER , 


Der ve 
er 9 
” DE , I 


SE RS 








FPOKE &8B44,1:POKE &BB4D,&i9:rfl=ßın 
dfl=1:GOSUB 488: BORDER 3 

GEOSUB 3938: IF rfl THEN CALL curcl,a 
dro:GOTD 28B 

ee »8,vB,col:d=Bd:xp=xB: yp=ydılfl= 


5 ox=xp\ibr: oy=24-yp\ldıan l=eox royl=oy 
| d#z=» 1-»B:sr=S6EN (dx ) edx=ABS (dx) 
dy=yi1-yß: yr=56GN (dy)sdy=ABS (dy) 
chrzei =adrchr +newchr #16 
FOR ji=1 TO dx+dy 

IF d<=9 THEN d=d+dx:PLOTR Q,yrıyp 
zyp+yr ELSE d=d-dy:PLOTR xr „Bıxp=xp 
+ır 


GOSUB 5888 
IF INKEY(54)=128 THEN GOSUB 4128: 

GOTO 4838 
NEXT 
GOSUB 5848:60T0 5838 
LOCATE 1,1:PEN 3:PRINT"{CTRL X3f{7 5 
PACE}break{2 SPACE}'!'!{CA SPACEITETRL 

‚x%r" :FOR w=1 TO 2288: NEXT:RETURN 


A 1 1 ae 


BORDER 7 

rf1l=98:60S5UB 2538: IF rfl THEN actchr 
=temn:POKE chrnum,actchr:60T0 288 E 
LSE POKE cibyte, & 3E: POKE clbyte+i1,a 
ctchr :POKE xcc „tx: POKE yec,tv:CcALL 
lbuff „picture+tx+48*ty:POKE clbyte, 
& 1A: POKE clbyte+1,8:60T0 4248 


U help Kae 


MODE Z2:PEN 1 
PRINT"{13 SPACE)#HHHEH i 
at i onf2 SPACE HH" 
PRINT"{12 SPACE} 
PRINT:PRINT 
PRINT"character-set :":PRINT"starta 
dress ı &" ;HEX$ (adrchr ) :PRINT"endad 
ress : : HEX$ (adrchr +newchr#15-1): 
LOCATE 25,5: PRINT"number of charact 
ers :"ınewchr:LDOCATE 25,6:PRINT"cha 
rcters free : ",2S6-neuchr 
LOCATE 53,5:PRINT"picture :" 
LOCATE 53,6:PRINT"startadress : &"; 
HEX$ (picture) :LOCATE 53,7:PRINT"end 
adress : &";HEX$ (pPicture+48#25-1 ) 
PRINT: PRINT"{CTRL X}Paint/Zoom: {CTR 
L X}":PRINT"{4 SPACE} () only paint" 
:PRINT"{4 SPACE}T} only zoom" 
PRINT" (CTRL T) character table":PR 
INT"{2 SPACEICTRL 6{2 SPACE}get cha 
racter":PRINT" (CTRL N) get code":P 
RINT"{2 SPACE}ICTRL Z{2 SPACE}zoom": 
PRINT"{2 SPACE}CTRL D{2 SPACE}defin 
e chr.":PRINT"{2 SPACE}ICTRL R{Z 5PA 
CE}redefine chr. "ıPRINT"{2 SPACE}sp 
acef{i3 SPACE}clr. chr." 
WINDOW #1,297,88,11, nn #1,B: PE 
N #1,1:CL5 #1:WINDOW SWAP 8,1 
PRINT"Definition:" 
PRINT"{2 SPACE}IHCTRL 5}+ search chr. 
":PRINT"{3 SPACE}ICTRL C{2 we 
color"sPRINT"{3 SPACE}ICTRL B{2 {4} 
CE}break def. ":PRINT"{3 SPACE}c1ir {5 
SPACE}clear def. ":PRINT"{3 SPACE}E 
nter {3 SPACE}take def.":ıPRINT"{3 SP 
ACE}ICTRL Z{i2 SPACE}zoom chr." 
. SWAP B,1:WINDOW #98,54,890,12, 
2 


PRINT "{CTRL 0316 SPACE}oviy chr." 

PRINT "{CTRL "sCHRS(1)3"CCTRL K} (" 
 CHR$(1)5 "{CTRL J3))2 SPACE}mirror 

»"zPRINT"{CTRL "SCHR$(1)S"CCTRL I} 

("3CHR$ (1) 3" CETRL H3})3 12 SPACE)mir 

ror y"ıPRINT"{shift "sCHR$S(1)"CCTRL 
K}"SCHRS (1) 5 "CTRL II" ICHRSC1) "CO 

TRL H3"5CHR$(1)3"CCTRL 13312 SPACE) 

move chr. 

PRINT "tspace) (7 SPACE}clr. point" 

WINDOW #2,1,8@,20,25 

PRINT" CCTÄL" X>line/circle: {CTRL X}3" 


PRINT:PRINT"{2 SPACE}space{3 SPACE} 
set marks":PRINT"{2 SPACE}ICTRL B{2 
SPACE}break " 

LOCATE 32,1:PRINT "{CTRL X}move/cop 
y/#ill: <CTRL X}"sLOCATE 34,3:PRINT 
"spacefi2 SPACE}set marks" 
PRINT:PRINT:GOSUB 7785:MODE GB: CALL 
prscreen:GOTO 288 


ek dar bare 
cetion His 


col le 


[CB1E] 
C[D4EC]I 
£[C7978] 


[6126] 


CCDF6] 
(7848) 


[33582] 


[B742] 
[2088] 


[8218] 
[C2CF8] 
[5298] 


[864E8] 


[248C] 


[ö4E2] 
[2258] 


[C31C)] 


[55D8] 


PEN 3:LOCATE 1,„1:sPRINT"{CTRL X gar 
bage collection {CTRL X}"::PEN 1 :P 
RINT STRING$ (29,"-") 

WINDOW #1,4.17,4,18:PAPER #1,7:CL5 
#1 


PEN #1,@:PRINT#1:PRINT#1:PRINT#1," 


are you sure":PRINT#1,"{5 SPACE}v/n 


in#=INKEY$: IF in$="y" THEN 7878 ELS 

E IF in$="n" THEN CALL prscreen:GOT 

0 2880 ELSE 6GOTO 7848 

GOSUB 488: WINDOW #1,1,28,3,INTt inew 

chr-1)/28)+4:PAPER #1,8:CL5 #1 

PEN 1:LDCATE 1 ‚INT ( (newchr- 17/28) +4 

:PRINT STRING$ (28,"- 

IF newchr>i1 THEN CALL een 

r ELSE GOTO 713% 

FOR count=newchr-i TO 1 STEP — 
adroi=bladr +count#4+15B: CALL curs 

et ,adroi 

CALL abfall „count 

IF PEEK(cf1)=B THEN CALL curcl,ad 
rol:G60T0 7138 

count=PEEKic#f1l) 

IF count <> neschr-1i1 THEN CALL mo 
chr „ {[newchr -1-count})#15,count#16+ad 
rchr 

CALL chpic,„count 

newschr=newchr-1:1IF newchr>i1 THEN 
CALL prtable,neswchr 
NEXT 
GOSUB 498: CALL prscreen:GOTO 288 


ee disc Ka 


CALL curcel „madr 

GDOSUB 498: LOCATE 1,1:PEN 2:PRINT"{C 

TRL X315 SPACE}disc menufds SPACE}ITE 
TRL X}3"; 

PEN i1:PRINT STRING$ (28,"—-"| 

WINDOW #1,3,17,4,.25:PAPER #1,7:WIND 

OW SWAP 8,1 

ae Fee re 

CLS:PEN 3 

PRINT 

PRINT" load file":PRINT:PRINT" save 
all":PRINT:PRINT" save picture":PR 
INT:PRINT" save table" | 
PRINT:PRINT" load table ap":PRINT:P 

RINT" show picture":PRINT:PRINT" sh 

om table":PRINT:PRINT" cataloa":PRI 

NT3PRINT" menu": PEN 8: PRINT: PRINT"- 

"::PRINT" select item!" 


CALL curset „adro 


 in$=INKEY$ı IF in$="" THEN 7288 

kfl=8:6G0OSUB 1158: IF kfl THEN GOSUB 
1221:G0TD 7288 

IF ASCtin$)=B8 OR ASC(in$)=224 THEN 
7338 


| GS0TD 7288 


IF »c<4 OR »“c>31 OR yc<3 OR veo>28 T 
HEN 7288 

»=(vyc-3) /2+90.5 

IF »<>INT(ix) THEN 7288 

ON » GOTO 74880,7488,75380,7580,7708, 
7800, 7810,7450, 7380 


WINDOW SWAP 8,1:G605UB 498: CALL prsc 
reen:G0TO 2808 


CLS:PEN i:PRINT"{CTRL X}{63 SPACE}1lo 

ad file{3 SPACE}IICTRL X" 

GOSUB 7758: IF a$="" THEN BOBU 

POKE buffer+11,B8:POKE adrchr „newchr 
—-1 

LOAD ""+a$ 

IF PEEKi(buffer+11)=255 THEN 7425 

neuchr=PEEK (adrchr)+1isactchr=1:POKE 
chrnum,actchr:POKE adrchr „B:G0OTO 7 

228 

LOCATE 1,18:PRINT"part of picture": 

PEN 3:PRINT"enter:":PEN B:ıPRINT:PRI 
NT" {CTRL X30o{CTRL X3riginal or":PR 
INT" {CTRL X}n{CTRL X}ew":PRINT:PRI 
NT"{2 SPACE}position" 2 

POKE spx „PEEKibuffer+14):POKE spy,P 
EEK tbuffer+15) 

in$=INKEY$: IF in$="o" THEN 74534 ELS 
E IF in#="n" THEN 7438 ELSE GOTO 74 
31 
adr=picture+PEEK {buffer +12) +48#PEEK 
tbuffer+13):POKE xcc,„PEEK(buffer+12 
)=:POKE ycc, PEEK (buffer+13) 

GOSUB 488 

POKE adrchr „B:CALL lbuff,adr:ıCALL p 

rscreen:GOSUB 779780: WINDOW SWAP G,1: 


EC528] 


[CCP76] 
[C1B&ö2] 


[S5DAA] 


[BFSE] 
[835354] 
£[35D4C] 


CAEE&] 
[SE66] 


[DBAB] 
[D544] 


[C948] 
L7C72] 


[7564] 
[4784] 


[8BF&] 
[F2654] 
[41&C] 
[?D25] 
[CC7&] 
[?B2A] 
[8828] 


[AA14] 
[ABAE]I 


[357C] 
E1DBö] 
[B27A] 
ECCF2] 


[787C] 


[A&Bö] 
[AA2&] 
[LFAZEI 
[4BE4] 


[8A38] 
ELCEFFC]I 
[8532A] 
[BF25] 
CF7C1C)I 
[C7FE)] 
[A508] 


[8DA2] 
[FAS3B] 


[169C] 
[C434] 


[882C] 
[?D8A] 


[3A&2] 
[4E42] 
[D7&58] 


£[C788] 


[BA47E] 
[44AC]I 


[8778] 


L7E4E] 
[2C5E] 








BRAPPy * 
9 NAAR 


7438 


7448 
7442 


7443 


7444 
7445 
7446 
7448 
7458 
7468 


7470 
7480 


7490 
7580 
7518 


7528 
71558 


7548 
7550 


7378 
7588 
7598 
7688 
7618 
7615 


7628 


7670 
7688 


76978 


7788 
7718 


7728 
7731 
7732 
7733 


7754 


7737 


7742 
7743 


7750 


7778 
7788 


7’ 


’818 
7858 


79708 


7918 
7720 


7930 






- [3 * . 


GOTO 7188 

POKE adrchr „B:G605SUB 488: CALL prscre 
en:CALL curset ,adro 
in#=INKEY$: IF in$="" THEN 7448 
kfl=-8:GOSUB 1158: IF kfl THEN GOSUB 
1221:60T0 7448 : 

IF in$="xX" OR ASCtin$)=224 THEN 744 


5 

GOTO 7448 

FOKE xcc,.xc:POÜKE vec,vceCÄALL lbuff, 
picture+sc+4Bd#yc 

CALL prscreen: GOSUB 7798: WINDOW SWA 
P 8,1:60T0 7188 

MODE Z:PEN 1:PAPER B:CAT 

GOSUB 7785:MODE B:CALL prscreen:GOT 
oO 7188 


CLS:PEN 1:PRINT"{CTRL X}1{3 SPACE}’sa 
ve allfi4 SPACE}I{CTRL X" 

GOSUB 7758: IF a$="" THEN 8880 

POKE adrchr „neuchr-i 

SAVE a$,b,adrcol „16+18@@+newchr #16: 
POKE adrchr „B:60T0 7220 


CLS:PEN i:PRINT "{CTRL X} save pict 
ure{2 SPACE}I{CTRL X3" 

PEN 8®:PRINT " {CTRL X}af{CcTRL X}ll 0 
r {CTRL X}Pp{CcTRLl X}art" 
in#=INKEY$: IF in$="" THEN 7558 

IF in$="p" THEN 75978 ELSE IF in$="a 
" THEN 7578 ELSE GOTO 7558 

GOSUB 7750: IF a$="" THEN BBBO 

SAVE a$,b„picture, 1888:G0OTD 7228 
GOSUB 7758: IF a$="" THEN BBGB ELSE 
WINDOW SWAP ®,„1 

rf1l=8:60S5UB 2538: IF rfl THEN 288 EL 
SE adr=picture+tx+40*ty:CALL copy,„a 
dr 


POKE buffer+11,&FF:POKE buffer+12,t 
x»: POKE buffer+i13, ty:POKE buffer+14, 
PEEK (spx ) :FPOKE buffer+15, PEEK {spy) 
le=5+PEEK {spx I) #PEEKispy) 

SAVE a#, 3 buffer+11,le:CALL prscree 
n:GOTO 7 188 


ECLS:PEN 1:PRINT"ICTRL X}i{2 SPACE}sa 
ve table{3 SPACE}ITETRL %3" 

PEN @:PRINT "t2 SPACE}{CTRL X}aiCTR 
L X}l1l or {CTRL X}p{CTRL X}art" 


in#$=INKEY$: IF in$="" THEN 77B8 

IF in$="p" THEN 7732 ELSE IF in$="a 
" THEN 7728 ELSE 6O0TO 77088 

GOSUB 7758: IF a$="" THEN 8888 

POKE adrchr „newchr-i 
SAVE a$,b,„adrchr „newchr#15:POKE adr 
chr „B:G0OTO 7228 

G0OSUB 7758: IF a$="" THEN BBBO ELSE 
WINDOW SWAP @,„1 

GOSUB 480: CALL prscreen: PAPER #1,8ı 
GOSUB 1428:60SUB 1518: IF count=@ TH 
EN 605UB 498: CALL prscreen: ıBG0TD 71 
88 


temp=count: adro=adr 0o1:60SUB 2788B:60 
SUB 1518: IF count=@ THEN GOSUB 490: 
CALL prscreen:GOTO 7188 

IF temp>count THEN GOSUB 7948: GOTOD 
7733 

adr i=sadrchr +temp#1&: adr2=adrchr +cou 

nt#1& 

temp=PEEK (adri-1):POKE adri-i,(tadr2 
-adri)/id#+l 

POKE adri-i1,temp:G0OSUB 498:CALL prs 
creen:GOTO 7188 

CALL &BBO3:PEN 3:PRINT"enter name:" 
:PEN 8: PRINT: INPUT a 

RETURN 

CALL curcl ,adro:FOR w=i1 TO 1BB: NEXT 
:CALL curset „adro: RETURN 

PRINT"{4 SPACE}press any key to ret 

urn " 

in$=INKEY$ı IF in$="" THEN 
RETURN 

GOSUB 480: CALL prscreen: BOSUB 7798: 
GOSUB 490: WINDOW SWAP 8,1:G0T0O 7188 


GOSUB 488: WINDOW SWAP 8B,1:CL5:LOCAT 
E 1,2:605UB 1428: GOSUB 7798: 60SUB 4 
98: CALL prscreen:GOTO 7188 

PEN 3:PRINT:PRINT:PRINT"{3 SPACE}se 
t marks{2 SPACE}":FOR w=1 TO 2808:N 


EXT: RETURN 
ELS:PEN 1:PRINT"{CTRL X}t2 SPACE}1lo 
THEN 8888 


ad file ap {CTRL X}" 
GOSuUB 7758: IF af="" 

adr 1sadrchr +tneuchr #16: temp=PEEK (adr 
1-1) 

LOAD ""+a$,adr 1-1: newchr=newchr +PEE 
Kiadri-1):POKE adri-i,temp 

IF newchr >255 THEN newchr=255 


7799 ELSE 


nn u an 
TE nu E,E,TeEeeT nn 


[CCF@2] 


[8082] 
LE&DC) 


[2732] 


LCF422] 
[8A36] 
CB6448] 
[2982] 
[B73C] 
[73D2) 


LBBACI 
[9A32) 


L77CC 
[551A] 
CABB®] 


c47D2] 
[772A] 


[C818A] 


CBBBE] 
[CARE4] 


[8C36] 
C8B18] 
[7092] 


[S7AE] 
[5244] 
L1B38] 
LE3S5C] 


[5378] 
[BA365] 


C7BEE] 


CBCBA] 
[BSD8) 
[8829 
[B@12) 
[C18A] 
[CEDEI 


[4BAA] 


C1CD8] 


[885E] 
[AABA]I 
(D278] 


[38BA] 
[4EBA] 


L1C3C] 


EF4E6] 
CAEAA] 


[A158] 
[295A] 
EFABE] 


CDES58] 


E[FFBE] 


[F?FF76] 


[2458] 
£C114] 


EAiSE) 


[41&C] 
[Z2AE] 





BBBd WINDOW SWAP B,1:G0T0O 7188 
Faan " 


suia ° 


#####% error meldungen ######* 


Fa20 " 


9a38 PEN 3:LOCATE 1,1 


9040 PEN 3:LDCATE 1,1:PRINT 


925g PEN 3:LOCATE 1,1:PRINT 


PRINT "{CTRL X} ch 
aracter set full {CTRL X}":FOR wi 


TO 
"{CTRL X3t14 
SPACE}illegal ranget3 SPACE}I{CTRL X 
+":FOR w=1 TO 1588:NEXT: RETURN 
"CTRL X}t2 
SPACE}already defined{3 SPACE}IHTCTRL 
“>":FOR w=1 TO 1588: NEXT:RETURN 


1580: NEXT:RETURN 


Fıma ° 


7118 


“##### meldungen ###### 


7128 


9138 PEN 1:LOCATE 1,1:PRINT 


"{CTRL X} ch 
ar. found: {CTRL %X}"3:PEN 3:PRINT ne 
wchr-PEEK(cfl)s:FOR wei TD 15808: NEXT 
: RETURN 


9148 PEN 3:LOCATE 1,1:PRINT "{iCTRL X ch 


ar. not found !! {CTRL X}":FOR wei 
TO 1588: NEXT:RETURN 


1BB0O ' ##.+++ anfan u 
18885 CALL prscreen: 4 
18818 LOCA 5,21:PEN 1:PRINT"press"; :PE 


i1ean ° 


11818 
11028 
118358 
11840 
11858 


N 2:PRINT" enter":60T0 11288 

=##### farbwechsel fuer anfangs 

bild #swu### 

anf=2 

anf=sanf-i:IF anf<2 THEN anf=i1 

an=anf 

FOR i=2 TO ii 
INK i „PEEK(adrcol+an):an=an+t1:lI 

F an>ii THEN an=2 


11848 NEXT 


11078 


Listing 1. 


78 


95 
188 


181 
ı02 
103 
124 
185 
105 


120 
121 
122 
123 
124 


IF INKEY(18)=B THEN RETURN ELSE GO 
TO 11820 


Steuerprogramm für »Background Painter« 


Haut Assembler-Unterroutinen 


HEHE 


DATA 221,11@,0,221,1@02,1,221,94,2,2 
21,86,3,6.16,126,245,1675 

DATA 23@,170,32,3,26,23@,17@,79,241 
‚230,85,32,3,26,230,85, 1872 

’DATA 177,18,35,19,16,232,201,285,10 
3,142,6,8.221,126,8,245,1762 

DATA’ 245, 221.126,0,238,170,203,63,7 
9,221,124,80,230,85,203,39 ,2241 

DATA’ 177.221,119,8,241,230,170,203, 
63,79,241,230.85,203,39,177,2486 
DATA 221.119,@,221,35,164,213,221,2@ 
5,103,142,6,8,221,126,0,1837 

DATA 245,230, 170,2983,.63,221,119,8,2 
41.230,85,203,.39,79,221,126,2475 

DATA 8,230,170,2083,63,177,221,119,8 
‚221,35,16,224,281,285,183,2204 

DATA 142,5,8,221,126,8,245,230,85,2 
03,39.221.119,8,241,230,2132 

DATA 170.203.63,79,.221,126,0,230,85 
.2@3,39,177,221,119,8,221,2157 

DATA 35,16,224,2@1,243,221,110,0,22 
1,182.1,221,33,0,1972,6,1826 

DATA 25,197,221,229,6,5,197,221,229 
„94 ,22,0.213,253.225,17,2154 
DATA 148,132,205, 168, 148,221 ,225,22 
1,35,221,.35,35,193,16,231,17,2259 
DATA 8@,0,221.225,221,25,193,16,216 
„251 ,2@01.19,17.17,17,20,1738 

DATA 15,7,8,8,15,19,17,17,17,16,15, 
22,23,21,15,19,244 

DATA 17,17,17,16,15,29,28,8,15,19,1 
7,17,17,16,15,8,263 

DATA 9,8,15,19,17,17,17,16,15,32,3@ 
‚„31,15,19.17.17,.286 
DATA 17,16, iS, 12: 13,0,15,19,17,17,1 

7,16 15, i14,15,8 
DATA 15,19,17, 17, 17,16.15,18,11,8,1 
5,19, ER i7,17,16,238 

DATA 15,0,36,8,15,19,17,17,17,16,15 
‚2,3,4,15,17,218 

Dara ı 17,17,17,16,15,2,3,2,15,19,17, 
17,17,16,15.0,205' | 

DATA 37,0,15,19,17,17,17,16,15,5,1, 
3,15,19,17,17,230 

DATA 17,16,15,24,25,0,15,35,26,27,3 
4,33,0,0,8,8,267 
TA 8,0,0,8,0,0,0,0,0,0,0,0,64,128 

‚128,192,512 

"DATA 128,128,128,0,128,64,64,192,64 
‚64.64.0.64.128,128.128,1472 


[C724] 


[2056] 


[?7CE] 


[B1E4] 
[67221 
[30923 
[C926] 


[2AA2] 


[6938] 
[E152] 
CAES4] 
C[D298] 
C@B44) 
[C46E] 
CCBDQ] 


[ö2AC]I 
[7374] 


[C7D2] 
[FFAE] 


[6BEB] 


(Schluß) | 


[B432] 
[856A] 


Cac12] 
[35AB&] 
[BB72] 
E7E1B] 
EFB2A] 
[B23C] 
[DEB2] 
[5D7C] 
[2278] 
L783C] 
[42BA] 
[8185] 
[875C] 
LF45E] 
[F87C] 
CEBBö]I 
CD4F8] 
[S8CC]I 


[4058] | 


[BCAA] 
[B18A] 
[7716] 


Listing 2. Basic-Hexlader der Maschinencode-Routinen 











BYE Anh 
a “ “ 


Ar hen 


0, 


125 
125 
127° 
128 
129 
158 
131 
132 
133 
154 
155 
156 
137 
138 
159 
148 
141 
142 
145 
144 
145 


14& 
147 
148 
147 
158 
151 
152 
1535 
154 
155 
155 
157 
158 
157 
168 
181 
162 
153 
164 
155 
1866 
167 
158 
147 
178 
171 
172 
173 
174 
175 


"DATA i28, 128,64,0,128,0,0,0, ‚8,0,128 
‚8,128,128,128,128,1088 

„DATA 128,128,192,0,2,0,8,0,0,8,128, 

0,64,128,128,64, 960 

DATA 8,8,192,8,192,0,0,128,64,64,12 
8,8,128,128,128,128, 1288 

DATA 128,64,64,0,64,64,64,64,64,128 
‚128,0,8,0, „156 ‚204.1172 
DATA 204 0.0,0,0,134, 204,204 
‚0,0,192,84, a 
DATA 8,0,0.D0. 120 ‚192,192,192,80;,0,8, 
2,0,4,8,8.724 
„Data 8,4,0,8, ‚12,0,0,0,8,0,12,0,8,4, 
DATA 90,4,8,0,0,0,8,8,8,0,0,0,0,648,2 
04,204 ,512 

DATA 58,8,0,0,68,204,152,49, 284,204 
‚8,0,204. 54’ ’48,48, 1452 

DATA 48.204.204 ,0.0,134, 204, 100,204 
.156,8,8,4,8,8 „8.1264 

DATA 8,8,8,4,76,140,140,140,140,140 

‚148 .e ‚136, ‚68, ‚se 68.1368 

DATA #8,& 135,0,0,0,0,0,0,0,0,4 

RR 332 

DATA 8,0,8,4,76,140,136,140,136,148 
‚136,76,16,16,16,16,1064 

DATA 16,16,16,16,0,0,8,8,8,8,8,8,16 
‚ieslej1ö, 128, 16,8,0,0 

16,16,16,0,0,0,0,0,0.0.0.0 

0,0,0,96 ; 727 


Data 48, ‚0,0,0,8,0,8,0,49,0,0,0,80,0, 


DATA 16,16,16,16,92,90,0,0,48,0,0,8,1 
6,16,16,16,176 

DATA 1&,16,16,16,0,0,0,0,48,0,0,0,0 
‚0,8,0,1i2 

"DATA 4a, 16,16,16,0,0,0,0,8,8,8,8,12 
„12,12,12,1 

DATA 12, i5. 12, 12,12,12,12,12,12,12, 
12,12,204 ‚204 ‚204.204 ,948 

DATA 204,204, 204,204, 204 ‚204 ‚204 ‚20 
4,204, ‚204 , 204,204 ,192,192.192.192.32 
DATA 192,192,192,192,192,192,192,19 
2,192,192,192,192,68,48,48,68,2575 
DATA ’48,48,68,68, 204,204 ‚204.204, 20 
0,200 ,2@0, 284,204, 204, 204,196. 2708 
DATA 64,64,64, 04,204, 156, ‚136,2 
04,204, 284,204 ,68,48,68,48. 215 

DATA 48,0.0,48,204, >84. 204.204 ,204, 
0,0,48,204,68,69,68, 1592 

DATA 204,0, 2,48, 204 „204 , 204 ‚204 ‚204 
‚2,0,48,0,8,4,12,133& 

DATA 8,8,8,8,4,12,8,8,2,0,0,0,0,0,8 
-. 

DATA 90,0,0,0,0,0,2,0,4,12,8,0,0,64, 
192,208, 488 

DATA 288,192,64,@,192,192,240,24@,2 
40,240,192, 192,0, 128, 192, 224 ,2736 
DATA 224,192,128,8,8,2,8,2,0,0,2,0, 
2,0,0,8,544 

DATA @,48,204,204,0,0,0,49,204,204, 
136,0,16,18,16,16, 1152 

DATA 16,16,16,48,2,80,0,0,2,0,0,0,8, 
2,0,0,96 

DATA 8,0,0,48,0,0,0,02,0,0,0,48,16,1 
6,16,16,120" 
DATA 16,16,16,16,0,8,2,0,2,0,0,48,8 
@,240,175,176,784 
DATA '176,176,176,24@,16@,24@,176,17 
6,176,176,240,240,20,40,0.20,2432 
DATA 20,20,0,20,40,20,20.408.0,8,0,0 
‚243,62,0,58,535 
DATA 98,139,221,126,0,33,147,146,1, 

232,3,237,161,40,6,234. 1024 

DATA 15,139,50,98, 139.251 ,2@1 ,221,1 
108,0,221,1@2,1,221 270, 2,1 1841 

DATA 229,221 ,225,62 98,139,35, 
123,150,197,221,229, 353" 2 

DATA 225,17,0,9,6,8,221,126 vB.253, 1 
»@,0,32, 22.221, 126, 1455 

DATA 1,253,190,8,32,14,253, 55,221,2 

5,16 ‚233,221, 225, 193,120, 2041 

DATA 50 201, 221, 225 ,193,17,1 
6,0, Ds ih. Vobe, 281 ‚8,221,1829 

DATA 11@,8,221,182,1,17,155,142,58, 
114,142,71,197,229,58,113,1738 

DATA 142,79,6,8,237,176,225,1,40,0, 
9,193,16, 238,201 ,205,1768 

DATA’ 1@3,142,253,33.155,142,17,155, 
142,58,117,142,103,58,114,142,1876 
DATA 71,197,221,229,58,116,142,111, 
58,113,142,71,26,0,221,119,1995 
DATA 0, 125.,258,59,40,22,221, 35,19,4 
4,16,240,221 ‚1,48,1542 

DATA 9.321 3 153. 124,254, 24,200,36, 
16,214,201 30 113,142,79,1884 

DATA 6,0,253,9,253, 229,209 ,24,227,2 


21,70,0,253,33,8,8,1787 
DATA 285,238, i59. 5 ,205,222,139,16,2 
51,201, er ‚s@,121, ‚142, 255,22, 2341 
DATA 121,142.184.38 41,41 ,221,33, 
160,192,235, 221,23, ,197! 1976 


[LAFAA] 
(89702) 
E18DA] 
[CDDBE] 
[D848] 
LiFSC] 
[7472] 
[DS2C] 
[8255] 
[8F88] 
[445A] 
[D83C] 
L[1iSEE)] 
[B952] 
[ZF4E] 
LEF&C] 
[EDC4] 
LiCFA] 
[L7F3®] 
£L73DC] 


LE238] 
[79742] 
[25BA] 
[4BE5] 
ESFFA] 
[71648] 
LBSFA] 
[7B8A] 
[3278] 
[1358] 
C44F@] 
EC74C] 
[F584] 
[E81A] 
[LCA7A] 
[7B4C] 
[7218] 
CBB48] 
iFS5S354] 
[2058] 
[98CB] 
[3C72] 
[FS554] 
[LEB78] 
L[ECE4] 
[8FBB] 
[448A] 
[SCE2] 
LE588] 
[743A]1 
LBSYE] 





17& 
177 
178 
1797 
188 
181 
182 
183 
184 
185 
185 
187 


218 
211 
212 
2153 
214 
215 
216 
217 
218 
220 


>78 


DATA 185, 1 193, 74,0,221,8 


6,1,221,78,2,221,7@0,3,191 
Data 33,18, “25 237,176,201 ,221,126 


„0,33,147,.146. > = 197,1589 
DATA 6,48,170,218,34,140,194,35,140 
‚54,0,195,35,140,53,35,1509 
DATA’ 16,248,193,16,234 ‚201 ,221,11@, 

0,221,1@2,1,229,253, 225.221. 2403 
DATA 11@,2,221,1@2,3,229,221,225,19 
5,178,148,221,11@,8,221,182,228@ 
DATA '1,253,33,160,194,195,113,141,2 
05,193,142,253,33,139,142,6,2113 
DATA 8,17.8,8,253,125,@,221,119,8,2 
53,126,8,221,.119,1.1480 

DATA 253,35,221.25,16,238,201,205,1 
@3,142,17,0,8,253,33,123,1973 

DATA 142,6,8,221,1264,0,253,119,16,2 
30,85,253,182,0,221,119,1981 

DATA 8,221,126,1,253,119,24,230,17@ 
‚253,182,8,221,119,1,253,2181 

DATA 35,221,25,16,222,201,205,103,1 
42,253,42,121,142,205,1645,149,2238 
DATA 2@1,17,123,15@,253,41,253,41,2 
53,41,253,41,253,25,17,8,1982 

DATA 8,6,8,253,126.8,221,119,0,253, 
126,8,221,119,1,221,1&9 

DATA 25,253,35,16,238,201,33,147,14 
6,6,25,197,6,40,54.0, 1422 

DATA 35,16,251.193,16,245,201,243,2 
21,33,0,192.33,147,146.6,1978 

DATA 25,197,6.40,197,221 ,229,78,6,0 
‚197,253,225,205,165,140,2184 

DATA 221 ,225,221 ,35.221.35,35,193,1 
6,234,193,16,228,251,.201.243, 2568 
DATA 205.1@3,142,253, 33,8,192, u 
97,221,229,253,229,58.118,22 

DATA 142, 52, 128,142,205,50, 141 „253, 
225,17,128,2,253,25,221 ,225.2199 
DATA 17,40,0,221,25,33,119.142,52,1 
93,16,221,251,201,6,5,1542 

DATA’ 197,253, 229,58,120,142,254,0,2 
5@,1@7,141,254,40,242, 107,141 ,2535 
DATA 58,119,142,254,0,250,107,141,2 
54,25,242,107,141,221,126,8,2187 
DATA 205,91,142,205,113,141 , 253,225 
‚17,16,0,253,25,221,35,33,197 

DATA 120,142,52,193,16,202,201,33,1 
23,150,195,87.141,6,2,197,18 

DATA 253,229,229'253,229.6,8,253,22 
9,126,230,170,79,203,63,177.2737 
DATA 197,205,192,141,193,35, 253,225 
‚17,90,08,253,25,15,232,253,2317 
DATA 225,17,4,0,253,25,225,6,8,253, 
229,126, 230,95,79,203, 1968 

„data 3°; 177,197,2@5,192,141,193,35, 

7,88,0,253,25,15,2048 

Data TU 253,225,17,8,0,253,25,193, 
18,180 „zei,ı7, 0,8,6,1634 

DATA 8,253,119.0,253,119,1,253,119, 
2,253, 115, 3,253,25,16,1794 

DATA 24@,201,253,33,123,142,253,126 
‚09,253,119,16,253,126,7,253,2398" 
DATA 119,23,253,126,8,253,119,24,25 
3,126,15,253,119,31,205,103, 

DATA’ 142,5,6,221 ,124,1,230.85,253,1 
82,1,253, 113° 17,221 ,126,1989 

DATA 7,230,170,253,182,9,253,119,25 
‚221,35,253,35,16,228,33,2071 

DATA 139,142,253,33,160,194,195,113 
„141,58,121,142,205,91,142,253,2382 
DATA 33,160,194,195,113,141,221,11@ 
‚8,221,102,1,229,253,225,58,2256 
DATA 115,142,79.126,254.8,40,2,14,0 
‚121,2@5,44,188,195,192,1717 

DATA 141,58,115,142 „205,47, 188, ‚52,1 
15,142,201,58,115,142, 205,4 

DATA 198,230.85,58,115,14 2.381. 111, 
38,0, 17, 123,15@,41,41, 1035 

DATA 25.281 ,221,11@ 8,221,182,1, 
229, 921 1255:20 2@1,8,0,0,1 

DATA 8,0,2,0,0,0,0,193,9,134,32,148 
„40,168,143, 135 1823 

DATA 4,68,16,99,28,84,193,8,2,0,0,0 
‚2,0,0,0,445 | 
„DATA 8,2,0,0,0,0,0,0,0,0,0,0,0,0,0, 
DATA ®,24,20,6,26,1,2,8,18,12,14,1& 
‚18,22,15,9,203 
MEMORY 34611: adr=34612 
FOR 1=1@8 TO 218: sum=® 
FOR i=8 TO 15:READ a:POKE adr ,„aradr= 
adr+l: sum=sum+taıNEXT 
READ a:IF a“> sum THEN PRINT"error i 
n zeiler"l 
NEXT 
te TO 15:READ a:POKE 37587+i ,a: 
N 
FOR i=38523 TO 38523+16:POKE i ‚@rNEX 


SAVE "bp.bin"„b,34612,3927 





LZAACI 
[C834] 
[8B28] 
[FBDCI 
CAEBS] 
CAAEE] 
L[AD72] 
LE2CC] 
[1788] 
[LASC&] 
[4DA2] 
L[EAD®] 
[SBEA] 
[2F&6] 
EFCF2] 
[CB14] 
[2E78] 
[F752] 
[SDF8] 
[8C?7&] 
[FADAI 
7784] 
[6544] 
[BS4E] 
[4144] 
[?S5AA] 
£84D4] 
[7C64] 
[&42DE] 
[3DC4] 
CDs82] 
EDEF&] 
[5688] 
C78EE] 
[E32] 
[CSCDE] 
[8176] 
£CC778] 
[C71B6] 
[4358] 
[SBBE] 
[34FE] 
[FS@A] 
[7528] 
[82Bö] 
[L1BE2] 
[E7D®]I 


C[DsFC]I 
[75FB] 


[D35CB] 


CA45CI 
[9186] 


Listing 2. Basic-Hexlader der Maschinencode-Routinen 
(Schluß) 




















651 
6352 
633 


635 


636 DATA 


6537 
u538 
637 
640 
641 
642 


ii dd anfangsgrafik ##H#H# 


MEMORY 34511:L0AD"bp.bin" „34612 
adr=37507 
FOR 1=4880 TO 872 

sum 

FOR i=B TD 14 

READ a:POKE adr „ar adr=adr +1: sum=su 


m+ta 
NEXT:READ a:ıIF a@>sum THEN PRINT"e 
rror in Zeile:"l1:END 
NEXT 
SAVE"bp.bin",b,34512,549783: END 
DATA 8,26,7,12,18,17,18,13,6,12,14,1 
7,16, 22, 2. 196 
DATA" 3, ü, 0, 0,0,02,08,0,0,08,0,8,0,0,8,3 


DATA 8,0,2,20,2,2,8,0,2,2,0,2,8,0,0,0 
DATA 8,0,2,0,20,8,0,2,0,2,0,0,8,0,28,0 
DATA 0,80,0,0,0,0,2,0,02,2,8,0,0,2,0,0 
DATA 0,0,0,0,0,0,0,0,2,0,2,8,0,0,2,8 
DATA 0,0,0,0,2,2,0,0,2,0,2,0,0,0,0,0 
DATA 0,0,8,0,2,0,0,0,2,0,0,90,8,0,2,8 
DATA 0,0,0,0,0,0,0,0,2,0,0,0,8,0,0,8 
DATA 9,90,0,2,0,0,20,8,2,0,0,8,0,0,0,8 
DATA 0,0,0,0,0,2:2,0,0,0,0,2,0,20,0,8 
DATA 0,0,0,0,0,0,0,0,0,8,0,0,8,8,122 


123,123,123,123,123,1253,1253,1253 
323.173.1232,.128.123,123,123, 1845 
DATA 123,123, 125,123,123, 123, 123,123 
„123,123,123,123,1253,123, 123,1845 
ns 122,8, 0,80, a, O, o, 2,08,124,0,80,0,8 


Balz a ‚2,2,0,0,0,2,0,0,2,2,0,0,0,0,8 


DATA 28,8, 0.,0,0,8, D,„ 0,0,0, 125,08,0,8,8 
„125 
DATA 0,0,0,0,124,0,1,4,0,8,9,15,16,1 
8,23,21 
DATA 29,30,32,35,36,23,4,0,46,45,47, 
54.56,59,544 
wir 54,55,71,69,0,125,0,0,0,0,80,2,0 
„@,124,518 
DATA 9,3,6,22, 21,10,14,20,0,24,28,27 
‚33,48,39,2 
DATA 24,28, 7.83, 44,50,49,55,57,68,6 
3,66, 73,70,8,7 
DATA 125,28,2,0,0,0,0,0,0,124,0,2,5,7 
11,274 
DATA 12,13,17,19,31,25,26,34,37,38,3 
1,25,26,41,42,417 
DATA 51.52,53,58,61,62,67,68,72,8,12 
5,08,0,8,0,669 


DATA 8,0,8,0,124,0,0,0,0,2,2,2,8,0,0 
124 
DATA 2,0,0,0,0,0,0,0,0,2,2,0,0,0,2,0 


DATA 8,0,0,0,8,125,80,0,0,80,0,0,8,8,1 
24,249 

DATA 8,0,0,0,0,0,139,140,0,142,143,1 
44 ,143,145,0,996 

DATA 146,147,147,145,148,149,150,2,0 
‚2,2,0,0,8, 2, ‚1832 

DATA 125.0,0.0,0,0,0,0,0,124,0,0,0,0 


0,249 

DATA 8,0,141,0,8,0,8,0,0,0,0,0,2,0,0 
„141 

DATA 8,0,8,8,157,172,166,167,80,0,125 
‚8,8.8.8.787 

DATA 8,0,0,80,124,80,8,0,8,0,0,1@9,188 
‚107,0,448 | 

DATA 8,74,0,0,0,8,85,84,0,0,0,2,0,15 

8,159,580 

DATA 156,171, 1,163,164,8,125,8,0,0,0,0 
‚a, ® „8,124,903 

2.0,0.0,0,0,110,8,186,111,97,10 

2,91,93,74,784 

DATA 75,76,83,81,80,0,8,90,168,162,1& 

9,168,178,165,8,1389 


DATA 125, 2,0,0,0,0,0,0,0,124,0,0,0,8 
0,249 
DATA 8,112,1905,80,190,98,95,96,92,0,0 


‚77,82,78,79,1814 
DATA 87,8,0,8,161,8,154,155,8,0,125, 
2,8,0,0,& 682 
0,0,0,0,124,0,0,2,0,0,8,02,8,184 
‚103,331 


DATA 99,101,0,116,117,0,0,0,98,864,88 
‚89,8,8,0,786 


Listing 3. Der Basic-Lader erzeugt das Titelbild 





aeg} 
[885C] 
ee: 
[E584] 
[&B42] 
[35B2] 
LEFBA] 
L71FA] 
[3880] 
[BEA] 
[AB16] 
L1EBCI 
LFBBE] 
[CAC1B] 
[AF#12] 
[5214] 
L1iF1&] 
[79018] 
[5D1A] 
[CHA] 
[6AAB] 
CEB48] 
[2D48] 

[8382] 
[5514] 
[C1Bö] 
L7FFEI 

CDSC&] 
[CASE] 
L7B?C] 
[6226] 
CB7B8] 
[FC56] 
C1iCD8] 
[78B2] 
[CAE18] 
L1298] 
CDAC4] 
[6A26] 
[&78A] 
L1AAB] 
[A132] 


[1438] 
[A716] 
CABE2] 
[8CB80] 
[85B6] 
EFiFA] 
[B482] 
[F?BB] 
[5148] 
[88D8] 





DATA 8,153,152,8,8,125,0,0,0,0,0,0,8 
‚@,124,554 

DATA 28,0,0,0,0,0,0,0,113,0,0,8,80,114 
‚115,342 

baTa 0,0, 0,178,179,180,183,185,186,1 
89,0 151, 1 ‚a,1a5l 

DATA 5 2.0,0,0,0,2,124,0,0,0,8 


‚2,249 
DATA EN 
187,198,8,90,173,136 


91,.181,518 

DATA 182,184,188, 

‚Oö, 125,08,0,0,0, 1355 

DATA 8,0,08,08,124,8,133,135,158,80,80,8 
‚8,0,8, 530 

DATA 2,8,131,119,121,1580,02,0,175,80,8 
‚8,8 ‚2,8, 677° 


. DATA 134,135,175,174,0,125,8,8,8,8,8 


‚B,0,8,124,867 

DATA @,133,133,133,137,127,127,127,1 

27 ,127,127,127,128,133,133,1819 

DATA 129,127,127,177,127,127,127,127 
‚127,132,133,133,133,133,0,1859 

DATA 125,0,0,0,0,0,0,0,0,124,0,0,8,0 
„0,249 

DATA 0,0,0,0,8,0,0,0,80,2,8,0,0,8,0,0 


DATA 8,0,2,0,28,0,0,0,0,2,125,808,0,8,8 
„125 


DATA 0,0,0,0,122,126,126,126,126,126 
„126,126.126,126,126, 1382 

DATA 126.126.126.126,126,126,126,126 
‚126,126,126,126,126,126, 126, 1898 
DATA 126, 1264.126,126,126,122,0,8,0,8 
‚Bd, 2,0 0,0,752 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,8 


DATA 0,2,0,8,0,2,0,0,0,0,0,0,2,2,0,0 
DATA 8,9,0,8,0,0,20,8,8,0,20,8,0,2,8,8 
DATA 8,0,0,0,0,20,0,8,2,0,0,0,2,0,0,8 
DATA 9,0,0,90,0,2,0,8,0,0,2,0,0,0,8,8 
DATA 0,0,0,80,0,2,0,0,2,0,2,0,0,0,0,0 
DATA 0,0,0,2,0,02,2,0,2,0,2,0,8,0,28,8 
DATA 8,9,0,0,2,0,2,0,8,0,8,191,2,0,8 
DATA 90,90,0,90,0,2,0,0,0,0,0,0,8,64,64 


132,132,132,132,132,192,152,152 

‚„152,152,152,152,152,132,132,218® 

DATA 132,132,132,64,54,8,152, 152,152 
152,152,152,152,192,132,1912 

bATA' 132.132,132,132,132,132,132,152 

„152,152,152.152,152,152,152,2148 

DATA 128.224. 180,180, 190,180, 180,188 

‚„8,8,128.128,232,232,232,2384 

DATA 232.18@,180,180,180,180,180,224 
‚128,232.232.232,232,128,128,2848 

DATA 0,8. 180, 180, 18@,192,192,18@,180 

‚188,232.128.128,0,8,1952 

DATA 128.128,232,8,0,0,0,2,0,0,8,64, 

129,129,129,939 

DATA 129,129,129,64,0,0,64,64,133,13 

3,133,133,0,192,142,1445 

DATA 142,142,142,142,142,0,128,298,2 

00,152,152,152,152,0,8,1846 

DATA 8,8,128,128,128, 128,152, 152,152 
‚152,152,152,152,152,224,195 

DATA 224.224,224,224,224,224,224,135 
„135,194,194,194,194,194,128,2936 

DATA 192.128.0,0.0,0,0,0,144,144,64, 

64,64,64.,64,928 

DATA 8,180,188,180,189,180,188,198,1 

92,.128,128,128,128,128,128,2220 

DATA 1298,0,64,64,64,64,64,0,0,8,80,8, 

20.0,0,448 

DATA 0,0,0,64,64,64,64,64,64,64,64,0 

‚2,8,8,512 

DATA 2.0,0,0,0,0,0,64,64,64,64,64,64 
‚129,129,642 

DATA 169, 169,169,169,169,192,135,135 

„135,135,135,194,128,169,169,2372 

DATA 169,169,169,129,129,64,128,194, 

135,135,135,135,135,192,0,2018 

DATA 129,202,202,142,142,142,192,8,0 

‚2,8,128.128,128.128,1662 

DATA 192,142,142,142,2@2,2@2,128,8,1 

28,128,128,128,0,0,8,1662 

DATA @.149,169,149,159,169,169,169,1 

69,128.128,128,128.128,128,2128 

DATA 128,128,135,135,135,135,135,135 

‚135,135,142,142,142,142,142,204& 

DATA 142,142.142.8,80,0,0,0,0,0,0,64, 

64,64 ,64 ,682 

4,64,144,144,928° 

DATA 152.152,152,152,152,64,64,64,64 








EFF32] 
[B44E] 
(B824] 
EFD?83 
[4138] 
[B51E] 
[As38] 
(5686] 
L[7BFB] 
[83DA] 
[7DEC]I 
[4196] 
[2351C]) 
[S1BE] 
[D15A] 
[655B4] 
[L7EE4] 
[5814] 
[2516] 
[B218B] 
CAF1A] 
[241C] 
LAIIE) 
[BE28] 
[1BCE] 
[27E2] 
C[BB78] 
L72FB] 
LFFSA]I 
[7004] 
[27AC]I 
[SB7&] 
[2088] 
[8128] 
[B2BE] 
[7318] 
CDFE&] 
£15974] 
CSDEB] 
[C316] 
[BS8BE] 
[7168] 
[7422] 
[5DC2] 
[A254] 
[E666] 
[B458] 
[41974] 
CAA36] 
[8138] 


re: 
















674 


696 
697 
j 698 
Br 699 
| oo 
zwi 
782 
03 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
©: 714 
715 
716 
717 
718 
719 
728 


722 
Ei rs 
= | 724 
7 
726 
e 727 
En 728 
| 729 
|: 7 
ei 731 


7 737 
738 
739 
Ei 70 
| 741 
742 


„64,64,64,64,152,152,1576 
DATA 152,152,152,152,152,152,224 ,224 
‚224,224 ,224,192,128,0,169,2521 
DATA 129,129,64,54,64,0,0,135,135,13 
5,135,135,135,133,64,1457 
DATA 128,128,128,128,128,128,128,0,8 
‚2,08,0,129,194, 1941412 
0,128,180,224,2 


DATA 135,0,0,0,0,0,0 

24,180,180,190,1431 

DATA 180,180,232,128,8,192,169,169,1 

69,169,0,128,192,224,224 „2356 

DATA 180,180, 180@,0,0,64,129,169,169, 
169,169,8,192,194,135,193@ 

DATA 135,135,135,192,0,8,128,128,128 
‚128,128,0,64,64,64,1429 

DATA 64,64,64, @,0,152,152,152,152,15 

2,144,144,54,8,0,1304 

DATA 8,64,64,64,54,64,64,132,132,142 
‚142,142,142,142,64,1422 

DATA 44,54,64,64,64,64,64,142,142,14 

2,142,142,142,142,142,1584 

DATA 44,64,64,64,64,8,0,0,142,142,14 

2,142,142,132,132,1294 

DATA 544,192,152,152,152,152,152,152, 
152,192,180.188,180,180,190,2412 

DATA 188,192,0,128,232,169,169,169,1 

69,129,0,0,0,128,128, 1793 

DATA 128,128,128,144,144,200,152,152 
152,152,192,180,224,192,180,2448 

DATA 180, 18@,180,192,169,169,169,169 
us: 169.232,128,128,128,128,2490 

DATA’ 128,128,128.8,0,64,0,0,8,128,23 

2,169,169,128,0,1274 

DATA 0,0,8,0,128, 128 ‚200,200,128,128 


128, 192,144,144,0,152@ 
180" 180,180,64,64,64, 


DATA 8,8,8,192, 
64,0,0,0,0,9 

DATA 142,142,142,142,132,132,64,8,15 
2,152,152,152, 152,152, 192, 2808 

DATA 128,224,224,224,224,128,128,2,8 
‚64,64,64,54,64,64,1664 

DATA 64,64,142,142,142,142,142,142,1 
42,142,152,152,152, 152,152, 2024 

DATA 152,152,152,224,224,224 224 „224 
‚224 ,224,224.128, 192 152° 152,2872 
DATA 152,152,152,152,@0,0,128,128,224 
‚224,224,224,0,8,0,176® 


DATA 0,64,64.64 ‚54 ‚@,64,132,132,142, 
142, 142, 142,0, fh, 

DATA 8,8 ‚2.8, D, a B.0, 64,148,148,148 
‚148,148, 8 


DATA’ 128, 138, 232,232,232,232,232,0,8 
‚@,64,64,64,64,64,1736 

DATA 232,232,232,232,232,232,232,232 
‚64,64,64,64,64,24,64,2304 

DATA 44,0.0,0,0.0,0,0,0,148,148,148, 
148,148, 148,952 

DATA 148, 148,0,0,0,0,0,0,0,0,148,148 
‚148,148,64,95 

DATA 64,8,0,232,169, 169.169,169,169, 
129,64,192,133,135,135, 

DATA 135,135,135,192, 1.2. 142,142, 142 
‚202,202,128,8,128,128,128, 2081 

DATA 128,0,0,0,0,0,192,192,142,142,1 
42,142,142,8,0,1222 

DATA 8,128,128,128,128,128,142,142,1 
42,142,142,142,142,142,128,1904 

DATA 128,128,129,128,128,128,128,0,6 
4,64,64,64,64,64,64,1344 

DATA 192,152,152,152,152,152,152,152 
„64,64,64,64,64,64,64,1704 

DATA 64,152,152,152,152,152,152,152, 
152,64,64,64,64,64,64,1664 

DATA 64,8,152,152,152,152,152,152,15 
2,192,@0,128,128,128,128,1832 

DATA 224,224,224,0,54,64,64,64,64,64 
‚64,180,180,180,180,1840 

DATA 180,180,180,148,192,192, 252.169 
‚169,169,169,169,148,192,192,268 

DATA 128,128,128,128,8,159,189, 189, 1 
29,129,64,64,8,135,135,1675 

DATA 135,135,135,135,135,192,128,128 
‚128,128,128,128,128,0,135,1898 

DATA 135,135,135,135,135,135,135,128 
‚128,128,128,128,128,128,128,1969 
DATA 192,135,135,135,135,135,135,135 
‚0,128,128,128,128,128,128,1905 
DATA 128,0,0,0,64,54,64,64,64,64,132 
‚132,142,142,142,12@2 

DATA 142,142,64,54,64,64,64,64,64,64 
„142,142.142,142,142,150& 

DATA BERECHNEN ET See 
0,142,142,142,142,1314 

DATA 142,132,132,44,152, 152,152 
152,152,152,192,180,188,180 3: 
DATA 180 ‚224,224, 126, 0,0,0,0, x 128,1 
28,128,232,0,8,1372 

DATA 2,8,8,0,0,0,232,232,232,232,232 
‚232,232,232,0,1956 


[D&Bö] 
[65D4] 
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C7DZE] 
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[2034] 
[2FBB] 
[Z2AAA] 
[(&78C) 
[CAB88] 
[B8865E)] 
[S541E] 
EFF3®] 
EASCE] 
LEBAC]I 
L7897A] 
[CABB] 
[A258] 
CDE32] 
[5B56] 
[BCDC) 
[(4AB8] 
[7202] 
[B19&] 
[AZBA] 
[F7FD2] 
[DECA] 
[735A] 
[E48A] 
[&7BE]I 
[48A8] 
[FB38] 
[CEBE] 
[4578] 
E7FBA]I 
[FSDA] 
[1AF4] 
E1ADB] 
[B797A] 
[243A] 
EFF2A] 
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761 
762 
763 
764 
765 
766 
767 


78 DA 


7697 
778 
771 
772 


774 
775 
776 
777 
778 
779 
788 
’81 
782 
783 
784 
785 
786 
787 
788 
7897 
798 
791 
792 


DATA 0,0,0,0,0,0,0,192,152,152,152,1 
52,152.152.152.1258 

DATA 0,128,224.224,180,180,180,180,1 
28,128,128,128,0,0.0,1908 

DATA 8,8,2,0,2,0,0.0,0,152,152,152,1 
52,152,152,912 


‚ DATA 152, re ee ar ha ed 


‚188,180,18,138,76,204,48,2228 

DATA 80,20,54,84,180,32,8,0,0,0,0,67 

‚2,8,0,547 

DATA 8,8,02,0,0,10,138,12,204,16,80,2 

2,80,8, et 

Data © 0,0,0,0,0,0,0,0,0,0,0,48,4,168, 

DaiA © j ‚2,2,08,8,0,69,18,142,68,0,0,0, 
329 

DATA” 67,5,0,0,8,138,4,0,0,138,8,68,8 

‚8,136,564 | 

DaIA 121.04,20,08,32,0,0,0,0,8,0.0,8 

DATA 2,0,0,0,0,2,2,0,10,2,0,0,0,0,0, 


Dara 0,0,0,0,0,0,0,0,48,174,0,0,0,0, 
44 

DATA 8,69,0,0,0,80,32,0,0,0,0,0,124, 
DATA 45,5,0,8,130,2,168,40,160,32,8, 
2,0,0,0.482 

DATA 0,8,0, 9,9,0,0,80,16,204,12,207, 
18,168.40,7 

DaTa 2.0, 5 . 8,152,0,0,02,0,0,0,0,0,0 
BATA 0,0,120,14,02,0,0,0,40,84,0,0,0, 


248 
DATA 0,5,67,5,138,8,0,0,8,0,0,0,0,0, 
8,215 


DATA 68,9,0,0,1,124,160,32,80,8,138, 
DATA 6 er % 0,0,0,0,0,8,0,0,124,0,0,69, 
4, 197" 


DATA 0,0,8,2,130,10,0,9,0,0,0,2,0,0, 
DATA 0,0,0,8,112,0,0,0,0,0,0,0,2,188 
‚80,382 | 

DATA 16,8, ‚2,0,0,0,0,0,0,134,8,138,1@ 
DATA 0,0,8,0,8,0,0,0,0,0,0,0,2,0,0,0 


DATA 8,0,20,80,16,68,4,65,2,168,8,0, 
0,0,0,423 
2,2,0,0,69,0,0,0,0,0,0,98,10,138 


DATA 0,40,80,16,0,0,0,0,45,0,0,0,13& 

‚76,138,551 

bATÄ 10,0,0,0,0,80,32,0,0,0,135,2,40 
2 

DATA 0,8,2,0,0,0,0,0,8,0,0,0,0,0,0,0 


DATA 138,5,65,139,5,130,2,0,0,0,32,3 
2,8,8,08,548 
DATA 0,8, Q, 0,08,80,0,0,0,0,0,8, 0,8, 12 


4, 

DATA 2,0,0, 2, 0,0,8, 2,0, 2,08,08,8,4, 2,8 
DATA 0,0,84,20,00,16,76,2,0,0,0.0,0, 
DATA 0,0,0,80,0,8,02,0,02,8,02,0,80,0,0,0 


DATA 158,0,2,02,2,08,08,02,2,08,0,0,80,0,2 
= 108 ‚2,0,0,0,0,0,0,0,0,0,0,0,0, 


E | h 
DATA 80,32,138,10,130,2,168,0,8,80,16 
0,20,84,1,0, 
DATA 0,8,0,0,0,0,0,130,18,138,74,148 
ash 
Ba 2,0,0,0,2,0,8,10,138,4,68,16,0, 
DATA, 2, 0,0,0,20,1,0,0,0,0,68,176,8,8 


Baia 2,0,152,0, ‚2,8,0,0,0,0,0,140,40, 
DATA 0,8,0,8,0,135,2,0,0,0,2,0,142,0 


DATA 2,0,08,0,02,08,0,0,0,08,08,0,0,08,0,0 


DATA 169,0,808,32,134,8,138,10,130,48 
‚2,0,0,0,0,743 

DATA 8,8,0,130,10,138,8,0,0,0,0,0,0, 
0,0,2 

DATA 0,0,0,2,168,40,80,164,0,0,0,0,0, 
0,0,306 

DATA 0,1364,4,0,0,0,80,0,0,0,0,0,136, 
32,90,388 

DATA 8,80,8,8,8,17,51,34,51,51,17,8,8 
‚85,119,425 

DATA 119,17, 34,51, 31; „ir 17@,187,187, 


51,51,51,51,34,3 
Data 31,31 „ai '3] ‘32. 0. 0,8,17,17,17,5 
1,34,8, ‘6.3 
DATA 0, 2’ 34,34,51,34,5,0,8,17,17, 
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[2A48] 
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[F818] 
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[EF58] 
[159722] 
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[6FA4] 
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[8BDA] 
[35528] 
[7B28] 
[873C] 
[A124] 
C[D@4A] 
[7378] 
[?BEö] 
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795 
7976 
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17,51,17,311 

DATA -10,0,34,34,34,51,17,8,8,0,0,81, 

81 ,243,243,828 

DATA 243, 245, 81, 243,243,81,81,81,Bi, 
162,81,0,8,8 1637 

DATA 243,243, as, ‚85,255,85,51,34,243 
‚243,243.162,243,243,162,2778 

DATA 162,162.162,81,0,0,162,162,243, 

243,243,243,170,255,170,2458 

DATA 51,17,243,243,243,162,0,0,8,34, 

243,243,.243,63,127,1912 

DATA 255, 255,170, 255,127,63,63,191,2 

55,85,255,255,191,63,63,2546 

DATA 43,0,.0,63,63,63,63,63,63,8,0,63 
63,63,63,693 

DATA 42,42,42,42,42,42,42,42,63,63,& 
= 6% 5%.43.63.777 

DATA 43,63,63,63,63,63,63,63,63,21,2 
1,21,21,21,21,693 

DATA 21,21, 65, 63,63,63,0,0,63,63,63, 
63,63,63,0,67 

DATA 0,63,63,0,0,21,21,63,63,63,63,2 
1,42,42,63,588 

DATA 43,63,63,63,81,81,243,243,243,2 
43,243,243,243,243,243, 2601 

DATA 243,243,243,243,243,243,243,243 
‚243,243.243,.243,243,162,162,3483 


; DATA 243,243, 243, 243,243 ‚243,0,0, 0,8 


‚Q,162, 243 ‚243,8, 2186 
DATA Bo. 2,0,0,0,0,0, ü,„ 0,08,08.,.0,0,0,8,8 


DATA 0,0,8,0,0,81,243,243,8,81,81,24 
3,243,243,243,1781 

DATA 243,243,243,243,243,243,243,243 
‚243 ,243.243,243,243,243,243,3645 


ı DATA 243, 243,243, 243, 243,243,2453,243 


‚243,243,0,0,0,0,0,2430 

DATA 81,81,243,0,0,0,81,243,243,243, 

243,0,81,243,243, 2025 

DATA 243,243.243,243,81,243,243,243, 

243,243 ,243,243,178,178,170,3264 

DATA 170,170,255,119,255,0,0,2,0,0,8 
„170,243,243.243,1868 

DATA 243,243,243,243,243,243,0,162,1 

62,243,243,243,243,243,8,2997 


DATA a, a,1&2, 243, 243, 243,243,8,8,8,8 
‚8,162,162, 243, 1781 

DATA 128, 128, 128, 128,172,128,128,172 
‚2,8,8, 0,0, 128, 128, 1488 


DATA 0.0,0.0,0,0,128,128,64,0,0,0,0, 
0,128,448 
DATA 128,128,0,0,128,64,0,0,0,@,128, 


128,128,0,8,832 

DATA 0,0,8,192,128,128,128,192,128,1 
28,128.128,.64,64,64,1472 

DATA 128,0,0,0,0,0,54,128,128,192,12 
8,64,8,0.128,968 

DATA 44,54,128,64,128,64,64,192,64,& 
4,64,64,0,0,0,1824 

DATA 128,8,0,0,0,128,0,0,64,64,64,64 
‚64.64,0.648 

DATA 8,8,192,64,0,0,@0,128,128,128,12 
8,128,128,128,64,1216 

DATA 44,64,64,64,64,64,64,128,64,64, 
54 ,64,64,64.64, 1024 

DATA 8,0.0,8,0,0,0,0,128,64,80,64,64, 
64,64,44 

DATA 54,64,0,8,0,0,8,0,2,0,02,0,64,12 
8.128,44 

DATA 129,128,64, 2:0, 128,0,0,0,0,128, 
128,128,128,192,115 

DATA 128,1298,128 128, 2,0,0,128,64,64 
„64,64,51,51,51,184 

DATA 51,51,51,51,51, "aa 34 ,34,34,34,5 
1,51,51,51,51,68 

DATA 51,51,51,51,51,51,8,80,0,0,0,0,0 


30% 

Baia’ 2,0,0,0,0,0,8,17,17,17,17,17,17 

ATi 

DATA 8,0,0,0,0,0,0,0,51,51,51,51,51, 

51,17,323 

DATA 17,8,0,0,0,34,34,34,34,0,8,0,8, 

8,0,153 

DATA 8,0,243,243,243,243,162,81,243, 

243,243,243,162,162,162,2673 

DATA 0,243,243,0,02,0,0,0,0,243,243,8 
‚28,0,8,972 

DATA 0,243,243,243,0,0,0,81,81,243,2 


43.243,81 ,91,243, 2025 

DATA 1&2,0,0,01,91,243,243,162,0,243 
243 ,243,122.0,81,1944 

DATA 243.243,243,243,162,0,162,128,1 

62,81,8,0,0,8,243,191@ 


DATA 245, i62,0,0, 0,0,0,162,243,0,8,8 
20,0,8,8 

Data’ılz. 2. 2,0,0,8,8,0,162,0,8,81,81 
81,243,81@ 

DATA 243, 243, 243,243,243,243,243,243 
‚243,0,243,81,0,162,243,2916 


[1B44] 
[8816] 
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[7158] 
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L1i9B2] 
[FE1®] 
[14F8] 
[CB74] 
[DP58] 
[882E] 
[7724] 
[BAS4] 
[C17A8] 
[BFAC]I 
[CAD1A] 
[ADF?B] 
[535B8] 
[3SE74] 
LCE8öCB] 
[7D38] 
[CAACE] 
[2716] 
[BADA]I 
[46B4] 
[54F2] 
[1A78] 
[C542] 
C12DC] 
CABDEB]I 
CDD4C]I 
[DFE4] 
[2874] 
[A514] 
[7404] 
[C97&6] 


[BAFE]I 


LASSC]I 
LSBSC] 
L1B58] 
[CFDE] 
[CA?12] 
[3BAB] 
[FB48] 
[5CDs] 
[564A] 
L1AS38] 
LE73SE] 
(73B2] 
[4844] 





DATA 243,243,0,162,243,243,81,8,245, 
243,0,0,0, 3j18s 

DATA 81. 243. ‚243,0, 0,08,0,0,8,162,243, 
243, 243; 226; a 


DATA 0,0,0 a.206. 226, 128,0,0,0,0,0,0 
‚2,0,588 
DATA Oo, @,81,243,162, 0,0,0,0,0,243,24 


3,0,8,8,972 
DATA 8,8,0,0,142,81,8,0,0,0,0,0,0,0, 
119. 303 


DATA 119,119,119,119,119,17,17,243,1 
70,255,255,255,255,255,51,2348 
DATA 243,243, 243,243,81,81,247,85,24 
3,247,255,255,255,170,170,3061 
DATA 8,243, 255,128, 128, 178,17@,170,8 
„243, 245, 2,0,0,0,17 
DATA 0,0,0,243,243, 243, 243,243,81,0, 
243,243,162,162,243,2349 
DATA 243,243,245,0,0,8,8,0,0,162,0,8 
‚2,8,8,891 
‚@,8,243,17,17,17,17,17,51,51, 
119,51,51,51,782 | 
DATA 51,51,51,51,255, 255, 255,255 ,243 
Hi 243,243, 243,251 ,255,2945 
DATA’ 255, 255,243,243,243,243,255,247 
„243,243,243,243,243,243,255,3697 
DATA 255,247,243,243,243,243,243,17, 
17,17,17,17,17,17,1853 
Data ı 119,119,119,119,119,119,119,119 
17,17,21,21,63,63,63,1217 
DATA 63,55,127,127,63,63,63,63,63,17 
‚17,55 ae, 55,941 
DATA 17,85,17@0,119,119,119,119,119,2 
55,255,0, e. ‚8,234,191,1882 
DATA 191,191,191 „@,64,149, 63,63,123, 
183,183,0,128,185,63,1698 
DATA 63.63,123,63,0,64,149,63,63,183 
‚183,183,63,63,63,1389 
DATA 43,53,63,192,0,183,183,123,63,1 
06,128,8,0,63,63,1293 
DATA 63,63,149,64,8,0,183,183,183,63 
‚106,128,0,0,8,1185 
DATA 8,128, 1064,63,243,183,183,0,8,64 
‚149,63,243,123,123,1571 
DATA’ 123,63,243,63,63, 149,64,0,243,1 
23,243,63,63,1@06,128,173 
DATA 0,8,192,63,83,63, 125, 123,123,0, 
128,106,63,63,243,1353 
DATA 63,63,0,8, 0,192,63, 183,183,183, 
0,64,149,63,63,1269 
DATA 243, 183,183,183,183,183,63,63,6 
3, 192,0,243,85, 243,63, 2151 
DATA 195,128,0,0,123,123,123,63,192, 
128,0,0,243,63,243,1535 
DATA Z3, 149, 64,8, ‚2,0,192,63,63,63,24 


DATA” «3,8 ial 106, 196,106,106,243,123 
DATA” REN, 122° 212 A arazıı 


7,17,17,17,17,17,688 | 
DATA 255, 119, ir 119,119,119,119,119 
‚2,8,28,0,82,8,0,1888 





E771E] 
[C7972] 
[A774] 
LFABE]I 
[2418] 
CBABC]I 
[BSAC]I 
E&BCA] 
[7488] 
[2544] 
[YBEB] 
[4836] 
[1iBDE] 
LFZAE]I 
[1B8A] 
[5178] 
CBF?7C]I 
L7BCB] 
[88975] 
LiBFC)] 
[4C2C] 
[C328] 
[COAB] 
[4845] 
C9FS52] 
C1F18) 
[C7A2] 
[DB22] 
[&1CB] 
[5198] 
[8812] 


Listing 3. Der Basic-Lader erzeugt das Titelbild (Schluß) 


158 
1708 


MEMORY &7FFF | 

FOR ad=&B008 TO %&8850 
READ 
NEXT 
SAVE 


isPOKE ad,i 

"orscreen.bin" ,„b,%&88B0,%51 

843 ,&dd,&5e, LOB ,&dd,&56,&01,&dd 
Lhe, 02 ‚udd,&66, 03 ‚&dd,&21, aD 
&cH, ‚&B6, &19,&C5 206 ,&28, &c5,&dd 
DATA ke5,&4e,&05,&00,&c5,&fd,&ei,&d5 
DATA &#4,%29 ,&4d4,%&29,u#4,829,%44,&29 
DATA %d,&19,%11,&080,%&908,8905,&88,&fd 
DATA &7e,&00,%&dd,&77,800,%fd,%7e,&B8 
DATA. &dd,&77,&01,&dd,&19,%fd,&23,%&1@ 
DATA 
DATA 
DATA 


Kkee,&di,&dd,%el,&dd,&23 , dd, %23 
&73,&c01,218,&ca,&c1,&10,4c4,%fb 
&uc7 


Listing 4. Laderoutine für erzeugte Grafiken 





[AAB2] 
[E448] 
[SCBE] 
[DB54] 
CB958] 
[8EDsö] 


C[DFBE] 
[L1A&8B] 


19 


















Wenn Sie beim ersten Sonnenstrahl aus den 
Federn wollen, müssen Sie sich einen Wecker 
stellen. Wann die Sonne aufgeht, sagt Ihnen Ihr 
Computer auf die Minute genau, und das für jeden 
beliebigen Ort der Erde. Auf Wunsch erhalten Sie 
eine gedruckte Übersicht. 


ieses Programm wendet sich an alle, die es interes- 
siert, wann an ihrem Heimatort - oder vielleicht auch 
in Japan - die Sonne oder der Mond auf- oder unter- 
geht. Zusätzlich gibt es Auskunft über die Höhe dieser bei- 
den Gestirne über und unter dem Horizont während eines be- 
stimmten Tages an jedem Ort der Erde. 

Außer bei den Eingabedaten für den Ort und das Datum 
sind bei allen Eingaben nur Kennziffern oder Buchstaben 
ohne Drücken der Enter-Taste notwendig. 

' Nach dem Start erscheint zunächst ein Titelbild und nach 
Betätigung irgendeiner Taste das Hauptmenü. Zu allen Menü- 
punkten sind hier auch jeweils Erläuterungen auf den Bild- 
schirm zu rufen, was dem Bedienungskomfort dient. 

Bei der Anwahl eines Menüpunktes, dessen Programmteil 
Berechnungen ausführt, verzweigt der Computer in ein 
Untermenü. Dort können Sie dann die vorgegebenen Daten 
für den Bezugsort ändern. Das geschieht durch die Eingabe 
des Ortes, seiner geografischen Breite und Länge, sowie der 
Bezugslänge für die Zeitzone. Hier geben Sie auch das jewei- 
lige Datum ein. Dazu stehen zwei verschiedene Möglichkei- 
ten zur Auswahl. Entweder wird nach Monat und Jahr oder 
aber nach dem Datum gefragt: 

Monat und Jahr: MM.JJ (zum Beispiel »10.86« oder »2.86«, 





. nicht aber »2.1986« oder »Feb.86«) 


Datum: TT.MM.JJ (zum Beispiel »13.02.86«, nicht aber 


13.2.86 oder 13.02.1986) 


Wurde im Hauptmenü die Kennziffer 1 (Tabelle der Son- 
nen- und Monddaten) oder 3 (Tagesgang der Sonnen- und 
Mondhöhe) gewählt, so werden während der Berechnung 
der Sonnen- und Monddaten für jede halbe Stunde des 
betreffenden Tages die wichtigsten Daten für Sonne und 
Mond in tabellarischer Form ausgegeben: 

- Kulmination (Höchststand des Gestirns) 
- Beginn der Dämmerung (die Sonne steht noch 18 Grad 
unter dem Horizont) 


‚- Ende der Dämmerung (die Sonne steht 18 Grad unter dem 


Horizont) 
Auf- und Untergang (Höhe des Gestirns O Grad) 

- Mondphase (0 % = Neumond, 50 % = Halbmond, zuneh- 
mend, 100 % = Vollmond, -50 % = Halbmond, abneh- 
mend) 

- Horizontalparallaxe (Winkel, unter dem der Erdradius vom 
Mond aus gesehen wird) 

- Durchmesser des Mondes im Winkelmaß, stündliche 
Bewegung in Länge und Breite am Himmel 
Nach dem Drücken irgendeiner Taste erscheint dann je 

nach gewählter Kennziffer (1 oder 3) die Tabelle oder der 

Tagesgang. 

Die Tabelle in Bild 1 zeigt den Ausschnitt eines typischen 

Beispiels. 
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Jülich 13.02.86 

Sonne Mond 
Zeit Rekt. Dekl. Höhe Rekt. Dekl. Höhe 
0 21 45 13.52 -51.2 048 3.28 16.6 
1 21 45 13.50 50.5 050 3.52 -23.9 
2 21 45 13.48 -49.9 052 3.76 -29.8 







und so weiter 
Sonne: Kulmination............. 
Mond: ......u.uu0.... 








Bild 1. Tabelle der Sonnen- und Monddaten 


- »Rekt.« steht für Rektaszension = Länge am Himmel (in 
Stunden und Minuten) 

- »Dekl.« ist die Abkürzung für Deklination = Breite am Him- 
mel (in Grad. Bogenminuten) 

- Höhe = geometrische Höhe in Grad über (+) oder unter (-) 
dem Horizont 

Nach erneuter Betätigung einer Taste fragt der Computer 
nach einem neuen Datum. Verneint man diese Frage (einfach 
»N« eingeben), können Sie sich mit »J« den Tagesgang von 
Sonne und Mond ausgeben lassen. 

Die Grafik verdeutlicht den Tagesgang der betreffenden 
Gestirne. Der Verlauf der Höhe über oder unter dem Horizont 
wird gegen die Tageszeit aufgetragen. Die Abszisse der Gra- 
fik steht also für die Tageszeit, die Zahlen für die genaue Uhr- 
zeit. An der Ordinate sind die Höhen der Gestirne Sonne und 
Mond abzulesen. Die Zahlen sind in Grad angegeben. Ober- 
halb der Grafik erscheinen der gewählte Ort und das jeweilige 
Datum sowie Sonnenaufgang, Kulmination und Sonnenun- 
tergang. Unterhalb der Grafik sind Mondphase sowie Auf- 
und Untergang aufgeführt. 

Wählt man im Hauptmenü die Kennziffer 5 oder 7 (Ausgabe 
einer Monatstabelle am Bildschirm oder am Drucker), erhält 
man beispielsweise das Resultat aus Bild 2. 

(Hans-Werner Pätz/ja) 


Breite = 51.0 Grad 
Dämm. Aufg. 


Jülich 
Datum 


Länge = -6.3 Grad 
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REM HH 
## 


20 REM COPYRIGHT 
3@ REM FEBRUAR 1986 
49 REM HANS-WERNER PAETZ 
S5@ REM 5170 JUELICH 
ED REM IHHRHERHHEHEHHRIHSHHIHESSHHSIETHHHSE HIESS 
m 
70 DEG 
30 INK @,8 
92 INK 1,26 
10@ INK 2,18 
11D INK 3,9 
170 DIM SÜHDEHE t48) „MONDHOEHE (48) „MOPHAS 
E (48) 
130 DIM SOREKT (49) „SODEKL (48) „MOREKT (48) 
‚MODDEKL (48) | 
140 DS0=9. 9856473 ı REM TAEGLICHE BEWEGU 
NG DER SONNE 
1SB DMO=13.1763965 : REM TAEGL. BEWEGUNG 
DES MONDES 
160 DMP=@.1114041 : REM TAEGL. BEWEGUNG 
DES MONDPERISAEUMS 
170 DMk=9.0529529 : REM TAEGL. BEWEGUNG 
DES MONDKNOTENS | | 
190 SOL@=335.73 : REM BEZUGSLAENGE DER 
SONNE 
190 SOPQ-282.55 : REM BEZUGSPERIHEL DE 
R SONN 
200 MOLB=67.88 ı REM BEZUGSLAENGE DES 
MONDES 
21@ MOPQ=233.75 ı REM BEZUGSPERIHEL DE 
5 MONDES 
220 MOKO=204.92 REM BEZUGSLAENGE DES 
AUFSTEIGENDEN KNOTEN | 
238 JULB=2443202.5: REM BEZUGS-JUL.DATUM 
240 EKL =23.44 : REM EKLIPTIK 
35D DEF FNM(A,B}=B#(A/B-INT (A/B) ) 
S&0 DEF FNASINCKI=ATN(X/SORLI-X*X)) 
370 DEF FNACOS(X)=ATN(SOR (1-X#X)/X) 
28@ SYMBOL AFTER 237 
290 SYMBOL 237,14,15,7,231,119,57,21,14 
San SYMBOL 238,112,24@,224,231,238,156,2 
48,48 
318 SYMBOL 239,14,14,14,15,30,68,120,240 
320 SYMBOL 240,49,240,240,240,120,60,38, 
15 
33@ BORDER 12,18 
348 M 
25Q@ LOCATE 8,6: PRINT "PROGRAMM ZUR BERE 
CHNUNG DER" | 
36@ LOCATE 1@,7:PRINT "SONNEN- UND MONDH 
DEHE" 
370 PRINT STRING$(48,"_") | 
392 LOCATE 15,11: PRINT "COPYRIGHT" 
799 LOCATE 18,12:PRINT "HANS-WERNER PAET 
re 
400 LOCATE 12,13:PRINT "517@ JUELICH" 
418 LDCATE 17,14:PRINT "1986" 
428 PRINT STRING#(48," 
470 LOCATE 18,10: PRINT CHRE (237) 5 CHR$ (23 
8) 
440 LOCATE 18,19:PRINT CHR$ (239) 5; CHR$ (24 
2) 
458 LOCATE 4,23: FRINT "Fortfahren im Pro 
gramm durch x 
468 LOCATE 4,24:PRINT "DRUECKEN einer be 
liebigen Taste" 
470 CALL &BBi® 
482 BORDER 12 
298 MODE 1 
=0B LOCATE 8@,2:PRINT "WELCHER PROGRAMMTE 
IL" 
510 LOCATE 2,S:PRINT "ALLGEMEINE ERLAEUT 
ERUNGEN zuann. 
528 LOCATE 2,7:PRINT "TABELLE DER SONNEN 
- UND MONDDATEN .. 1" 
53@ LOCATE 2,8: PRINT "ERKLAERUNGEN ZUR T 
BBEOLE ur scnene 
Sa0 LOCATE 2,18: PRINT "TAGESGANG DER SON 
NEN- UND MONDHDEHE {2 SFACEIZ" 
55@ LOCATE 2,11:PRINT "ERKLAERUNGEN ZUM 
TAGESGANG nu... 
568 LOCATE 2,13:PRINT MONATSTABELLE FUE 
R DIE SONNE»... . 5“ 
570 LOCATE 2,14:PRINT "ERKLAERUNGEN ZUR 
MONATSTABELLE zu... 6" 
580 LOCATE 2,15:PRINT "AUSGABE DER TABEL 
LE AM DRÜCKERs anuu. 7" 
599 LOCATE 2,17: PRINT PEN EEE 
620 LOCATE 3,20: PRINT "KENNZIFFER -———> " 
610 EINS=INKEY$:IF EIN$="" THEN #1@ ELSE 
PRINT EINS 
628 KENN=YAL (EINS) 
630 IF KENN=@ THEN 2780 
&4@ IF KENN=7 THEN 2740 





[259C) 
C1P3E] 
[C44C] 
[456C) 
[13F4] 


LAEAs] 
[D6AEI 
[46201 
C9BAD] 
LIFF4] 
[2598] 
[2FD6] 
[ösPC1 
CASBCI 
13527 
[15BB] 


EBF32),. 


CCB3EI 
CF794] 
LBESCI 
CBD&LEI 
[CEBO] 
£L3A7C] 
[1744] 
[827C] 
[DAaCI 
{D994] 
C87BC] 
[C82A] 
C8D82) 
LACSE] 
CD922 
[3918] 
[CBSAI 
LF@EEI 
[3078] 
C1BCC] 
CF4D6] 
LC&8FAI 
[SF36] 
[D312] 
L1EC4] 
LA318] 
[1312] 
[4446] 
CBBFC] 
[7414] 
L3Z@FAI 
[C366] 
[8916] 
C9D42] 
LE9IDEI 
[28F4] 
C4BACI 
LEBBE] 
[27EE] 
[8ADAI 
C16B2] 
L1AB8] 
[75581 
[24309 
[BEAA] 


LF762] 
CFEBE] 





650 
= T=]%) 
&78 
[=]=7%] 
678 


RB 
718 


‘28 


7358 
740 


750 
768 


B30 
840 


718 


715 


720 


738 


IF KENN=1 DR KENN=3 DR KENN=5 DR KEN 


N=7 THEN 488 

ON KENN/Z GOTD 3859,3169,29708 

GOTO 480 

BET OE ISERN ERSTEN FREI RRIE N 


LAENGE=-5.3 


MODE i: LOCATE 14,5:FRINT "EINGABEDAT 

EN" 

PRINT STRINGF(&SQ,"_") 

LOCATE Z,11:PRINT. "ORT:{5 SPACE}";OR 

TE 

LGCATE 2,135:FRINT "BREITE: {2 SPACE" 
s:PRINT USING "##.#"; BREITE; :PRINT " 
GRAD" 

LOCATE 2,14:PRINT "LAENGE: "3:PRINT 

USING "Hl. #"; LAENGE; :PRINT " GRAD" 

LOCATE 2,16:FRINT "BEZUGSLAENGE FUER 


DIE ZEITZONE: {2 SPACE}";BEZLAE " GR 
AD":LOCATE 2,17: FRINT “.c4 SPACE} (z.B 
. fuer MEZ: -15{12 SPACE}) " 

LOCATE 2,197:PRINT "- oestl.{3 SPACE} 
+ westi. vom Nullmeridian" 
LOCATE 2,25:FRINT SPACE$ (38) :LDCATE 
2,25:FRINT "AEN DE R N{3 SPACE (J 
/N)" 

EIN$=INKEY#$ : IF EINf="" THEN 7708 

IF UPPER${EIN$)I<>"J" THEN 848 
LOCATE 1,25:FPRINT SPACE$# 138) :LOCATE 
2, 25: INPUT "WELCHER ORT ";DORT$ 
LOCATE 1,25:PRINT SPACE$ (38): LOCATE 
2.25: INPUT "GEOGR.BREITE ";BREITE 
LOCATE 1,25:PRINT SPACE# (38) :LOCATE 
2,25: INPUT "LAENGE ";LÄAENGE 

LOCATE 2,25:PRINT SPACE# (39) : LOCATE 
2,25: INPUT "BEZUGSLAENGE FUER DIE ZE 
ITZONE ";BEZLAE 

GOTO 478 

IF KENN=S5 OR KENN=-7 THEN LOCATE 1,25 
:PRINT SPACEF (387 :LOCATE 2,25: INPUT 
"WELCHER MONAT UND JAHR “» DATUM$: DAT 
uUMt="Bi. "+DATUMF 

IF KENN=S OR KENN=7 THEN MODE 2:WIND 
OW #1,1,808,1,3:WINDOW #2,1,88,4,23:G6 
OTO 888 

LOCATE 1,25:FRINT SPACE# (38) :LDCATE 
2,25: INPUT "WELCHES DATUM (z.B.88.07 
84)"; DATUM 

IF LEN (DATUM£)<S THEN 840 

JAHR=VAL (RIGHT$(DATUME, 23) 

MONTH = VAL (MID$:{DATUMF,„4,2)) 

IF KENN=7 THEN FRINT #9: PRINT #8: PRI 
NT #B, ENG Susan BREITEN, = "s;P 
RINT #8,ULSING "##.#";BREITE:;: PRINT # 
8," GRAD{S SPACE}LAENGE = "3:PRINT # 
{2} ‚USING "#4. #"s;sLAENGE;:PRINT #8," 6 
RAD' 

IF KENN=7 THEN FRINT #8: FRINT #8,"{2 
SPACE}DATUM{4 SPACE}DAEMM. AUFG. «2 
SFACE}UNTERG. DAEMM. «7 SPACEIKULMINA 

TION{4 SPACEIMONDFHASE" 

IF KENN=7 THEN FRINT #8, “71 
1 SPACE}h{i2 SPACEIMTS SPPCEIKT2 SPAC 
Erm{5 SPACE}h{2 SFACE?Im{F SPACE}hi2 

SPACE}m{d SPACE}h{Z SPACE}m{4 SPACE} 
Grad{id& SPACE}in %" 

IF KENN=5 THEN LOCATE #1,2,1:FRINT # 
1,ORTF:LOCATE #1,30,1: PRINT #1,"BREI 
TE = "::PRINT #1, USING "4#.#"; BREITE 
:: PRINT #1,” SRAD:B SPACE}LAENGE  M 
; : PRINT #i, "USING "ah. #"s LAENGE; :PFRI 
NT #1, GRAD" 

IF KENN=5 THEN PRINT #1:PRINT #1, 
SPACEIDATUMI4 SPACE}DAEMM. AUFG. {2 
SPACE}UNTERG. DAEMM. {7 SFACE}KULMINA 

TION{F SPACE}MONDPHASE" 

DAY = VAL ILEFT$CDATUMF,2)) 

IF MONTH>Z THEN 9772 
TAGZAHL=355#JÄAHR+DAY+S1#(MONTH-1)+IN 
Tt(JAHR-1})74) : GOTOD 9789 
TAGZAHL=34S#JÄHR+DAY+31#(MONTH-1)-IN 
T(8.4*MONTH+2.33+INT (JAHR/4) 
JULDATBOUT=TAGZAHL +24150197.5 
JULDATBOZ=JULDATBUT- (BEZLAE-LAENGE) / 
15/24 


[18 {? 


1008 STERNZEITEOUT=FNM (155. 72835+1JULDATD 
UT-JUL®)*DS0,360) 

10810 JULDELTA=JULDATROZ-JULQ+®.S : REM J 
UL.DATUM UM 12 UHR 02 

1020 SONNENLAENGEM=FNM (SOL@-+DSO*JULDELTA 

‚360Q) 

10830 IF SONNENLAENGEM<® THEN SONNENLAENG 
EM=SONNENLAENGEM+36@ 

1248 SONNENLAENGE=FNM (SONNENLAENBEM+1.92 


*51IN (SONNENLAENGEM-SOPR} „368) 


Listing. Sonne, Mond und Sterne 





EFFIC] 


E[C465C] 


L7F&4] 
[D495] 


LEAIiE] 
[DS14] 


L783C] 


CB4EB] 
L4BAE] 


C1i4F8] 
CBF4E] 
[4688] 
CDEAC]I 
[1784] 
[FA4E]I 
CADFE] 
[1388] 


Li7EA] 
[EA66] 


[C47DE] 


[DC88] 


[6564] 


[C5AB] 


CDESE] 


[9738] 


[CES3r74] 


[SFB2] 
[BAD2] 
L24E4] 
LEAFA]I 


[8ABB] 
[38342 


L5öDA] 
CFAF2] 
L738C] 
[CAZ1E] 
[SEFA] 
[BEA&] 


81 





1532 
1548 
1558 
1560 
1579 
1575 
1580 
1598 


1502 


1518 


1828 


A DAEM=FNACOS(COSDAEM) : 


IF SONNENLAENGE{B THEN SDNNENLAENGE 
=SONNZNLAENGE+368 


| XDEKL=SIN (EKL}#SIN (SONNENLAENGE) 


IF XDEKL=-9 THEN XDEKL=-B. BOBBA2EB1 
IF XDEKL=1 THEN XDEkKL=1-9,. BOBB208B1 


SODEKL=FNASIN (XDEKL) 
AREKT=COS (50NNENLAENBE) /COS (SODEKL) 


IF XKREKT=B THEN XREKT=B. PRBOBDRRB1 
IF XREKT=1 THEN XREKT=1-9. 280309021 


SOREKT=FNACOS (XREKT) 
IF SOREKT “ 8 THEN SOREKT=SOREKT+18 
1) 


IF SODEKL<B THEN SDREKT=358-SOREKT 


| MOLM=FNM tMOLBO+DMO&JULDELTA,S&4B) 


MOAM=FNM {MOLM—- (MDFO+DMP#JULDELTA) „3 
u) 

MOK=FNM (MOKB-DMK#JULDELTA-B. 15#5SIN{ 
SONNENLAENGEM-SOFPO) „36B) 
EVEK=FNM {1.3%#5IN {2*MOLM-2#50NNENLAE 
NGE-MOAM) „S6Q) 

ANEGO=FNM (— 28. 19*SIN (SONNENLAENGEM-SO 
P®) „3&B} 

MOAIX=MDAM+EVEK+ANER-B. 37%SIN (SONNEN 
LAENGEM-SOFB) 
MOLK=MOLM+EVEK+ANED +4. 27#5IN (MDAK)I 
Denen un &*5IN (2*MOLM-2*50NNENLA 


MOLAENGE= FNM(MOL2-®. 12#SIN (2=MOL2-2 
*MOK) „360) 

MOBREITE=5.15%*SIN (MOL2-MOK) +@. 15*SI 
N (MUL2-2*SONNENLAENGE +MOK ) 
PHASE=MOLAENGE-SONNENLAENGE 

IF PHASE<@ THEN PHASE=PHASE+36B 


| IF FHASE{=168 THEN MOPHASE=PHASE/1. 


8 ELSE MOFHASE=(1BB-FHASE?} 71.8 
-@.754+2.055%*C0OS (MOAK} : REM HORI 
ZONTALPARALLAXE Da 
D=128# (9. 297*H-9.81) : REM MOND 
DURCHMESSER IN BOGENMINUTEN 
NMOL=&.55+2.065*C05 (MDAK) =: REM STDL 
„BEWEG.IN MONDLAENGE 
NMOB=9.85*C05S (MQOLZ-MOK) : REM STDL 


. BEWEG. IN MONDLAENGE 
REM BERECHNUNG VON KULMINATION, AUF 
- UND UNTERGANG DER SONNE 
SOLA=-SONNENLAENGEM-SONNENLAENGE : 5 
ÖL=5SONNENLAENGE 
IF SOLA>188 THEN 5S0OLA=-SOLA-358 
ZEITGLEICH= (SOLA+ (SOL-SOREKT)I I /15#& 
B:REM ZEITGLEICHUNG IN MINUTEN 
KULMINATION=12-ZEITGLEICH/AB+ (LAENG 
E-BEZLAE) /15 
%=-TÄAN(SODEKL)I=TAN BREITE} 
HATABO=FWACOSCX} =: IF HATABO{B 
HATABO=HATABO+1BD 
HATABO=HSTABO/1S 
KULHDEHE=FB-BREITE+SODEKL 
IF EREITE<B THEN KULCHDEHE=1809-490-B 
REITE+SODEKL) 
AUFGANG=KULMINATION-HATABO 
UNTERGANG=SKULMINATION+HATABO 
SOKUL_=INT (KULMINATION) + (KULMINATION 
-INT CKULMINATIONI J*B.& 


THEN 


B SOAUF=INT (AUFGÄANG)I + {AUFGANG-INT (AUF 


BGANSI)=D.5 

SDUNTER=INT (UNTERGANG} + (UNTERGANG-I 

NT {UNTERGANG} )#B.6 

COSDAEM= {-2. 2079712-SIN(BREITEI#SIN( 

SODEKL} }/ (COS (BREITE).#CDOS (SDDEKL> ) 

IF DAEM<B TH 

EN DAEM=-DAEM+18BD 

DAEM=DAEM/15 

DAEMAUF=KULMINATIDON-DAEM 

DAEMUNTER=KULMINATTITON+DAEM 

AUFDAEM=INT (DAEMAUF) + (DAEMAUF-INT {D 

AEMAUF)I)*DB.& 

UNTDAEM=INT (DAEMUNTER) + (DAEMUNTER-I 

NT tDAEMUNTER}) #B.& 

IF KENN=5 THEN 2530 

IF KENN=7 THEN 26548 

MODE 2 

LOCATE 1,25:PRINT SPACE#t1B);" Bi 

t t e{3 SPACE)warten 39(es wird 

noch gerechnet}" 

LOCATE 15,3:PRINT "SONNEN- UND MOND 

DATEN FUER ":ORT$;" AM ";DATUMF 

LDOCATE 5,6:PRINT "S{i2 SPACEI0DTZ SPA 

CEIN{2 SPACE?N{2 SPACEIE" 

LOCATE 5,8:FRINT "KULMINATIDN: ";:P 

RINT USING "##. ##" ; SDKUL5; : PRINT " u 

HR IN ";:PRINT USING “4, #" > KULHDEH 
s:PRINT " GRAD HUEHE" 

LOCATE 5,12:FRINT "AUFGANG: "5:PRIN 

T USING "##. ##" ; SDAUF; =: PRINT u UHR { 

21 SPACE}IUNTERGÄNG: ";:PRINT USING 
"44. ##":SOUNTER; :FRINT " UHR” 

LOCATE 5,10: PRINT "Anfang der Daenn 





[3BDE] 
EFFZA] 
CBFSE] 


ECL1E] 
[C8QE2] 


[LOrTBE) 
[SSACI 


E1iC&C] 
tE126] 


[CED72] 
[BSCC] 
E?4E&] 
[BB42] 
L7E2&] 
[CESE] 
ESB5E] 


EFC18] 
C4C6E] 


[4856] 
[8460] 
CSDBCI 
[5212] 
[8198] 
[D71C) 
L7ABEI 
[661A] 
EFD461 
[D3982 
C7FiEI 


[BSED4] 
L18DC] 


[3054] 


[D15A] 
[BD?7A] 


LOF9CI 
[1224] 
[L6E6CI 
C8D25] 
C7D8A1 
[CBIECI 
[BBEAI 
CAIEDI 
LFA722 
[59281 
[3D26] 
[24CC] 
[BE4CI 
[L78AEI 
CD1A2] 
[DF@&] 
[12E2] 
[&8EC] 
C88C8] 
[D1361 
[5804] 


CEF18] 


CAiCS] 


[4482] 





1640 
1550 


155BD 


1478 


2940 


2858 
2040 


zor70 
20888 
2278 
2188 
2118 
2128 


2158 


erung: "::PRINT USING "##.##"; AUFDA 
EM; : PRINT " uhr{7 SPACE}Ende der Da 
emmerung: ";:PRINT USING "##.##"; UN 
TDAEM; : FRINT " Uhr" 
LOCATE 5,15:PRINT "M{i2 SPACE}0{2 SP 
ACE}IN{2 SFPACE}ID" 

"MONDPHASE: ";:PR 


en S,17:FPRINT 
ING "#HHH.#"; MDPHASE; PRINT . 


INT 

Er 

LOCATE 5,21:PRINT "HORIZONT.PARALL. 
:{2 SPACE}";:PRINT USING "##.##";H; 
:FRINT " GRAD{4 SPACE}DURCHMESSER: £ 
7 SPACE}";:PRINT USING "##.#";D; :PR 
INT " MINUTEN“ 

LOCATE 5,22:PRINT "STDL.BEW.IN ar 
GE: ";:PRINT USING "##.##";NMOL; 

NT " GRAD{4 SPACEISTDL.. BEW. IN EReır 
E:"z:PRINT USING "##. a NMOBs ıPRIN 
T" GRAD" 

FOR I=8 TO 46 

ZEIT = 1/2 

UZEIT = ZEIT - (LAENGE-BEZLAE)/1S 
STERNZEITOZ=FNM (STERNZEITBUT+UIZEIT* 
15*#1.8082737971+B.09027379897*LAENGE#15 
>68) 


SOL=SONNENLAENGE+ (ZEIT-12) 9.941257 
SODEKL I}=FNASIN{SINIEKLI#SIN(SOL)) 


SOREKT t1)=FNACOS (COS (SOLL) /COS (SODEK 
LI) 

IF SOREKT(II<B THEN SOREKT (I)=SOREK 
T(I)+1SD | | 

IF SODEKL(II<B THEN SOREKT (1)=340-5 
OREKT (I) 

TZEIT = STERNZEITOZ-SOREKT (I) 

IF TZEIT < ® THEN TZEI1=TZEIT +368 
SINH=SIN(BREITE)#SIN (SODEKL (I) )+C0S 
(BREITE) COS (SODEKL{1))*COS(TZEIT) 
SOHDEHE (1) =FNASIN (SINH) 
MOL=MOLAENGE+ZEIT-12) #NMOL 
MOB=MOBREITE+(ZEIT-12) «NMOB 
SINDEKL=SIN (MOB} #COS (EKL_}) +CDOS (MOB) * 
SIN(EKL}#*SIN (MOL) 
MODEKL(I)=FNASIN(SINDEKL) 
REKT1=C0S (MOB) #COS (MOL) 

REKT2=COS (MOB) «CDS (EKL)*SIN(MOL)-SI 
N (MOB) #SIN(EKL} 


| MOREIETCII=ATN (REKTZ/REKT1} 


IF REKTI >=B AND REKT2?>=B THEN 1728 


IF REKT1 >=8 AND REKTZ <8 THEN MORE 
KT=MOREKT+35Bß : GOTD 1728 

MOREKT (I) =MOREKT {I}+180 

IF MOREKT(I}fB THEN MOREKT (I)=MOREK 
TtI}+3&62 

IF MOREKT (I})“B THEN MOREKT (TI)=MOREK 
T{I}+I6ß 
TZEITM=STERNZEITOZ-MOREKT (I) 
SINHM=SIN (BREITE) #SIN (MODEKL(I})+CO 
S(BREITE?*#COS (MODEKL (I}) *COS(TZEITM 


) 

MONDHDEHE (I) =FNASIN (SINHM) 

IJ=I-i 

IF I=23 THEN 2858 

IF MONDHDEHE (1) /MONDHDEHE {IJ} >= 0 

THEN 2858 

DELTAHGEHE=ABS (MONDHODEHE { LI} +ABS CM 
ONDHDEHE {T) ) 

DELTAZEIT =ABS (MONDHDEHE (1J}}*#8.5/D 
ELTAHDEHE 

ZEIT=IJ/Z+DELTAZEIT 

UHR =INT(ZEITI+B.&*(ZEIT-INT(ZEIT?) 


IF MONDHOEHE (14) >MONDHOEHE (1) THEN 
LOCATE 32,19: PRINT "UNTERGANG: ";ıP 
RINT USING "##. ##" UHR; : PRINT " UHR 
"+ MOUNTER=UHR:GOTO 2058 


LOCATE 5,19: PRINT "AUFGANG=: ";:PRIN 
T USING "Hk. HH" sUHRZ:PRINT " ÜUHR":M 
DAUF=UHR 

NEXT 

LOCATE 1,25:PRINT SPACE$(1@) 5; "Fortf 


ahren im "Programm durch Druecken ir 
gendeiner Taste" 

ALL &BB18 

IF KENN=3 THEN 2388 

IF KENN=5 THEN 2558 

IF KENN=7 THEN 2448 

MODE 2 

LOCATE 1,1:PRINT ORT£;:LOCATE 78,1: 
FRINT DATUM 

LOCATE 17,2:PRINT "#3 SFPACEISO NN 
Ei2& SPACE)M OO N D" 


Listing. Sonne, Mond und Sterne 
(Fortsetzung) 


EABEC) 
[21456] 


[78D4] 


ESAAE] 


[811A] 
[SDF&] 
[ABAS] 
E5122] 


LE4CA] 
E322C) 
[S8FC] 
CEF1ö6] 
[7AFCI 
[3B7&] 
[7B18] 
LES351&] 


[D7BE] 


LBAF6I 
C4AAA] 
[3B34] 
E4ADC] 


[BA7O] 
[B9976] 


[5055] 


[551A] 
[D58&] 


L7E74] 
[98778] 
[c422}3 


£CD4D4] 
CABDSI 
[CACEI 
C1418] 
LC&B3A] 
[39583 


[7&8C] 
[5642] 


[BD85] 


[AFFE] 


[D194] 
[DD4C]I 


[(51D4] 
[C478] 
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ie Ih C ter d Welt. D 
öffnen Sie Ihrem Computer das Tor zur ganzen Welt. Der 


| Mit einem Akustikkoppler € 
| HITRANS 300 C stach im Akustikkoppler-Test der Ausgabe 3/86 durch die besten Übertra- 
| gungseigenschaften hervor. Sie erhalten ihn bei uns als Fertiggerät, lediglich eine Block- 
| batterie muß eingesetzt und das Gehäuse zugeschraubt werden. Sie können den Koppler 
| 














auch über ein 12-Volt-Netzteil, das in jedem Elektronikgeschäft preisgünstig erhältlich ist, 
betreiben. Die Bauanleitung für ein RS 232-Interface finden Sie in der Ausgabe 3/85. 


| Preis für Akustikkoppler A: Jetzt nur noch 
HITRANS 300 G DM - DM 198,- (sFr. 178,-) 
* inkl. MwSt. Unverbindliche Preisempfehlung 


(ohne Batterie) 
Achtung: Nicht für Wiederverkäufer Bestellnummer: HW 072 


Bitte verwenden Sie für Ihre Bestellung immer die abgedruckte Postgiro-Zahlkarte oder 
einen Verrechnungsscheck. 
Sie erleichtern uns damit die Auftragsabwicklung, und dafür berechnen wir Ihnen keine 


Versandkosten. 


| 
| 
Bestellungen aus der Schweiz bitte direkt an: 
Markt& Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Tel. 042/41 5656 
| 


Bestellungen aus Österreich bitte direkt an: 
Ueberreuter Media Handels- und Verlagsges. mbH, Alser Straße 24, 1091 Wien, 


Tel. 0222/481538-0 





Byte), 512 KRAM Pure" 






AR " 
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DATEN- TECHNIK 



































Laden + Versand 
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[ Mich interessiert das MÜKRA- 
| Angebot! Schicken Sie mir 
| schnell undunverbindlich den 
| kostenlosen SCHNEIDER Katalog. 


RE izle 





























Ze 

35 | | Name = : 
e 2- Vorname 

3 | Straße 


Wohnort 


Computertyp O Joyce 
ankreuzen: 







O0 4640 6640 6128 


m. a —— 
= E 

UI—_— —————— —— 

et 

mt rpm 

a ———— 


FF T——  —— 
—— 200 
— 


m 
— 


III 
un 








27 





auf Diskette 
DM 14,80* sfr. 13,90 


Bestellnummer: HW 071 
Die Betriebssoftware befindet sich außerdem auf der 
Programm-Service-Diskette des 6&4er-Sonderheftes 


SH 7185. 








PREGEEIEEEE ne _ __ | ___U 


nternehmensbereich Buchwe: 


Markt&zfechnik 





 —— Hans-Pinsel-Straße 2, 8013 Haar eiMinchen 


| 











83 









2158 
2160 
2170 


2183 
2198 


2280 


2210 
2229 


} 2242 
= 2250 


12268 


2220 
2290 


2380 
2312 


23298 


235230 
2350 
2360 


| 2388 


2372 


2400 
2418 


2420 
2430 


| 2240 
1450 
| 246@ 
| 2479 


2480 
2498 


LOCATE 1,3:PRINT "ZEIT{8 SPACEIREKT 
.*9 SPACE}DEKL. {4 SPACEIHDEHEt{IB SP 
TER SPACE}DEKL. {4 SPACE}HOE 


WINDOW #1,1,8@,4,23 

FOR I=® TO ä8 STeP 2 

PRINT #1, USING "###"5 1/2,:PRINT #1 
„SPACES (8)5:PRINT #1,USING "##": INT 
(SOREKT(I)/15);:PRINT #1,USING "### 
#"3 INT (60* (SOREKT (1) /15- INT (SOREKT ( 
if , 

PRINT #1 ,SPACES (3): FRINT #1,USING 
"#4#.##";SODEKL (I) ,eFRINT #1, SPACE$ 
(4)5:PRINT #1, USING "#44, #" ; SOHDEHE 
(I; zPRINT #1,SPACEFB); 

PRINT #1,USING "##4##": IN (MDREKT (I) 
/15) ,:PRINT #1 ,USING "#44"; INT (AB& 
(MOREKT (1) /15- INT (MOREKT(D IS} ) 5: 
PRINT #1,SPADE$ (3); 

PRINT #1,USING "ii. 4"; MODEKL(T) 5: 
PRINT #1,SPACE$(4);5:PRINT #1,USING 
"4. 4" > MONDHOEHE (1) 

NEXT I 

LOCATE 1,24:PRINT "KULMINATION UM “ 
;:PRINT USING "##. ##";S0OKUL;: PRINT 
" UHRZS SPACEIAUFGANG: ";:PRINT USI 
NG “4. ##":SOAUFS:PRINT " UHR{S SPA 
CEIUNTERBANG: "s5:PRINT USING "#4. ## 
"»SQUNTER: PRINT " UHR" 

PRINT "M O N D : PHASE ="s:PRINT US 
ING "##4#.#"; MOPHASE; SPRINT "%t4 SPA 
CEIAUFGANG: "3:PRINT USING “4. dt"; 
MOAUF;:PRINT " UHR{S SPACEIUNTERGAN 
G: "5:PRINT USING "#4. 448" MDUNTER; : 
PRINT " UHR" 

CALL &BBi8 

LOCATE 1,25:PRINT SPACES (78) :LOCATE 
‚Iy2S:PRINT "ANDERES DATUMI2 SPACE) 
EIN$=INKEY$ : IF EIN$="" THEN 2248 
IF UPPER$(EIN$)="J" THEN 860 ELSE L 
OCATE 1,25:PRINT "AUSGABE ALS TAGES 
GANG (J/N)" 
EIN$S=INKEY£ : IF EIN$="" THEN 2288 
IF UFPERS (EINSI="J" THEN 230@ ELSE 


MODE 2 

LOCATE 5,25:PRINT "MOND : PHASE 
="::PRINT USING "#4#.#"; MOPHASES : PR 
INT "%{4 SPACEIAUFGANG: ";:PRINT US 
ING "##. ##";MOAUF3 PRINT " UHR{S SP 

ACEFUNTERBANG: "z:PRINT USING "#.# 
#";MOUNTER; :PRINT " UHR" 

LOCATE 3,1:PRINT "SDNNE= {2 SPACE}AU 
FGANG "z:PRINT USING "#4. 44"; SOAUF; 
:PRINT " UHR{Z SPACEIKULMINATION "; 
:PRINT USING "##.##": SOKUL; : PRINT " 
UHR{Z SPACEIUNTERGAMG "z: PRINT USI 

NG "##. #4"; SOUNTER: : PRINT " UHR" 

ORIGIN 20,28,20,620,20,380 

A. 

FOR I=1 TO S:MDVE @,1*42: DRAW 600,1 

60,0: NEXT I 

MOVE @,181:DRAW 622,181,8:MOVE 9,17 

9:DRAW 50@,179,0 


FOR I=1 TO 7:MOVE I#75,8:DRAW 1*75, 
S3SöB,B:NEXT I 

TAG:MOVE ®,54:PRINT "B";:MDVE 146,6 
4:PRINT "&'5:MOVE 292,54:PRINT "12" 
;:MOVE 442,434: FRINT "19"; :MOVE 592, 
ö&4: PRINT "8";:TAGOFF 

'OCATE 2,13:FRINT "®8":LOCATE 1,9:PR 


MT "Z@":LOCATE 1,5:PRINT "&B":LOCA 
VE 1,11:PRINT "+"ZLOCATE 1,15: PRINT 
"#3 LOCATE 1,17:PRINT "30":LOCATE 

1,21:PRINT "&D" 

LOCATE 4,3:PRINT ORT$:LOCATE 30,3:P 

RINT "SONNEN- UND MONDHDEHE":LOCATE 
70,3:PRINT DATUM 

MOVE @,2*SOHDEHE (9) +195: TAG: PRINT " 
ae UL IEEEIIEIDE 0, 2*SOHDEHE (8) + 

FOR I=1 TO 48:DRAW 1#12.5,2*SOHOEHE 
(1)+190,8:NEXT I 

MOVE @,2#MONDHOEHE (®) +195: TAG: PRINT 
"MOND"; : TAGOFF:MOVE 8, 2*MONDHOEHE ( 
2) +180 

FOR I=1 TO 48:DRAW I#12.5,2*MONDHDE 
HE(1)+180,0:NEXT I 

LOCATE 75,22:PRINT CHR$ (237) 5 CHR& (2 
38) :LOCATE 75,23:PRINT CHR$ (239) ;CH 
RE (240) 

CALL &BB18 | 

LOCATE 1,25: PRINT SPACE$ (78) :LOCATE 
3,25: PRINT "ANDERES DATUM (J/N)" 
EIN$=INKEY$ : IF EIN$="" THEN 2488 
IF UPPER$(EINS)="J" THEN 868 ELSE L 
OCATE 1,25:PRINT SPACE$ (78) :LOCATE 
3,25, PRINT "AUSGABE DER DATENTABELL 

N) a 


[ASD8] 
[252C] 
[28458] 


[5D1A] 


[RDER] 


LEAB8] 


[BAB&] 
[&D1A] 


LAAPE] 


[387A] 
I[FC&E]I 


[FAA4] 
[885C] 


[8928] 
ED254] 


[2D42] 
CSABB] 


[AB4C) 


[5045] 
[AAcE] 
[DA2B] 
[DFCE)] 
[369A] 


[24F4] 


CFiFE] 


[ZED4#] 


EA2D4] 


L72AA] 
[5BCA] 


C[DBS54] 
[88E8] 
[37BE] 
[F&75] 


[5758] 
[785C] 


re 
ae Te ı 





2568 


2578 
25858 


25978 


2800 


2&18 


2628 
2458 


2442 
2558 


2548 


2678 


2680 
2578 


2729 


2718 


2728 


27 

2708 
2758 
2782 
27708 
2788 
27970 


2608 
2618 


28538 


2848 
255D 


EIN#=INKEY$ : IF EIN#="" THEN 2500 
IF UPFER$(EIN$)<>"]" THEN 488 

GOTO 2110 

REM AUSGABE DER MONATLICHEN SONNENT 
ABELLE' 


ı FRINT #2,USING "##":DAY; = PRINT #2," 


„"3:PRINT #2,USING "##"3MONTH3 =PRIN 
T #2,"."5:PRINT #2, USING "##"; JAHR; 


PRINT #2,USING "#H##. ##"; AUFDAEM; : PP 
RINT #2, USING "##H#. ##":SOAUF; :PRIN 
T #2,USING "###4##. ##"; SOUNTER; : PRI 
NT #2,USING "#4. ##" s UNTDAEM: SPRIN 
T #2, USING "HHHHihibihakiki 34" 5 SOKULs = PR 
INT #2, USING "####H#.#" 5; KÜLHDEHE; 
PRINT #2,SPACE$(1@);:PRINT #2,USING 
"sk, #"; MOFPHASE 
DAY=DAY+1 
IF DAY=27 AND MONTH=2 AND (JAHR-4#1 
NT(JAHR/4)=8) THEN 950 
IF DAY>=29 AND MONTH=2 THEN LOCATE 
2,25:PRINT "NEUER MONAT (J/N)"zEIN$ 
=INKEY$: IF EINF="" THEN 2598 ELSE I 
F UPPER$(EIN$)="J" THEN 840 ELSE 2% 


30 

IF DAY=31 AND (MONTH=4 OR MONTH=4 0 
R MONTH=? OR MONTH=11) THEN LOCATE 

2,25:FRINT "NEUER MONAT (J/NI ":EIN$ 
=INKEY£: IF EIN$="" THEN 2600 ELSE I 
F UFFPER$(EIN$)="J" THEN 848 ELSE 24 


3Q 
IF DAY=32 THEN LOCATE 2,25: PRINT "N 

EUER MONAT (J/N) "sEINS=INKEYS:IF EI 
N$="" THEN 2610 ELSE IF UPPER$(EIN$ 
J="J" THEN 340 ELSE 2639 

GOTO 958 | 

LOCATE 2,25: PRINT "ANDERER ORT (J/N 
)"sEIN$=INKEYS:IF EIN$="" THEN 2430 
ELSE IF UPFER$(EIN$)="J" THEN 798 

ELSE 480 

REM AUSGABE DER MONATSTABELLE AUF D 

EM DRUCKER | 

PRINT #8,USING "##";DAY5:PRINT #8," 
."s:PRINT #8,USING "##"3 MONTH; :PRIN 

T #8,". "5: PRINT #8,USING "##"3 JAHR; 


PRINT #8,USING "#4. 4"; AUFDAEM; : 
RINT #8,USING "A4dbh. #44": SDAUF+PRIN 
T #8, USING "Akt, #4"; SOUNTER35 : PRI 
NT #8, USING "#4hkik. #44" + UNTDAEM; : PRIN 
T #8,UÜSING "AHsHiHidbiht. BE": SOKUL; : PR 
INT #8, USING "iHktkitdit. #5 KÜLHOEHE ; 
PRINT #9,SPACE$(4);5:PRINT #8,USING 
"44h. 4": MOPHASE 
DAY=DAY+1 

IF DAY=29 AND MONTH=2 AND (JAHR-4*1 
NT(JAHR/4)=@) THEN 950 

IF DAY>=29 AND MONTH=2 THEN LOCATE 
2,25: PRINT "NEUER MONAT (J/N) "EINS 
=INKEY$: IF EIN$="" THEN 2708 ELSE I 
F UPFER$(EINSI="J" THEN 840 ELSE 48 


IF DAY=31 AND (MONTH=4 OR MONTH=& 0 
R MONTH=? OR MONTH=11) THEN LOCATE 

2,25:PRINT "NEUER MONAT (J/N) "zEIN$ 
=INKEY$: IF EIN$="" THEN 271@ ELSE I 
F UFPER$(EIN)="J]" THEN 848 ELSE 48 


1] 

IF DAY=32 THEN LOCATE 2,25:PRINT "N 

EUER MONAT (J/N)"zEINS=INKEY$: IF EI 

N#="" THEN 2728 ELSE IF UPPER#{EIN$ 
J)="J" THEN E42 ELSE 489 

GSOTD #58. 

MODE 8 

LOCATE ?7,12:PRINT "END E" 

CALL &BEi3 

GOTO 339 

MODE 2 

LOCATE 20,2:PRINT "ALLGEMEINE ERLAE 

UTERUNGEN":LOCATE 28,3:FRINT STRING 

#125," _*} 

LECATE 3,6: FRINT "Was bietet das Pr 

ogramm: " 

LOCATE 35,F:FRINT "1. Berechnung des 
Tagesgarnrgs von SO NN E{Z SPÄCE?+u 

ndt3 SPACEIM ON D" 


2Q2 LOCATE 4,11:PRINT "Datenausgabe als 


Tabelle oder Grafik" 
LOCATE 3,14:FRINT "2. Monatliche Ta 
belle fuer die Sonne" 
PRINT STRING$ (&S5E,"_") 
PRINT:PRINT " Alle Eingaben musssen 
durch Druecken der {ENTER>-Taste a 


Listing. Sonne, Mond und Sterne 
(Fortsetzung) 


BHiAPPY wi. 


Gain 


CD21C] 


[8818] 


L121E1 
[9086] 


LEFFC]I 


[DSBE] 


[CEB34] 


[CFBAI 
[&CC2] 


cFr370] 
[F&ER) 


c[DSSC] 


[BB&ö4] 


[D&SED] 
[BQB8A] 


[F188] 


[0744] 


[3S5SDE] 


[&2B4] 
[7106] 
[1204] 
[8366] 
[C37C9 
C&FBE] 
[2ED®] 


[8314] 
[C?D82] 


[89852] 
[53DC] 


{27B8] 
[2282] 


EA 
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bgechlossen werden" 

PRINT:FRINT "{i12 SPACE}J/N - Abfrag 

” nur durch Druecken von %J> oder 
< he 

LOCATE 12,25: PRINT "Fortfahren im P 

roagramm durch Druecken irgendeiner 

Taste" 

CALL %BB13 

GOTD 482 

MODE 2 

LOCATE 15,2:FRINT "Erkliaerungen zur 
Monatstabeille fuer die Sonne" 

PRINT STRINGFL[&SB,"_"} 

PRINT "i1i SPÄACE}In dieser Darstell 

ung wird fuer alle Orte der Erde":P 


NT 
PRINT "{i11 SPACE}fuer den ausgewaeh 
liten Zeitpunkt angegeben:" 
LOCATE 22,9:PRINT 


"Datum in der For 
mi5 SFACE}TT.MM.YJ" 
LOCATE 28,11:PRINT 
nn{i5 SPACE}hh.mm" 
LOCATE 22,12:FRINT 
SPACE}hh. mm" 
LOCATE 29,14: FRINT 
{7 SPACE}hh.mm" 
LOCATE 28,15:PRINT 
{7 SPACE}hh. mm" 
 LOCATE 298,17:FRINT 
tti& SFÄCE}hh.mm" 
 LOCATE 28,18: FRINT "Kulminationshoe 
he in{2 SPACEI#F.* Grad" 
LOCATE 28,28: FRINT "Mondphase in 4 
(+ zunehmend{2 SPACE}- abnehmend!}" 
PRINT STRINGE (2 352,"_") 
GOTO 2870 
MODE 2 
LOCATE 15,2:FRINT "Erklaerungen zur 
Datenausgabe als Tabelle" 


"Daemmerungsbegi 
"Sonnenaufgangt? 
"Sonnenuntergang 
"Daemmerungsende 


"Yulminationszei 


[31F2]3 
ECSEE] 


[3240] 
[3E82] 
{85D8] 
LICCAI 
[44921 
[1988] 
[8132] 
L9E74) 
CB41A] 
CA4BEI 
[28581 
L9DBA] 
[SAGE 
[4FSC) 
LEECC 
[B4D8] 
[8472] 
[DA22) 
[Z1BE] 


[7F&2] 


3098 
5108 
311@ 
531208 
3156 
3140 


LOCATE 22,5: PRiNT "Rektaszension &' 
Laenge am Himmel ‘)" 

LOCA 28,7:PRINT "Deklinationt3 SP 
ACE}t’Breite am Himmel ’)" 

LOCATE 28,11:FRINT "Hoehe ueber dem 
Horizont" 

LOCATE 28,13:PRINT "Aufgangf3 SPACE 
um hh.mm Uhr" 

LOCATE 28,14: PRINT "Untergang. um hh 


‚mm Uhr" 

LOCATE 29,1&:PRINT "Kulmination der 
Sonne um hh.mm Uhr in *#=.# Grad Ho 
ehe" 

LOCATE 29,18: PRINT "Mondphase in % 
(+ zunehmend, {2 SPACE}- abnehmend)" 


FRINT STRING$ (%&50,"_") 
GOTOC 2878 
MODE 2 


LOCATE 15,2:PRINT "Erklaerungen zur 


Datenausgsbe als Grafik" 
PRINT STRING# (359,"_") 
PRINT "{3 SPACE}Die Grafik zeigt de 
n Tagesgang der Sonnen- und Mondhoe 
he fuer jeden Ort" 
LOCATE 12,12:PRINT "Betrachten Sie 
die Grafik. Sie erklaert sich selbs 


Mi 


GOTO 2878 


[3134] 
[ECC8] 
[öSBE] 
[SESA]I 
[F7A2] 


L1ES8]1 


[4748] 
LOF7A] 
[752A] 
[5405] 


[SAAB] 
[EB7B] 
[C8C18] 


E1BBE] 
[6B24] 





FRINT STRING (&590,"_") 

PRINT "{i2 SPACE}LCie Tabelle zeigt f 
ver ee ya Ort der Erde im Stundenab 
stand: " 


E2C7A] 


[5548] 


Listing. Sonne, Mond und Sterne (Schluß) 











Welches Gemüse wo und wie am besten wächst 
und gedeiht, darüber informiert Sie jetzt Ihr Com- 
puter mit unserem Garten-Planungsprogramm. 





ach dem Start des Programms »Mischkultur« 
erscheint auf dem Bildschirm das Hauptmenü. 
Geben Sie jetzt eine der zur Auswahl stehenden 
Kennziffern ein, verzweigt das Programm zum gewählten 
Unterpunkt. Sofern kein Block-Cursor zu erkennen ist, wird 
die Eingabe sofort bearbeitet. Anderenfalls drücken Sie 
ENTER. 

Normalerweise beginnt man das Programm mit Punkt 1 
(Erstellen des Gartenplans) oder Punkt 4 (Pflanzenüber- 
sicht). Die Pflanzenübersicht informiert Sie zunächst über die 
zur Auswahl stehenden Pflanzen. 

Mit der Eingabe eines der hervorgehobenen Buchstaben 
wählen Sie den entsprechenden Punkt aus. 

Möchten Sie Auskunft über eine Einzelpflanze, müssen Sie 
wenigstens die ersten fünf Buchstaben der Pflanze einge- 
ben. Nun zum eigentlichen Gartenplan: Dazu müssen Sie im 
Hauptmenü den Punkt 1 anwählen, wenn es sich um eine 
erste Aufstellung handelt, oder den Punkt 5, wenn Sie einen 
bereits existierenden Plan weiterbearbeiten wollen. 

Jetzt werden Sie aufgefordert, Angaben zur Größe des 
Gartens, zum Reihenabstand und zur Art der ersten Planzen- 
reihe zu machen. Jede Frage ist mit ENTER zu bestätigen. 

Der Computer schlägt vor, welche Pflanze in welcher Reihe 
am vorteilhaftesten plaziert ist. Sie brauchen nur die Auswahl 
zu treffen, bis Ihr ganzer Garten bepflanzt ist. Wollen Sie die 
Bearbeitung abbrechen, so wählen Sie statt einer Reihe »-1« 
und das Programm verzweigt zurück ins Hauptmenü. 












ırtner zur Freude 


Gefällt Ihnen die »Computerversion« Ihres Gartens und wol- 
len Sie sie speichern, werden Sie aufgefordert, sich einen 
Namen zu überlegen. 

Bei Wahl der Druckerausgabe erhalten Sie Ihren komplet- 
ten Gartenplan mit Längenangaben säuberlich auf Papier. Wir 
wünschen auch in der Praxis gutes Gelingen. 

(Hans-Werner Pätz/ja) 





gartpları 





Si Mi. 


ber Garten hat eine Laenge won 
Der Reihenabstand betraegt Sa cm. 
id Reihen. 


Damit hat der Garten 


Feihe Art Fflanze 


es ss SS EEE 


| A Stangenbahnen 

2 C NHeusselaender Salat 
3 EB Rosenkohl 

a C Chicoree 

5 A Zuechini 

& E Spinat 

7 B Sellerie 

=) Cc Kohlrabi 

“ # Tomaten 

18 c Kkopfsaliat’Eissalat 


Bild. Ein fertig bestücktes Beet 
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"##*+ Der Mischkulturen-Garten ### 
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+. copyright “== 
... Werner Paetz # 
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HH 


MODE 2 
DIM name# (48) „qut (48,18) „schlecht (48 
„18) „NICHT (42) „GUEN (48) 
' Pflanzensortiment 
DATA 38 

„ATomaten" ‚"AErbsen", "AStangenb 
pair "AGurken" ‚„"AZucchini", "AKarto 

e an 


DATA "BBuschbohnen” „"BZwiebeln" „"BKo 
nr (Rot-,Weiss-,Wirsing)", "BRosenkoh 

‚"BGruenkohl"”, “BBlumenkohl /Brokkol 
ie "Böchwarzwurzel "‚."BRote Beete","B 
Sellerie" 


I DATA "CZwiebeln" , "CLauch/Porree" "CK 


opfsalat/Eissalat","CPflueck-/Schnit 
tsalat" ,"CZuckerhut" ,"CChicoree” „"CR 
adicchio/roter Zichoriensalat" ,"CEnd 
ivien" 

DATA "CFeldsalat/Rapunzel", "CSpinat" 
‚"CNeuseelaender Salat" ‚"CMangold", 
EMoehren/Karotten", "CKohlrabi","CRet 
tich/Radieschen" 

READ anzahl 

FOR i=1 TO anzahl 
READ Name$ (i) 
NEXT i 


"Liste des quenstigen Anbaus 


DATA 8,26,15,18,17,9,8,28,25 
DATA 6. 3,9,29 38 

DATA 
DATA 
DATA 
DATA 
DATA 


39,18 
3. 14,18,9 


a 18,14,15 

‚18.4,14 
,25,18,19,2,7,6,29,30 
‚25,18,19,2,7.64,29.30 
23: 18,19,2,7,6,29,30 


Lu u u Bu 


: 


,2 


7,8 
zii »„29,17,28,1 


vun 
E} 
: © 


Sn0. su: 


- 
[e) NN 
D 


„7,2,4,27 


= Ed nn ec 
NW 

Syrz 

S=naue 
(Aa mn u 

ur o> 


ii 
DD m 


„9,10,11 
‚9,1@,11,28,3 


„18,11,13,6,1,30,3 


18,11,13,289,3@ 

17,1,2,22,38,27,19 

19,7,3,15.3 
‚7,3,1,9,18,13,28,2,29 


am 


7, 
2; 
4 
= 
5 
1 
1 
1 
4 
1 
&ö 
u 
5 
5.2 
ı 95: 
= 
4) 
4 
4 
= 
1 
8 
1 
6, 
ei 
8, 
1 


- en br berlin [2 


- [D Dr“ 
ek 


Berner 


ungqguenstigen Anbaus 


7,3,2,0,1 
8,6,3,7,2,9,10,11 
9,2, 8,17 
10,2,8,17 
11,2,8,17 
14,4,17,6,28,25 


‚2 9,18,11 
2,29,14 


| DATA 


DATA Ä 
DATA 3 
DATA 


FOR i=1 TO anzahl 


READ b 

FOR i=1 TO b 

READ gut (i,j) 
J 


828 NEXT 


NEXT i 
flag=8 


ı FOR i=1 TO anzahl 





[1574] 


D FOR j=1 


IF flag=1 AND typ<>i THEN GOTO ?18 E 
LSE IF flag=1 THEN 888 ELSE READ typ 


IF typ<>i THEN flag=1:60T0 918 

READ menge 

0 menge:READ schlecht (i,j): 
NEXT j 


ı tlag=® 


NEXT i 

WINDOW#1 ,5,88,6,6 
WINDOW#Z, 3,408,11,23 
WINDOW#S , 45 ‚88,11, 23 
WINDOW#4 , 2 ‚88,25, >5 
WINDOW#S, 1,80,6, 32 


ELS 
LOCATE 5,2:PRINT "AUSWAHL FUER GARTE 
NPLAN DES MISCHKULTURENGARTENS" 


1888 LOCATE 5, S: PRINT zrosssumsoummmez 


1818 LOCATE 8, 6: PRINT "1)£5 SPACE}ERSTEL 
NPLANS" 


LEN DES GARTENPLA 


1828 LOCATE B8,8:PRINT "2)15 SPACE}AENDER 


N DES GARTENPLANS" 

LOCATE 8,18:PRINT"3){5 SPACE}DRUCKE 
N DES GARTENPLANS" 

LOCATE 8,12:PRINT"4) {5 SPACE}HPFLANZ 
ENUEBERSICHT" 


LOCATE 8,14: PRINT"S5)£5 SPACE}IEINLES 
EN EINES "SARTENPLANS" 

LOCATE 8,16:PRINT"8){5 SPACE}E N D 
u 


LOCATE 8,28: PRINT"{7 SFPACE}WELCHE W 

AHL --->{2 SPACE} 

GOSUB 1388 

IF ein<48 OR ein >53 THEN PRINT CHR 

Z(7T)ıCHR$(7):60TD 788 

ein=ein-4B 

LOCATE =y 28:PRINT EIN:FOR I=i TO 2 

BB:NEXT 

ON Ba "soro 3B88,1400,25808,277@,1 
130,341 

ECLS 

PRINT STRING# (889,"_ 

RINT "AUS WA H L{3 SPACEID E 
SPACE}PFLANDZE N" 

PRINT STRING (88,"_") 

LOCATE 18,8:PRINT "quenstig mit":L0O 

CATE 55,8: PRINT EMEREIG mit" 

PRINT STRING$ (BQ, 

MOVE 9,38: DRAW 60-38: MOVE 338,38:D 

RAW 338,284 

PRINT#4,"A) -Reihe{f5 SPACE}IB) -Reih 

ei5 SPACE}C) -Reihefi5 SPACE}IE) inze 
lpflanze{i5 SPACE}M) enue" 


")sLOCATE ae 
R{i3 


1288 GOSUB 1388 


IF ein=77 THEN 788 

IF ein=55 THEN anfang=1:auswahl=&:6 
OTO 1278 

IF ein=44 THEN anfang=7: auswahl=15: 

GOTO 1278 

IF ein=57 THEN anfang=16: auswahl =38 
:G0OTO 1278 

IF ein=57 THEN CL5#4: INPUT#4, "Welch 

e Pflanze :":Pflanze$:FOR Ij=1 TO a 

nzahl:ı IF UPPER$(LEFT$(pflanze$,5))= 

UPPER$ (LEFT$(MID$(name$ (ij) ,2),5)) 
THEN anfangsi j: auswahl=i j:GOTO 1278 
ELSE NEXT ij:CLS#4:GOTO 1258 

GOTO 15348 

FOR i=anfang TO auswahl 

CLS#1:PRINT#1, LEFT£(Name#{1),1)5;" 

- Reihe" „MID#(name$(i)},2) 

CLS#2: CL5#3 

FOR k=1 TO iB:IF qutti,k)=@ THEN 13 
1B ELSE PRINT#2,MID# iname$ (qut (i,k) 
),„Z)JıNEXT k 

FÜR j=1 TO 18:IF schlecht (i,j)=® TH 

EN 1315 ELSE PRINT#3,"{3 SPACE}":MI 
D$ (iname$ (schlecht (i, 3») ZI): NEXT j 
IF anfang=auswahl THEN ELS#4:PRINT# 
4,"i& SPACE}IM) enuetf? SPACE}IE) inze 
lpflanze ":GOSUB 13640: IF ein=47 TH 
EN 12580 ELSE IF ein=77 THEN 988 ELS 

E GOTO 1348 

ELS#4:PRINT#4,"i{& SPACE}M) enuef? 5 

PACE}W) eiter ":GOSUB 1358: IF ein= 
77 THEN 9780 


NEXT i 
CLS#4: PRINT CHR$ (7) 3CHR$(7I:G0OTO 11 
78 


REM 
REM Eingabe-Routine 
REM 





[SBBö] 
[B2A4] 
[3D18] 


[?C4C] 
[BEBB] 


[9I6BA] 
[A7A4] 
L73CE] 
[7946] 
[78D2] 
[E35DB] 
[5D84] 
[L7&AA] 
[73DE] 
ES5BBB] 
ESFAC] 
[7814] 


CCD34] 
E31AA] 


[SF7FA] 
[8748] 


[8C88] 
[D497A] 
LiCBE) 
TE2B4] 
LiAZE] 


EF77C] 
[4832] 


[BBYE] 


[FE22] 


[SSFE] 
C?A14] 


[2D7E] 
[CEBEE] 
[DsAC) 























1588 
15370 
1410 


1420 


1440 


1458 


1468 
1478 


1488 
1498 


1580 
1518 


1528 
15352 


1540 


1558 


ein#=INKEY$:ı IF ein#$="" THEN 1388 EL 
SE ein=ASC (UPPER$ (ein$) ) »RETURN 

REM 

CLS 2 

PRINT STRING$ (88,"_"):LDCATE 12,3:P 
RINTTERS TE LLE N{3 SPACE}IE I 
N E 5S{3 SPACEBEGARTENFPLANS 


PRINT STRING$(80,"_") 

IF aflag=ı1 THEN 25108 

LOCATE 5,6: INPUT "Wie ist die 

zu bepflanzende net iin m){i? SP 

ACE}":laenge 

LOCATE 5,8: INPUT "Wie gross soll de 

r Reihenabstand sein (48,58 oder &8 
cm) "sabst:IF ABST<{48 OR "ABST>&O TH 

EN 1458 ELSE abst=abst/188 

LOCATE 5,18: INPUT "Welches ist die 

erste Reihe (A, B oder C){15 SPACE} 
"reih$:reih#=UPPER# (reihf?) 

IF REIH$="A" OR REIH$="B" DR REIH$= 
"C" THEN 14880 ELSE 1458 

reihanz=CINT (laenge/abst) 

IF reihanz<33 THEN 1538 ELSE LOCATE 
2.280: PRINT "Bei einem Reihenabsta 
nd von";CINT(1BB*abst);"cm darf das 
Gartenstueck nur";32#abst;"m lang 

sein." 

LOCATE 15,22: PRINT "Teilen Sie die 
Gartenflaeche in mehrere Stuecke" 
LOCATE 14,24:PRINT "#### Zum Fortfa 
hren beliebige Taste druecken ####" 


CALL &BB18:60T0 1488 

IF treih$="A") THEN aanz=INT((reiha 
nz+3) /4) scanz=INT (reihanz /2) :banzer 
eihanz-aanz-canz:GOTO 1588 

IF treih$="B") THEN banz=INT((reiha 
nz+3) 7/4) scanz=INT (reihanz /Z) taanz=r 
eihanz-banz-canz:GOTO 1588 
aanz=INT ( {reihanz #2) 7/4) 


154B banz=INT (reihanz/4) 


1578 
1598 


OMPUTER 


canz=INT ( (reihanz+1) 7/2) 

LOCATE 2,15: PRINT"Der Garten wird i 

nsgesamt "sreihanz; "Reihen haben {" 
saanzy"" A, "sbanz;"x B und "scanzj; 
"2.03" 

DIM reihe$treihanz) ,reihelreihanz) 

LOCATE 5,24:PRINT SPACE$ (78) + LOCATE 
en 24: PRINT "Benflanzen der Reihe 1 
„"sreihanz; "(4 SPACE}Ende=-1"53 

IF aflag=8 THEN LOCATE 58,24: PRINT 
"von vorne an = 8"; 

INPUT reihanf 

IF reihanf<® THEN 788 


IF REIHANF>REIHANZ THEN PRINT CHR#$( 


7):GOTO 1408 

aflag=1 

IF reihanf=Q THEN 25648 

j=sreihanf 

IF reih$="C" THEN 1718 

IF reih$="A" THEN 1728 

IF reih$="B" THEN 1738 

IF ti+1) MOD 2=8 THEN buch$="C":60T 
0 1748 ELSE IF (i+2) MOD 4=8 THEN b 
uch$="A":G0T0 1748 ELSE buch$="B":6 
0oTO 1748 


1728 IF ti+3) MOD 4=8 THEN buch$="A":60T 
0 1748 ELSE IF i MOD 2=2 THEN buch# 
="C"H,G0T0 1748 ELSE buch#="B":60T0 
1748 

17308 IF ti+3) MOD 4=89 THEN buch$="B":GOT 
0 1748 ELSE IF i MOD 2=8 THEN buch# 
="C",560T0 1748 ELSE buch$="A" 

17408 REM } | 

1758 FOR NI=i TO 48: NICHT({NI})=B: GUEN(N 
I=8: NEXT NI 

1758 IF buch$="A" THEN 17978 

1778 IF buch$="B" THEN 2B18 

1788 IF buch#="C" THEN 2238 

1798 FOR RVv=-4 TO 4 

1iBBR IF RV=B THEN 1898 

1818 IF (REIHANF+RV)I<B DR (REIHANF+RV)I>R 
EIHANZ THEN 18978 | 

1828 IF REIHE (REIHANF+RV)=B THEN 1898 

18308 FOR RVA=1 TO & 

1848 FOR RvJ=1 TO 18 

1858 IF SCHLECHT (RVA„,RVJ) = REIHE (REIHAN 
F+RV) THEN NICHT ({RVA)=1 

iB&6B IF GUT{RVWA,RVJ) = REIHE (REIHANF+RW) 

THEN GUEN (RVA)=1 

1878 NEXT RWJ 

18808 NEXT RVA 

1898 NEXT RV 

19988 IF REIH@=1 THEN LOCATE 5,„24:PRINT C 
HR# (7) sCHR$(7); "### ZUM FORTFAHREN 
IRGENDEINE TASTE DRUECKEN ###" ELSE 

GOTO 19728 
1918 CALL &BBi8:LOCATE 5,24:PRINT SPACE$ 
+ 71 APPY* * 


CBB&EI 
[81A2] 
[258E] 


LFFAC 
LIFZE 
LiBsE) 


[AGbH. 


(59781 


CSBEBI 
L17F4] 
[SABE] 


[C31C8] 
CBDIE: 


[BF74Cä 
[&B1E] 


[97C2) 


[s1C8) 


[6770] 
CB7ACI 
LF4C6] 
[1938] 
[@5B6] 
[BB4E) 
[1182] 


cCc772] 
c21F2] 


CB882] 





ll 


(58) 
1728 CLS#5:LOCATE#S, 2, 1:PRINT#S, "Die R 
eihe "sreihanf;" ist eine "sbuch$; " 


- Reihe, damit stehen folgende Pfl 
anzen zur Auswahl:" 
FOR IND=1 TO & 

IF NICHT(IND)I=1 THEN 1778 


' LOCATE#5,18,IND+2 


IF GUEN (IND) =1 THEN PRINT#5 ,CHR#$ (24 


)3 
PRINT#S, IND; " :{2 SPACE}"; MID# (NAME 
$(IND)} „2) 


IF GUEN(IND)=1 THEN PRINT#5 ,CHR$ (24 


)3 

NEXT IND 

GOTD 2448 

FOR RVv=-4 TO 4 

IF RV=8 THEN 2118 

IF {REIHANF+RVI<B OR (REIHANF+RV) >R 

EIHANZ THEN 2118 

IF REIHE {REIHANF+RV)=@ THEN 2118 

FOR RVB=7 TO 15 

FOR RVJ=1 TO 18 | 

IF SCHLECHT (RVB,RVJ) = REIHE (REIHAN 

F+RV) THEN NICHT (RVB)=1 

IF GUT{RVB,RVJ) = REIHE REIHANF+RV) 
THEN GUEN{RVB)=1 

NEXT RVJ 

NEXT RVB 


I NEXT RV 


IF REIH@=1 THEN LOCATE 5,24:PRINT C 

HR# (TI 5 CHRS (7), "### ZUM FORTFAHREN 
IRGENDEINE TASTE DRUECKEN ###" ELSE 
GOTD 2148 


 CALL &BB18:LOCATE 5,24:PRINT SPACE 


(68) 

CLS#5: LOCATE#5, 2,1:PRINT#5, "Die R 

eihe "sreihanfs" ist eine ";buch#;" 
- Reihe, damit stehen folgende Pfl 

anzen zur Auswahl:" 

FOR IND=7 TO 15 _ 

IF NICHT({IND)=1 THEN 2218 

LOCATE#5,18,(IND-A)+2 

IF GUEN(IND)I=1 THEN PRINT#5,CHR$ (24 


)3 
PRINT#5,IND-#;" :{2 SPACE}";MID$ (NA 
ME$(IND) „2) 

IF GUENtIND)I=i THEN PRINT#5,CHR$ (24 


u 

NEXT IND. 

G0TO 2448 

FÜR RV=-4 TO 4 

IF RV=® THEN 2338 

IF {REIHANF+RV)<B OR (REIHANF+RV) >R 
EIHANZ THEN 2338 

IF REIHE (REIHANF+RV)=@ THEN 2338 


d2 FOR RVC=165 TO 38 


FOR RVJ=1 TO 18 | 
IF SCHLECHT (RVE .RVI) = REIHE (REIHAN 


F+RV) NICHT (RVC)=1 

IF GUT(RVC,RVJ) = REIHE (REIHANF+RV) 
THEN GUEN{RVC)=1 

NEXT RVJ 

NEXT RVC 

NEXT RV 


IF REIH@=1 THEN LOCATE 5,24:PRINT C 

HR$ (7) 5 CHR$(7)3"#"# ZUM FORTFAHREN 
IRGENDEINE TASTE DRUECKEN #*#*" ELSE 
GOTO 2368 


| CALL &BBiB8:LOCATE 5,24:PRINT SPACE$ 


(&B) 

CLS#5: LOCATE#S, 2, 1: PRINT#S, "Die R 
eihe "sreihanfz" ist eine ";buch#;z " 
- Reihe, damit stehen folgende Pfl 
anzen zur Auswahl:" 

FOR IND=-15 TO 38 

IF ee THEN 2438 

LOCATE#5 (IND-15) +2 

ir GLENCINDI=1 THEN PRINT#S „CHR$ (24 


I. 

PRINT#5,IND-15;}" »:{2 SPACE}";MID$(N 
AME$(IND) , 2) 

yi GUEN(IND)=1 THEN PRINT#5 „CHR$ (24 


NEXT IND 
LOCATE 5,24:PRINT SPACE#$ (7B) :LOCATE 


5,24: INPUT"Welche Pflanze (bitte K 


ennziffer [-1 = ENDEI} —--> "ıjein 
IF ein=® THEN z=B: BOTO 2588 

IF ein = -1 THEN reih@®=B8:60T0 788 
IF buch$="A" THEN z=ein:GOTD 2588 
IF buch$="B" THEN z=ein+56:G0T0 2588 


Listing. Optimale Nutzung Ihrer Gemüsebeete 
(Fortsetzung) 








[19782] 


CAEDE] 
LCHACI 
[57DE] 
[77E8] 


CBDB&] 
LACFE] 


[FSBA] 
[7454] 
[SABA] 
[458E] 
[BDBö] 


[774A] 
[5AB5] 
[CF2A] 
[Ds25] 


[C2BB8] 


[7368] 
[C378] 
[D458] 
[4CD&] 


[1DEE] 
[BC78] 


t1ED4] 
[C3BEI 
[@1B8] 
L113EI 
C92ACI 
L185A] 


[B&9E] 
LASSE] 
[30122 
[4796] 
[C5C6] 


[715A] 
L4E976] 
[OBBEI 
EFEZE]I 


CEBBC]I 


[2762] 
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ED 
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2530 
2540 


2578 


2748 
2750 


2768 


2770 
2788 


2798 
2818 


2820 
28308 


2840 
2850 
2848 


2878 
2888 
2700 


29720 


2738 


2950 
29768 
2970 


29788 
2970 








IF buch$="C" THEN z=ein+15 
reihe#(reihanf)=MID#(name#(z) ,Z)lıre 
ihe(ireihanf)=z 


| CLS#5:FOR i=1 TO reihanz: IF i<17 TH 


EN LOCATE 2,5+i:PRINT USING "##"35is 
:PRINT" :{2 SPACE}"HLEFT$(reihe$s(i) 
‚3@) ELSE LOCATE 42,5+i-16:PRINT US 
ING "##"3i5:PRINT" :{2 SPACE}"SLEFT 
$(reihe$s(i),3®) 

NEXT i 

IF flaga=i THEN RETURN 

FOR ENDE=i TO REIHANZ: IF REIHE (ENDE 
)=@ THEN 2558 ELSE NEXT ENDE:GOTO 2 
Fl) 


IF REIHB=1 THEN 2588 ELSE 1488 
en GARTENPLAN MIT REIHE i BEGINNEN 


REIHB=1 

RE IHANF=REIHANF +1 

GOTO 1578 

LOCATE 5,24: PRINT "#*### ALL E{S3S 
PACEIR E I HE N{3 SPACEIS IN Di3 
SPACEIBEFFLANZT x." 
LOCATE 18,25:PRINT "D) RUCKEN{& SPA 
CE}A) ENDERN{7 SPACE}M) ENUE" 
EIN$=INKEY$: IF EIN$="" THEN 2428 EL 
SE EIN$=UPPER$(EIN#$) 

IF EIN$="M" THEN 758 

IF EIN$="A" THEN 2458 

IF EIN$="D" THEN 27978 

LOCATE 18,25:PRINT "{2 SPACEIF AL 
SC HE{S SPACE}YE ING AB E{?7 5PA 
CE}":FOR I=1 TO 58@:NEXT:GOTO 2518 
REM 


REM Aendern des Gartenplans 
REM 


CLS 

PRINT STRING$ (88,"_"):LOCATE 12,3:P 
RINT"AEN DER N{CS SPACE}E I NE 
Ss{i3 SPACEIBGARTENPLAN " 
PRINT STRING$(8B,"_") 

IF aflag=-® THEN ELS:LOCATE 5,12:PRI 
NT "Es ist noch keine Reihe bepflan 
zt":FÜR i=i TO 2BBB:NEXT i:GOTO 788 


flaga=1:605UB 2518: #laga=®B 

LOCATE 5,24: INPUT"Aender n{i45 
PACE}3w e 1 ch e r{53 SPACEIR ei h 

ei2 SFPACE}oder -1 fuer Ende: ";reih 


anf 

IF reihanf=8 THEN PRINT CHR#$({7):CHR 
#{7):60T0 2758 

IF reihanf<ß THEN .78B 

flaga=1:605UB 16708: flaga=9:60T0 275 
[r] 


REM 
REM Druck-Routine 
REM 


ELS 

PRINT STRING$ (88,"_"):=LOCATE 28,3:P 

RINT "DRUCK E N{3 SPACEID E S{3 
SPACEIG ARTE N PLAN 5" 

PRINT STRING$(88,"_") 

IF PLAN$="" THEN PLAN$="GARTENPLAN" 


LOCATE 5,24:PRINT "B I T T E{3 SPAC 
E}DRUCKE R{4 SPACEIE INS CH 
ALTEN !!" 
LOCATE 18, 25:PRINT "danach beliebig 
e Taste druecken" :CALL %&BBi18 
PRINT#8,CHR#$ (11) 
PRINT#B „CHR#$ (27) sCHR$ (49) 
PRINT#8,STRING# (88," _"):PRINT#8B: FRI 
NT#8,SPACE# (38) ;plan$: PRINT#8,5TRIN 
6$ (80, N 
PRINT#B: :PRINT#8,SPACEFi18); "Der Gar 
ten hat eine Laenge von {5 SPACE}":1 
aenge; "m. 
PRINT#B, SPACE#(1B8);"Der Reihenabsta 
nd betraegt {8 SPACE}"; INT (abst*+1BB) 
"cm." 
PRINT#8,SPACE$ (18) "Damit hat der G 
arten{15 SPACE}";:P INT#B „USING"##" 
sreihanz; :PRINT#8," Reihen." 
PRINT#8: PRINT#8: PRINT#B, SPACE$(1B); 
"Reihe{2 SPACE}Art {4 SPÄCE}Pflanze" 


PRINT#8 ,SPACE$ (18) ;STRING$ (798,"_ 
FOR i=1 TO reihanz 

PRINT#8: PRINT#8 ,„SPACE$(1B) ; :PRINT#8 
‚USING"###" 51; : PRINT#B,"{5" SPACE}"3; 

LEFT$ (name$ (reihe (i)) ,1)5"{5 SPACE} 
"sreihe$ti) 

NEXT i 

PRINT STRING$ (88," _"):LDCATE 38,3:P 
RINT plan$rPRINT" STRING$ (80," “) 
PRINT:PRINT:PRINT:PRINT" Der 'Bärten 
hat eine Laenge von";zlaenge; "m." 


2 





[A234] 
[85D8] 


[ABA] 
[7852] 
[F8A2] 


[74534] 
[BSFE] 
EFFDA] 
EBDS8] 


CABG4] 
CAöF2E] 


EDEDE] 
[FSCC) 
[512A] 
[48F®] 


L1C38] 
[2F44] 


[3F2&] 
[32A85] 
[DC58] 
[B4AA] 
[1896] 


LiFD2] 
[4536] 


[B7AE] 
[7554] 


[DYFAE)] 


[AAd4] 
CDSFB] 


L1EBAI 
CiBACI 
C4DF4] 


L[54?7E] 
[CAPCI 


[78984] 
[785C] 


[C532] 


£[1D&s4] 


[8ES34] 
E7774] 
[BA78] 


[BF?22] 


[74BA] 


[F&FB8] 


[128C] 


[SES8] 
[FEB&] 
[5146] 


CBE22] 
[B476] 


[(D538] 
L7CC&] 




















ar, ER ET 2 a sie; 
et 5 =. -. Mi Pi i A 
381®@ PRINT:PRINT"Der Reihenabstand betra 
t";INT(abst*1B8) "cm." 

3828 PRINT:FRINT"Damit hat der Gartent& 
SPACE}"zreihanz ; "Reihen." 

3838 PRINT:PRINT:PRINT:PRINT"ReihefßB SPA 
CE}Art (18 SPACE}Pflanze" 

5848 FOR i=1 TO reihanz | 

3858 PRINT:PRINT USING"###";i;:PRINT" {11 

SPACE}"sLEFT£(iname${reiheli)),1)r" 
<11 SPACE}";reihe$ti) 

SB&sd NEXT i 

3878 PRINT "zum Fortfahren eine Taste dr 
uecken":CALL &BBi1B 

3080 REM 

SaF72 REM ENDE DES PROGRAMMS 

3S1@8 REM 

3118 CLS 

3128 PRINT STRING$(88,"_"):LOCATE 28,3:P 
RINT "BE ENDE N{3 SPACE}ID E St3 

SPACE}PROGRAMM 5" 

3138 FRINT STRING$(80," _") 

3148 LOCATE 28,18:PRINT "1 .... Abspeich 
ern des Gartenplans" 

3158 LOCATE 28,12:PRINT "2 „... Zurueck 
zum Hauptmenue" 

3158 LOCATE 28,14:PRINT "8 .... ENDE" 

317B LOCATE 27,28:PRINT "Kennziffer ---> 
i6& SPACE}" 

5189 GOSUB 1388 

319@8 ein=sein-48: IF ein<d OR ein >2 THEN 
PRINT CHR$(7);CHR$ (7):GOTO 3178 

3288 LOCATE 45,28: PRINT ein 

3218 IF ein = 2 THEN 9788 

3228 IF ein = B THEN CLS:LOCATE 28,12:PR 
INT "E N D E":LOCATE 1,235rEND 

3238 REM Abspeichern 

3248 LOCATE 19,22: INPUT "Welcher Name :" 

lan# 

3258 [BCATE 18,22:PRINT "Bitte das Band 
an die richtige Stelle spulen" 

3248 LOCATE 19,23:PRINT "danach "REC/PLA 
Y’ und irgendeine Taste druecken":C 
ALL &BB18 

327B DOPENOUT a, le ei 

3288 PRINT#?,Pi 

3278 PRINT#9, laenge 

3308 PRINT#F,abst 

3318 PRINT#?,reihanz 

3328 PRINT#?,reih# 

3558 FOR i=1 TO reihanz 

3342 PRINT#F,reihef(i) 

3350 PRINT#9,reiheli) 

336B NEXT i 

3378 CLOSEOUT 

3388 LOCATE 18,23:PRINT SPACE#$ (68) 

3398 LOCATE 1B,22:PRINT "{i4 SPACE}Abspei 
chernt2 SPACE}des Gartenplans beend 
etid SPACE}" 

3488 GOTO 3138 

3418 REM 

3428 REM EINLESEN EINES GARTENPLANS 

34380 REM 

3448 CLS:LOCATE 18,12:PRINT "Bitte das B 
and an die richtige Stelle spulen" 

3458 LOCATE 18,14: PRINT "13 SPACE}danach 

"PLAY' und irgendeine Taste drueck 
en":CALL &BBi8 

3458 DPENIN "'gartplan" 

3478 INPUT#7,PLAN$ 

3488 INPUT#?7,laenge 

5478 INPUT#9,abst 

S5ß8 INPUT#97,reihanz 

3518 INPUT#9,reih$ 

3528 DIM reihe$(reihanz) ,„reihe(reihanz) 

3538 FOR i=1 TO reihanz 

3548 INPUT#97,reihe$li) 

3558 INPUT#7,reiheli) 

3568 NEXT I 

3578 CLOSEIN 

3588 aflag=i 

3570 GOTO 788 

Listing. Optimale Nutzung Ihrer Gemüsebeete 

(Schluß) 

BO 2 2 IST Er er Fatih: 


#+ 


[786C] 
[A432] 


[FD&sB] 
[2532] 


L1AE6ö] 
[89752] 


[S5B84] 
L4AFE]I 
[BBCH] 
[3878] 
[2B8E] 


[48B2] 
[322E] 


[4CC4] 
[B358] 
CDFBB] 


[FB38] 
[3CBB] 


[CECBB] 
[F7BAEI 
[A128] 


[CE7BE] 
LCEBAB] 


[ö975E] 
(D455] 


[CB158@] 
[D7EB] 


[2CDA] 
[4A?2] 
[2356] 
[35D4] 
[&BBE] 
[CCö8] 
[42Bö] 
[AFCC]I 


(48352] 
[?DBE] 
[4F78] 
[1D55] 
[4D7C] 


LESFE] 


Ccaa@1 
[6E28] 
LEAAA] 
[2CE6] 
[9664] 
CABE2] 
LCC9AI 
CADA4] 
[413A] 
CD&DEI 
[72981 
[6A2CI 
[S@F8] 
L7EB2] 
C9EDEI 
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Endliose Zahlenkolonnen sind meistens sehr 
schwer lesbar. Dieses Programm hilft Ihnen, stati- 
stische Daten grafisch übersichtlich darzustellen. 


gal, wie auch immer Sie Ihre Daten veranschaulichen 
u wollen, »Statistik« hält vier verschiedene Arten für Sie 
bereit: Kuchen-Diagramm, Balken-Diagramm, Trend- 
Darstellung und Break-even-Point. Zugunsten der höheren 
Auflösung und großzügigerer Beschriftung erfolgt die 
Bildschirm-Ausgabe im Modus 2. Durch die verwendeten 
Farbkombinationen eignet sich das Programm für den Einsatz 
sowohl auf einem Farb- als auch auf einem Grün-Monitor. 
Anwendungen für das Programm finden sich nicht nur im pri- 
vaten Bereich: auch Kleinbetrieben und Selbständigen kann 
es ein wertvolles Hilfsmittel für die Planung sein, da es auto- 
matisch aus den Daten vergangener Zeiträume Trends für die 
nähere Zukunft berechnet. Stellt man zwei verschiedene 
Daten einander gegenüber, lassen sich beispielsweise 
Kosten und Umsätze miteinander vergleichen. Beispiele für 
die Bildschirm-Darstellung von Balken- und Trend- 
Diagramm finden Sie in Bild 1 und 2. Dabei wird auch noch 
zwischen mehreren Produkten und Kostenarten unterschie- 
den. (Klaus Eschemann/ja) 
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Bild 1. Umsätze zweier Artikel als Balkendiagramm 
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Bild 2. Dieselben Umsätze als Trendanalyse 
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Listing. Umsatz, Kosten, Trends und Analysen 


CPC 464/664/6128 
Explora 


GOTO 915 
: *###+ UF Beschriften 
*+* 
ueber $=umkof# (eingabe) +" /"+zeigest+"/" 
+hm# (hm) +umr $ (eingabe) : ueber #=UPPER# 
(ueber #) 
»anf=80-anz (eingabe) :»schritt=INT( (64 
O-» anf) /anz (eingabe) ) :tf=25-(anz (ein 
gabe) /2) swt=( (22-anz (eingabe))#2)+tan 
z (eingabe) :send=(xanf#2) +((anz (einga 
be}-i})#schritt) 
a=1INT {(xanf+t(tanz (eingabe) )#schritt) 
-schritt) /16) +INT(txanf)/B):DN pm BO 
SUB 2140,2150,2140,2155,2140,2180,21 
40,2165 
MODE 2:LOCATE a-INT (LEN {ueber#)/2),2 
ıPRINT"{ICTRL %% "zuebert;" {CTRL %>" 
:PLOT 0,0: DRAWR 0,399:DRAWR &539,0:DR 
AWR 0,399: DRAWR-657,0 
FOR a=0 TO anzteingabe)-i:READ zeit# 
: MOVE (nt /2) +manf+1{schritt#a)-(LEN(ze 
it#)#4) „20: TAG:PRINT zeit#; :NEXT:MOV 
E zxanf-40 ,390: TAG: PRINT"D M";:MOVE » 
anf-5,400: DRAW xanf-5,40,3 
FOR a=350 TOD 40 STEF -20 suk#=STR$(I 
NTl{ia-40)#f)) 

MOVE xanf-10,a:DRAWR B,0:MDVE 2,a+ 
6:TAG: IF LEN(uk$#)>4 THEN PRINT RIGHT 
#(b1$+MID$ (uk$,1,LEN(uk$) -3) ,erll (ei 
ngabe)-3);"."z3RIGHT$ (uk$,5);3 ELSE PR 
INT RIGHT# (bl$+uk*%,erllleingabe)+((L 
EN (maxdm$ (eingabe) )-i1)\4)); 
NEXT:MOVE 2,45: TAG:PRINT SPC(terlilie 
ingabe)-1})+(tLEN(tmaxdm$leingabe))-i) 
\4))3"0"2:MOVE zanf,40:DRAW xend,40: 


'DRAWR 0,360 


MOVE 20,20: TAG: PRINT UPPER$(zeig* (pm 
I); :RETURN 
- **#* UP Vorschau (parabol. 
Trend) ### 
sS5=-0:1235s5=0: x ?ss=0: x 2su=0: 4 3s=0:24s=0 
.:195=0:x5=0:x7235=0:32=0:33=0:24=9 
anz=anz (leingabe) :t=t (leingabe) 
IF anz MOD THEN ordnz=1:ordan={ (an 
z-1)/2)#-1 ELSE ordnz=2:ordan=s (anz-i 
I#-1 
»=ordan:FOR a>=i TO BREISPENEN age 
be,start ‚a-i) sxs=ex#sıx2s= (ix"2)#sıxZ= 
urrınzenr” index "diıssssstsix55=n55tK5 
in Dassk ?sstx ?sı »2susn2sutrnZix3ser3st 
»Sıxdssendstmn dın=ktordnz :NEXT 
b=4ss/a2su:c1=ln2ss-t((x2su/anz)#tss)) 
:c?=(z45-1x2su/anz)#x2su)sIF c2=0 TH 
EN c?2=1 
diff=0:diff=hwert (eingabe „start „anz- 
1}-hwert {feingabe „start „O) 
c=c1/’/c?ta=s (ss- (x?2su#c)) /anzıx=ordan: 
FOR y=0 TO anz-i:hwert (eingabe,7,y)= 
atrtbtHn)+ic#t" Di) +diff 
mh teingabe,7,y)=(hwert (leingabe,7,y)/ 
+ (eingabe) /t) #INT ( (SGN {hwert (eingabe 
‚/ıy))+1)/2) 
IF mhteingabe,7,y)<=0 THEN mhleingab 


e,/,y)=2 

„= +ordnz NEXT 

RETURN 

: *##* UP Maximal darzustelle 


nder Wert #** 
umr$teingabe)="":t=1:IF anz(eingabe) 
>15 THEN erlli=4 ELSE eril=-5 

FOR a=start TO proko-1:FOR b=0 TO an 
z {(eingabe) -1:maxdm (eingabe ,b)=maxdm ( 
eingabe,b)+hwert leingabe,a,b) :NEXT:N 
EXT 

FOR »=0 TO anz leingabe) -2 

FOR y=-x+1 TO anz (eingabe)-1 

IF maxdmteingabe,x}<=maxdm(eingabe,y 
) THEN hi=maxdm(eingabe ,x):maxdmiein 
gabe,x)=maxdm (eingabe,y) :maxdm(einga 
be,y}=hi 

NEXT: NEXT: max dm=max dm (eingabe,O}:max 
dm#=STR# (max dm) 

FOR a=i TO LEN{maxdm$):IF MID#(maxdm 
$,a,1)="+" THEN li=a:le=VAL (RIGHT$ (m 
ardm#,2)) ELSE IF MID#(maxdm$,a,1)=" 
„" THEN pui=a 











cB552] 
[C48D5] 


[51601 


[308A] 


E1510] 


EBFC4] 


 £2B10] 


[öDC2] 


[48C4] 


[2520] 


CA1A2]I | 


[7116] 


[8854] 
EFC44] 


CAFBZ] 


L20FE] | 


[COD2] 
EFCEO] 


EFORACI 


CABC&] 


[SFBAI 


C1D5A] 
[CD251 


LIFOS&S] 
[S1EO] 


[4E4A] 
[BB70] 
[B1iE2] 


[884E] 


[FFBE] 


ESFCB] 


89 
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| 270 
275 
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295 
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310 
315 


320 
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3355 
540 
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385 
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460 
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NEXT asIF pui=Ö0 THEN pui=li-?2 

IF le THEN dm=VAL (MID$ (maxdm$ ,pui-i, 
pui))#160* (11 -2—-pui ) +VAL (MIDE (maxdmf,, 
pui+i1,LEN{maxdm$) -1i+1))maxdm$="":m 
axdm$=5STR$ (dm) : max dm$=max dm$+5TRING$ 
(le-(li-pui-2) ,"0") 

IF LENtmaxdm$)-i1>eril THEN t={{LEN (m 
axdm#}-1)-eri1)/3 ELSE GOTD 295 

IF INTit)<t THEN t=INT(t)+i 

ON t GOSUB 280,285,290:t1=t#3:t=10*t 
l2maxdm=VAL (LEFT$ (max dm$ „LEN (max dm$) 
-(t1))):6GOTO 295 

umr#teingabe)=" IN TSD DM" :RETURN 
umr$leingabe)=" IN MIO DM":RETURN 
umr#$leingabe)=" IN MRD DM":RETURN 
Be ME BO TA FE Er I VLRREE 


; ### UP Berechnen Darstell 

ungswerte ###+ 

DEG: tg=TAN (42) : sw=SIN (30) : cw=COS (30) 

:off=40: f=maxeing leingabe) /320:# (ein 

gabe)=f 

xanf=BO-anz (eingabe) :schritt=INT ((&4 

O-xanf)/anz (leingabe)) 

FOR »=0 TOD anz (leingabe})-i:mhleingabe 
‚6,x)=hwert (eingabe ,„ö,x) /f (eingabe) / 

tteingabe) :st (leingabe ,‚«)=»*#schritt+x 

anf:NEXT 

FOR sle=ö0 TO prokoteingabe) -i1 

FOR »=0 TO anz (eingabe) -1 

mh=huwert feingabe ,sle,x}/f leingabe) /t 
(ein abe) ınh leingabe aim .x) »RÜUND (ah 

):NEXT:NEXT: RETURN 
= *#* UP Maskenaufbau 

**# 

MODE 2:BORDER 9:LOCATE 15,2:PRINT"S 

TATISTISCH E{S SPACEIA US 

WERT UN 6G":LOCATE 15,3:PRINT STR 

ING$(45,"="):LDCATE 23,5:PRINT "Graf 

iken, Trends, Analysen" 

ft=1:PLOT 9,395:FOR y=1 TO 2:RESTORE 
Ss005:FOR »=1 TO 4:READ a,b:DRAUR a# 

ft,b#ft,1:NEXT:ft=-1:NEXT 

ft=1:PLOT 428,85:FOR y=1 TO 2:RESTOR 

E 3010:FOR x=1 TO &: a,b:DRAWR a 

#*#ft,b#ft,53:NEXT:ft=-1:NEXT 

IF maxeing{O)=0 AND maxeing{1)=0 AND 
hm=0 THEN LOCATE 12,7:PRINT CHR#(1& 

4), "{2 SPACE?Klaus Eschemann Am Turm 

sberg 5412 SPACE}S3S300 Braunschweig" 

N 


RETUR 
y ### UP Berechnung und Dars 
tellung Kuchen ### 


' ELS: ueber $=UPPER$ (umko$ (eingabe) +" /" 


+zeige$#+" /"+hm$ (hm) ):LODCATE 40-INT (L 
EN {ueber$) /2) „i:PRINT "{CTRL X} ";sue 
ber#;" {CTRL X}":IF kusumleingabe) T 
HEN 410 
lmax=MAX (1, (LEN (maxdm$ (eingabe}) )-3)) 
:FOR a=0 TO proko(teingabe})-i:kusulx) 
=0:FOR b=0 TOD anz leingabe) -1 
kusu (a) =kusu (a) +hwert (eingabe ,a,b)/1 
O”1max : NEXT: kusum (eingabe) =kusum (ein 
gabe) +kusu (ta) :=NEXT 
kuda leingabe ,0)=1(350/’kusum (eingabe)) 
*kusu (0) 
FOR a=i TO prokoleingabe) :kudaleinga 
be,a)=-(340/’kusumleingabe))*(kusula)) 
+kuda (leingabe ,a-1):NEXT 
hx=320:hy=200:hk=180 
FOR a=0 TO prokoteingabe) -1i:xw(a)=hk 
*C05 (kuda (leingabe ,a))+thx: yw(al=hk#5I 
Nikudaleingabe,a))+thy:xwablati)=xnla) 
syab(ati)=ywia):IF »abla)>400 THEN x 
ab (a)=400 
NEXT: xab (0) =500: yab (0) =400 
DEG:FOR a=0 TO 359:PLOT hk#+COS(a)+hx 
‚hk#=5SINta)+hy:NEXT a 
»=prokoleingabe} snw(ix)=umtO) 
FOR a=0 TO prokoteingabe)-1:PLOT hx, 
hy:DRAW xwmla) ,ywia)=:MDVE xnla)+ttixab 
(a)-xmla))/2)-50,ywlia)+tliyabla)-ywla 
)r/2)+15: TAG: PRINT proko#fleingabe);a 
+13 :NEXT 
RETURN 
3 #*# UP Darstellung Balken-D 
iagramm ###+ 
t=t (eingabe) : anz=anz (eingabe) :FOR x= 
O© TO anz-1:mh=mh (leingabe ,O,x) 
FOR y=0 TO mh-2 STEP 2:MOVE stieinga 
be,x) ,offty:DRAWR wt,O,1:NEXT y 
FOR k=y TO y+tf#sw STEP 2:MDVE stlei 
ngabe,»?+ik-y)#tg ,off+tk+1:DRAWR wt,O 
‚5:DRÄWR O,k#-1:NEXT k 
: *#+*-Saeule aufstocken- 
... 
IF prokoteingabe)<2 THEN 505 
FOR sle=1 TO prokoleingabe}-1 
FOR y=-mh+2 TO mh+mh (eingabe,sle,x)-1 
STEP 2 
MOVE stteingabe,x) „off+y:DRAWR wt,„O 
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‚S:ıDRAWR tf#cm,tf#swm,2 

NEXT y:IF sle=sprokoleingabe)-i THE 
N 495 °‘ 
FOR k=y TO y+tf#sw STEP 2 

MOVE stleingabe,x)+ik-y)#tg,off+tk+ 
((mhteingabe ,sle-1,x)+mh (leingabe,sle 
‚”»)) MOD 2) :DRAWR wt„O,„3:DRAUR 0O,(y- 
mh) #—1 
NEXT k 
MOVE stleingabe,x) ,„off#+y:DRAUR wt,O, 
2 
mh=y:NEXT sle:FOR k=y TO y+tf#sw STE 
P 2:MOVE stleingabe,x)+(k-y)#tg,off+ 
k+2: DRAWR wt,0,53:DRAUR O,mh#-1:NEXT 
MOVE st teingabe,x) ,„offtmhleingabe,O, 
»):DRAWR wt,O,2:NEXT x:RETURN 

R *##* UP Darstellung Trend,B 
erechnung geometr. Trend ### 
t=t (eingabe) : anz=anz (eingabe) :1max=M 
AXi1,„(LEN {imaxdm$ (eingabe})-3)) 
FOR »=1 TO anz-i 
MOVE st leingabe ,x-1}+1{wt/2) „off+timht 
eingabe,pro,x-1)/f):DRAW st (eingabe, 
»I+(mt/2) „off+timhleingabe,pro,x}/f): 
NEXT x:MOVE »anf ,off+(mhleingabe,pro 
‚Or/F):DRAWR wt/2,0 


diff=ATN{schritt/(imhleingabe,pro,an 
z-1)/f)-imhleingabe,pra,anz-2) /f)+1) 
I):MOVE st {eingabe ,anz-1) +(wt/2) „off+ 
(mh (eingabe ,pra,anz-1)/f) 

DRAW zend „MAX (off+3,0ff+(mhleingabe, 
pro,anz-l) /f)+((xend-st (eingabe,anz- 
1))*C0Stdiff)#SGNidiff))) 
tranz=anz: IF trvor THEN 585 

FOR »=0 TO anz-1: IF hwert (eingabe,pr 
0,%x)<3 THEN hmadm {pro,x)=1i:tranz=tra 

nz-1:60T0 560 

hmadm {pro,x)=hwert (leingabe,pro,»)}/10 
“1]max: 

NEXT x 

FOR »=0 TO anz-1 

dm=hmadm (pro,#+1) #hmadm (pro,x):hmadm 
(pro,x+1)=dm:NEXT x:trend={((hmadm {ip 
ro,anz-1)”*(1/tranz)) /(fleingabe)#f)) 
/t)#10*1lmax 

MOVE st leingabe,O) „off+mh (leingabe,pr 

0,0) /f:DRAW st leingabe,anz-1)+wt ,off 
+ tthaada (pro,anz-1)*1/tranz))/Uf le 
ingabe})#f)) /t)#10”1max 

MOVE XPOS,„YPOS+&6: TAG: PRINT ">"; :MOVE 
XPDOS-40.YPOS+120#(-1+(?2*#eingabe))): 

TAG:PRINT INTitrend# (fteingabe)#f)); 
:G60T0 5970 

yp=YPOS-off:MDVE XPOS-100,YPOS+140%# ( 

-i+(2#eingabe} )) : TAG=:PRINT"-——->";:PR 
INT USING" #H###4#" , yp*{f#=f leingabe));z 


MOVE st leingabe „O}+8,30+ (mh (eingabe 

prao,O) /f)+(40#eingabe) : TAG: IF wbep=7 
THEN PRINT"Vorschau "s:1IF start=4 T 

HEN PRINT umko$(eingabe);" Total";:6 

0OTO 500 ELSE FRINT prokofteingabe);n 
;:60TD 500 

IF start=& THEN PRINT umko$(eingabe) 
I. Total"; ELSE PRINT prokof#teingabe 
sw; 

wsbep=0: pro=0: start=0:RETURN 

y *### UP Darstellung BEP 
### 

anz=anz (eingabe):t=1:IF t(1-eingabe) 

*tleingabe) THEN t=t (1-eingabe) 

FOR »=1 TO anz-1 

MOVE st leingabe ,x-1}+i1nt/2), (mhleing 

abe ,wbep,x-1) /f)/t+off 

DRAW st (eingabe,»)+(wt/2) „mhleingabe 
‚wbep,»)I/f/t+off:NEXT 

MOWE st leingabe,O) „mh leingabe „wbep,O 
I/fFft+off:DRAUR wt/2,0 

diff=ATNischritt/timhleingabe ‚„wbep,a 

nz-1) /uf (leingabe) ) - (mh teingabe „nbep, 

anz-2) /ufleingabe}))}):MOWE st leingab 

e,anz-1i)+{iwt/2) „mh l(eingabe ‚wbep „anz- 

1) /uf (eingabe) +0off 

DRAW »end „MAX toff+2, {mh (leingabe „wbep 
‚anz-1)/uf (leingabe))+((xend-st leinga 

be,anz-1))#COS(diff)#SGNtdiff))+off) 


RETURN 

; *##+#+ Steuerung Balken-Diag 
ramm ### 
ELS: f=f (eingabe) :GOSUB 105:605SUB 435 


GOSUB 2285: IF spei THEN GOSUB 2095 
G60TO 1005 
. **+ Steuerung Trend ### 


el ae ne trvor THEN 70 


»=start:begr=mh (eingabe,x,O}):FOR a=i 
TO anz-1:IF mhleingabe,x ,„a)>begr TH 
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= wel APPY* 7 
Bee -.. 


ee g- 
Bar 5; 


Be 


chritt:stg=( (mh i0,nwb 


EN begr=mh (feingabe,x,a) 
NEXT=:marg=INT (240/’begr #10) /10: #=INT( 
(fFleingabe) /marg)#10) /10: IF INTIF)I<F 
THEN #=f+(0.5-(f-INT(f))) 
f=MAXi1,f) 


GOSUB 105: pro=sstart:f=f/f (leingabe):G 


OSUB 510: IF spei THEN GOSUB 2095 
CALL &BBi8:start=0:60T0 1005 


+++ Steuerung Trend Vorsc 


hau ### 
pro=7: ueber $=UPPER$ (umko$ (eingabe) +" 
/VORSCHAU/"+hm$ (hm) +umr$(eingabe)) 


begr=mhleingabe,7,Ö):FOR a=i TO anz- 
1:IF mhleingabe,?7,a)>begr THEN begr= 


mh (eingabe,7,a) 

NEXT: marg=INT (240 /begr #10) /10: #=INT( 
ak Sur ee ee INT. (f)I<# 
THEN f=f+(0.5-(f-INT(F))) 

f=MAX (1,f) 

GOSUB 115: f=f/# (eingabe) :50SUB 510:1 
F spei THEN GOSUB 2095 


trvor=0:start=0:CALL &BB18B:GOTD 1005 


*##++* Steuerung Break-eve 


n-point ### 


ECLS: max dm=maxdm (0,0) seingabe=0: f=f (0 


DE RATEN FIRRNENENN THEN eingabe=1 
ıf=f (1) 
IF maxdmteingabe,0) /maxdm(1-eingabe 


0) >30 THEN MODE 2:LOCATE 10,12: : PRINT 
"Gleichzeitige Darstellung der ":LOCA 


TE 10,14:PRINT"gewuenschten Umsatz- 
und Kosten-Werte ist nicht moeglich! 
":LOCATE 10,24: PRINT"Bitte Taste dru 
ecken":60T0 "895 
IF trvor THEN GOSUB 155: eingabe=1-ei 
ngabe:GDOSUB 155:G6G0T0 790 
! *#+#-Analyse bep-## 
#* 
x=start:begr=mh (leingabe,x,O}:FOR a=1 
TO anz-1:IF mhleingabe,x ,a)>begr TH 
EN begr=mh (eingabe,x,al 
NEXT:marg=280/begr: IF marg>1 THEN f= 
En a. ee 
+ 
ueber $=UPPER$ ("analyse/"+zeiges+"/"+ 
hm$ (hm) +umr #) :GDOSUB 105: wbep=start 
f=f/f (eingabe) :uf (eingabe) =f:G6GO5SUB 4 
05 
eingabe=s1-eingabe: f=f# (# (1-eingabe) / 
fleingabe)) :ufleingabe)=f:IF t{i-ein 
gabe) >tieingabe) THEN uf (eingabe) =uf 
N es ET a ne 
GOSUB Z05:60T0 820 
j *#*#*-Vorschau bep-# 
*+ 
max dın=mh (0,7 ,„anz-1) seingabe=0: f=f (0) 
Er il a iesnnhai THEN eingabe=1:f 
=fil 
begr=mh (teingabe,7,0}):FOR a=i TO anz- 
1:IF mh (eingabe, 7 ,a) >begr THEN begr= 
mh (eingabe,7,a) 
NEXT=zmarg=INT (begr /300#10+0.5) 7/10: f= 
EN N Eee a en 3 3 
ueber $=UPPER$ ( "VORSCHAU/"+zeiges+"/" 
+hm# {hm) +umr$leingabe) ) »:GOSUB i15 
f=f/f (eingabe) uf leingabe)=f:6GOSUB 4 
OS: eingabe=1-eingabe: f=f# (if (1-eingab 
e)/fleingabe) ):uf leingabe)=f:IF t(i- 
eingabe) >?tleingabe} THEN ufteingabe) 
ES SWAIMERNERREIN FE 72 BRIIRLES NEIN 


GOSUB 405 

ä #**-graf. Ermittlung 
bep-#++ 

IF mh (0 ,nbep ,O) /uf (0) >mh (1 ,wbep,O) /u 


fi) AND mh (0 ,nbep „anz-1) /uf (0) >mh (1 
‚sbep,anz-i1)/uf(1) THEN 870 
vorzei=1:FÜOR y=0O TOD anzleingabe}-i:d 
iff=INT {imh {1 ,wbep „y) /uf (1))- (mh (O,w 
bep,y)/uflö))) 
IF S6GNidiff) <> vorzei AND anzs=0 TH 
EN anzs=y+1 
NEXT:IF anzs=0 THEN 870 
anzs=anzs-i:gef=ABSt (mh (i „wbep „anzs) 
/uf (1))-(mh il „wbep ,anzs- 1) /uf(1)))/s 
ep „anzs) /uf (0)) -— 
{mh (0 ‚wnbep ‚anzs-1) /uf (Ö))) /schritt 
spt=0:sp=0:FOR a=st (O,anzs-i) TO st{ 
O anzs}):spt=spt+1 
top= (mh (0 „wbep „anzs-1) /uf (O)) +(stg#s 
pt): down= {mh (1 „sbep ,anzs-i}/ufti))-t 


gef#spt): abst=down-top 


IF abst<=0 AND sp=0 THEN sp=spt 


NEXT a:beph=ut /Z+sp+st (O,anzs-1):bep 


v=off+imh (0 ,wbep ,anzs-1) /uf {O))+(sp# 


stog) 

FOR a=0 TO 1:MOVE stia,a)+B,off+t (mh 
(a,nbep,a)/ufia))-i0ö)+i50#a): IF wbep 
=7 THEN TAG:PRINT "Vorschau " 


3 
IF start=& THEN TAG:PRINT umkosla)z;" 
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[Bös2E]I 925 
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9330 
C6F10] | 
m 935 
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[033C] 
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EFC98]1 
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1030 
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C155A] 1035 
CCiFEI 
[L7A38] | 
1040 
[89768] 1045 
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[BSF8] 
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C7IFEI 
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a En ua 
© . a > 


te een Tl kb 1, 


Total";:6G0TO 885 
TAG: FRINT proko$(a);sw 
NEXT:IF beph=0 THEN MOVE »end-150 
: TAGEPRINT"Kein bep vorhanden"; : SOTO 
8 


PLOT beph-25,bepv+50: TAG: PRINT INT{t 
(bepv-40) #f (eingabe) #uf (eingabe)));: 
MOVE beph,„bepv:DRAW beph,4 

wbep=0:trvor=0: start=0: anzs=0: sp=0:b 
eph=0:bepv=0: IF spei THEN GOSUB 2095 


CALL &BB18:G0T0 1005 
#+#+#+ Steuerung Kuchen-Dia 
ramm ### 
OSUB 370:CALL &BB18:IF spei THEN GO 
SUB 2095:60T0 1005 ELSE G0OTO 1005 
*##++ Anfangs-Vereinbaru 
ngen ### 
DIM hwert (1,7,253) „maxdm (1,25) ,„hmadm ( 
6,23), kuda(l, 5): bl$="(& SPACE} "umka 
$ (O)="Umsatz"zumko$(1)= "Kosten":hmf( 
1)="Kuchen-Diagramm" :hm$ (2)="Balkend 
iagramm" :hm# (3)="Trend":hm$(4)="Brea 
k-even-point" 
proko$(O)="Produkt":proko$ (1)="Koste 
nart":proko# (2)="Produkte":proko#(3) 
="Kostenarten":DIM mh(1,7,25) ,st {1,2 
3):DEFINT e,0,p,Yy 
zei$(1)="Jahre":zei$(2)= ="Jahr":zeig* 
(Z)="Monat":zei$(5)="Monate":zeif#t4) 
="Monat":zeig#(4)="Woche":zei#(57="W 
ochen":zei$(6)="Woche":zeig$(6)= ="Tag 
"s:zei#$(7)="Tage":FOR a=si TO 7 STEP 2 
szeig*l(ta)l=MID#izei$fta) ,i,LEN(zeifta) 
I=-1):NEXT 
POKE &BDEE ,„%C9 
5 “##= Hauptmenu 
e ##* 


ei S355:LDCATE 72,2:FPRINT FRE 


LOCATE 15,10:PRINT"Kuchendi agr amm-D 
ne SPACE}======}{3 SPACE} 
LOCATE 15,12:PRINT"Balkendiagramm-D 
ar,stellung(8 SPACE}======};{3 SPACE} 


LOEATE 15,14:PRINT"Trend-Darstellun 
gt17 SPACE}======>{3 SPACE}IS" 
LOCATE 15,15: PRINT"Break-even-point 
SUSE BER IUnGER SPACE}======>{3 SPAC 
LOCATE 15,18:PRINT"E N D E{27 SPACE 
3======>1{53 SPÄACEIE" 
LOCATE 15,23:PRINT"I H R E{4 SPACE} 
W AH L{i4 SPACE}B I T T E{& SPACE} 
59 ,23:PRINT"{2 SPACE}I":LOC 
ATE 59, 23: LINE INPUT a$:a=4:GOSUB 2 
265: IF fehler AND UPPERFtLas)<>"E" T 
HEN fehler=0:60T0 1035 
IF UPPER#(a#$)="E" THEN POKE %BDEE,% 
ES5:END 
hm=VAL ta$) ueber t="" 
DN hm GOTO 106050,1135,1210,1310 
#**%* Untermenue Kuchen-D 

ramm #3# 

:GOSUB 335 
LDCATE 15,8: PRINT"Kuchen-Diagramm":; 
LOCATE 15,97:PRINT STRING$(15,"-") 
LOCATE 15,11: PRINT"Eingabe Umsatz {1 
7 SPACE}---->{4 SPACEIL" 
IF maxeing(O) THEN LOCATE 15,11:PRI 
NT"Ansehen 
LOCATE 15,„13:PRINT"Eingabe Kostenfi 
7 SPACEI-——— 4 SPACE}Z2" 
IF maxeing(1) THEN LOCATE 15,13:PRI 
NT"Ansehen" 
LOCATE 15,15:PRINT"NEU-EINGABE (KOR 
REKTUR} {10 SPACEI---->{4 SPACE}IS" 
LOCEATE 15,17: PRINT"HAUPTMENUE {23 SP 
ACEI--—— >14 SPACE}H" 
LOCATE 15,235:PRINT"I h r et4 SPACE} 
W ah 14 SPACEIB i t t e{5 SPACE} 

":LDCATE 57,23: PRINT"{2 SPACE}I":LOC 
ATE 57,23: LINE INPUT af: a=3:GOSUB 2 
255: IF fehler THEN fehler=0:60T0 11 


O0 
IF UPPER#ta$)="H" THEN 1005 
um=VALla$): IF um=3 THEN 2005 
eingabe=um-i: IF maxeingteingabe) >1i 
AND prokoleingabe) >i THEN 985 
IF maxeingleingabe) THEN MODE ?2::LDO 
CATE S3,12:PRINT"Fuer Kuchen-Diagram 
m "umko$ (eingabe);" -Werte fuer min 
destens 2 ";proko$leingabe+t2);" ein 
geben!":LDCATE 50,24:PRINT"Weiter d 
urch Tastendruck" :CALL &BB18:60T0 1 


Listing. Umsatz, Kosten, Trends und Analysen 
(Fortsetzung) 
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[1824] 
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GOTO 1445 
5 ###+ Untermenue Balken-D 
jagramm ### 

CLS:GOSUB 335 

LOCATE 15,8:PRINT"Balken-Diagramm": 
 LOCATE 15,979:PRINT STRING$(15,"-") 
LOCATE 15, Sun abe Umsatz {1 
9 SPACEI--—- >14 5 PACE 

IF maxeing (0) THEN LOCATE 15,11:PRI 
NT"Ansehen" 

LOCATE 15,13:PRINT"Eingabe Kostentl 
2 SPACE}I—--—-->{4 SPACE}I2" 

IF maxeingtii) THEN LOCATE 15,13:PRI 
NT"Ansehen" 

LOCATE 15,15:PRINT"NEU-EINGABE {KOR 
REKTUR) {16 SPACE}I---->i4 SPACE}IS" 
LOCATE 15,17:PRINT"HAUPTMENUE {23 SP 
ACE}---->i4 SPACEIH" 

LOCATE 15,23:PRINT"I h r et4 SPACE} 
Wah 14 SPACE}3B i t t e{f5 SPACE}! 
":LOCATE 57,23:PRINT"{2 SPACE}":LODC 
ATE 57,23:LINE INPUT a$:a=-3:605UB 2 
255: IF fehler THEN fehler=0:60T0 ii 
75 


IF UPPER$(a$)="H" THEN 1005 

um=VAL (a#) 

IF um=3 THEN 2005 

eingabe=um-i:IF maxeingleingabe) TH 
EN 550 
GOTD 1445 
r ##%* Untermenue Trend ### 


ELS:GOSUB 3535 
LOCATE 15 ‚7:PRINT"Trend-Darstellung 
":LOCATE 15, 8:PRINT STRING# {17,"-") 


LOCATE 15,9: PRINT"Auswerten Umsatz 
Periodeil2 SPACE}---->{4 SPACEIL" 
5; IF maxeing(O)=0 THEN LOCATE 15,97:PR 
INT"Ein EmmtE SPACE}" 
LOCATE 11:PRINT"Auswerten Kosten 
Sie SPACE}---->{4 SPACE}I2" 
IF maxeingti)=0 THEN LODCATE 15,11:P 
RINT"Eingabe{2 SPACE}" 
LOCATE 15,13:PRINT"Vorschau Umsatz 
folgende Periodet4 SPACE}---->{4 5P 
ACE}S3" 
IF maxeing(O)=0 THEN LOCATE 15,13:P 
RINT SPC (32) | 
LOCATE 15,15: PRINT"Vorschau Kosten 
folgende Periodef4 SPACE}----?>T4 SP 
ACE}4" 
IF maxeingti)=0 THEN LOCATE 15,15:P 
RINT SPC (32) 
LOCATE 15,17:PRINT"NEU-EINGABE (KOR 
REKTUR) {13 SPACEI---->C4 SPACEIS" 
LOCATE 15,197:PRINT"HAUPTMENUE {25 SP 
ACEI---->{i4 SPACE}IH" 
LOCATE 15,253:PRINT"I h r et4 SPACE} 
Wahıia SPACE}IB i t t ef5 SPACE} 
":LOCATE &0,23:PRINT"{2 SPACE}":LOC 
ATE &0, 23: LINE INPUT a$:a=5:605UB 2 
265: IF fehler THEN fehler=0:G60T0 12 
70 


IF UPPER$t(a$)="H" THEN 1005 
um=VALla$)= IF (um=3 DR um=4) THEN t 
rvor=1:IF maxeinglum-3)=0 THEN fehl 
=zum-2:GOSUB 2105: fehl=0:trvor=0:60T 
0 1005 

IF (um=3 OR um=4) THEN trvor=l:eing 
abe=um-3:wbep=7:G60T0 1385 

IF um=-5 THEN 2005 

eingabe=um-i:IF maxeingleingabe) TH 
EN 1355 
GOTO 1445 
' *** Untermenue Break-eve 
oint ### 

GaSUB 2105: IF fehl THEN fehl=0:G6GOT0O 
ELS:GOSUB 335 

LOCATE 15,9:PRINT"Break-even-point" 
:LOCATE 15, 10:PRINT STRINGF (154,"-") 


LOCATE 15,12:PRINT"Auswerten vergan 
. Periodetil SPACE} ---->i4 SPACE 
LOCATE 15,14: PRINT"Vorschau folgend 
e FPeriodet{i14 SPACE}---->t4 SPACE}I?2" 


; LOCATE 15,16: PRINT"HAUPTMENUE {29 SP 
ACEI---->{4 SPACE}IH" 

LOCATE 15,23:PRINT"I h r e{4 SPACE} 
Wah 1{4 SPACEIB i t t e£{5 SPACE} 
":LOCATE 63,23:PRINT"{2 SPACE}":LOC 
ATE 53,23:LINE INPUT a$:a=2:G0SUB 2 
265: IF fehler THEN fehler=0:6010 13 


IF UFFER#(a#$)="H" THEN 1005 
um=VALta$): IF um=1 THEN 1355 
IF um=2 THEN trvor=i:vbep=7 

*### Auswahl Trend/BEF-Einz 


a In zit Br = IT 


NE 


[CCA18] 
[2D82] 


[C884] 
[2C28] 
[2010] 
[4710] 
[3218] 
[78CE] 
(54B8] 


[4176] 
L733A] 
[&0BE] 
[2844] 


[3750] 
[6814] 


133763 
[27B0O] 
[D700] 
LiCFO] 
[2B356] 
[9646] 


[L1A40] 
[8554] 


[0228] 
[LAF&CI 
[32BE] 
[5085] 


COFS2] 
[DC44] 


[8440] 


[4FA4] 
[004A] 


[97CA] 
[7016] 


[FFD&]I 
[7B52] 


2F82] 
[F1CE] 


[9BS5C] 


LA?7B] 
LAOSCI 


el/Gesamt ##%* 

ECLS:5B05UB 335: LOCATE 15,9: IF hm=3 T 

HEN PRINT umko$ (eingabe);" | 

IF trvor THEN PRINT"Vorschau"; ELSE 
FRINT zeige$; 

PRINT " "shm#thm) 

LOCATE 15, 10: PRINT STRING# (LEN (umko 

#ieingabe) )*5GN(hm MOD 4)+LENthm# (h 

m))+1+MAX (B*trvor „LEN (zeiget) ) +SGNt 

hm MOD 4) ,"-") 

LOCATE 15,12:PRINT"Auswahl : "s:If 

hm=3 THEN PRINT proko%(eingabe) ;STR 
ING$(10-LEN {proko$teingabe}))," ")5;" 
("356GN {pröokoleingabe) }; "bis";proko 
(eingabe);"}{7 SPACE}",:GOTO 1395 


' PRINT"Produkt-Kostenart {";56GN(prok 


olteingabe})s"bis";prokoteingabe);") 


PRINT"{2 SPACE}----?>{13 SPACE}L" 
LOCATE 15,14: FRINT "Gesamt i2 SPACE} 
: "ssIF hm=3 THEN PRINT umko®teinga 
be); "(25 SPACE}----?{153 SPACE}Z" ELS 
E FPRINT"Produkte-kKostenarten";"til 
SPACEI-——->13 SPACE}Z2" 
LOCATE 15,16:PRINT"Untermenue ";hm# 
(hm) 3;STRING$ (20-LENthm$ (hm)) „" ni  Ee 
{10 SPACE}---->{13 SPACE}IS" 
LOCATE 15,25:PRINT"I h r e{4 SPACE} 
Wah 114 SPACE}3B i t t e{5 SPACE}! 
":LOCATE 54,253:PRINT"{2 SPACE}":LOC 
ATE 54,25:LINE INPUT a$:a=3:G0OSUB 2 
265: IF fehler THEN fehler=0:60T0 14 
10 
w=VALta$):IF w=3 THEN ON hm GOTO 10 
60,1135,1210,13510 r Hr 
IF w=2 THEN start=&:G0T0 1435 
LOCATE 15,23: PRINT STRING$ (50, ei 
LOCATE 15 "23: PRINT"Eingabe " s: IF hm 
=53 THEN PRINT prokao$ eingabe)z;" 7“ 
ELSE PRINT"Produkt-Kostenart ”?" 
LOCATE 54,235: LINE INPUT a$:a>sproko( 
ein abe) :6OSUB 2265: IF fehler THEN 
fehler=0:6G0T0 1430 ELSE w=WVAL(a$s)ıs 
tart=w-i 
IF trvor THEN GOSUB 155: IF hm=4 THE 
N eingabe=1-eingabe:bOSUB 1 5 
ON hm GOTO 1000,1000,670,7 

“r er Porkaie * 
** 
IF maxeing(l-eingabe) >?0 AND ko=0 TH 
EN prokoz=0:G6G0OT0O 1580 
CLS:BGOSUB 335: LDCATE 15,8:PRINT "Ei 
ngabe kitmkasthinuabe)T ‘/ Periode" 


| LOCATE 15,9:PRINT STRING$ (24,"-") 


LOCATE 15,10: PRINT"Mehrere Jahre{1? 
SPALE}----?>14 SPACE}+L" 

LOCATE 15,11:FRINT"Ein Jahri4 SPACE 
+(12 Monate) {7 SPACE}---->14 SPACE} 


LOCATE 15,12:PRINT"Mehrere Monateti 
B SPACE}I----?>{4 SPACE}IS" 

LOCATE 15,13:PRINT"Ein Monat {3 SPAC 
E}i4 Wochen) {10 SPACE}-—-->14 SPACE 
74" 

LOCATE 15,14: PRINT"Mehrere Wochenti 
B SPACE}----?14 SPACE}IS" 


' LOCATE 15,15:PRINT"Eine Wochef2 5PA 


CE} (7 Tage) (12 SPACEI---->t4 SPACE) 
&" 


5 LOCATE 15,16:PRINT"Mehrere Taget20 


SPACE} ---->14 SPACE}7" 

LOCATE 15,17:PRINT"Untermenue "s;hm$ 
(hm) ; STRING$ (15-LEN (hm$ (hm) ) „" ")5;" 
£& SPACE}----?>i4 SPACE}IE" 

LOCATE 15,23:PRINT"I h r eti4 SPACE} 
Wah 114" SPACE}B i t t e{i5S SPACE}! 
":LOCATE 55,23:PRINT"{2 SPACE}":LOC 
ATE 56,23: LINE INPUT af: a=8:605UB 2 
265: IF "fehler THEN fehler=0:6010 15 


05 

IF UPPER#(a#)="H" THEN 1005 
pm=VAL(a$): IF pm=8 THEN ON hm GOTO 
1050,1135,1210,1310 

zeige$=zei$(pm) 

IF pm MOD 2=1 THEN LODEATE 15,25:PRI 
NT STRING$(S55," "):LOCATE 15,22:PRI 
NT "Ist die Anzahl der "1zeistpm);" 
bekannt{2 SPACE}?":LOCATE 15,24:PR 
INT"Eingabe: ANZAHL ";UPPER$izei#(p 
m))s;"imax 24) ODER ENTER{S3S SPACE}";3 
:LINE INPUT a$:IF af="" THEN 1540 
a=24:GOSUB 2255: IF fehler THEN fehl 

er=0:60T0 1525 

anz=VAL (a) :anz (eingabe) =anz 

prokoz=0:LDCATE 15,253:FRINT STRING# 
(50," "}:LOCATE 15, 24:PRINT STRING® 
(45," "):LOCEATE 15, 22: PRINT"Ist die 
Anzahl der ":proko$s(eingabe+t2);" b 
ekannt ”?" 

LOCATE 15,24:PRINT"Eingabe: ANZAHL ( 


[O8D2] 
[2D8&] 


[&54C] 
[2BBö] 


[OF&LE] 


[8852] 


[D158] 
[SBOC] 


[4448] 


[7F42] 


[294E] 


[?280] 
[27D8] 


EO1IF4] 


LöA2C] 


LODBE] 
[E854] 


[545C] 
L224C] 
[370A] 
[AABB] 
[8236] 


[8BOO] 
E7OF4] 


[AsAO] 
[DCFE] 


[S56E2] 
[DBC2] 


[4EBE] 


[DA7O] 
EBES3S4] 


[DC24] 
L71iEE] 


E10EB8] 


[?44E] 
[7BA4] 











1550 


1555 
15650 


1555 
1570 


1575 


1580 
1585 


1570 
1595 
1600 


1505 
1610 
2000 
2005 


2010 


2015 
2020 
2025 
2030 
2035 


2040 


2045 
2059 
2055 


2080 


20565 


2070 
2075 


2080 
2085 
2090 


2095 
2100 
2105 
2110 


2115 
2120 


2125 


max &) ODER ENTER{7 SPÄCE}"z:LINE I 
NPUT a$:proko=VAL (at): IF age" THEN 
1550 


a=54:605UB 2255: IF fehler THEN fehle 
r=0:60T0 1545 
proko=VAL (a$): IF proko THEN 1585 
*###+-Anzahl FProdukte/Kost 
enarten unbekannt-##*#* 
proko=0:0N pm GOSUB 2140,2150,2140, 
2155,2140,21680,2140,2185 
anzz=0:CL$:G0SUB 2210: prokoz=prokoz 
+1: IF hwert (eingabe ,‚prokoz-1,0)>1 A 
ND prokoz<& THEN 1570 
prokosprokoz-1-INT (prokoz /7):GOT0O 1 
&00 


€ *#*+*-Anzahl Frodukte/Kos 
tenarten bekannt-### 

GOSUB 2170: prokoz=prokoz+t1: IF proko 
z<proko THEN 1590 

IF prokoti-eingabe) >proko THEN 1590 


GOSUB 215: maxdm#=STR$ (max dm) : dm=INT 
(maxdm/16) : dm$=5TR#$ (dm) : dm ( INT {dm/ 
10” (LEN (dm$) -—2) ) #2) #10 (LEN {dm$) —2) 
maxdm=edm#1id5:maxeingleingabe}=INT«t 
eh Inge A a 
O)+1)#=10#14: max dm$ (eingabe)=STR# (ma 
»eing (eingabe) ) 

a a Ra en 300 

ON hm GOTO 705,450,1355,1365 

1 **#+ UP Neu-Eingabe/Korre 
ktur ##% 

IF maxeingt(0)=O AND ee TH 
EN ON hm GOTO 1050,1155,1210,1510 
CLS:60SUB 335:L0CATE 15,8:PRINT"Neu 
-Eingabe/Korrektur":LOCÄTE 15,9: PRI 
NT STRING#(21,"-") 

LOCATE 15, 10: PRINT"Neu-Eingabe tota 


1{1& SPACEI-——— >14 SPACE}1" 

LOCATE 15,12:PRINT"Neu-Eingabe Umsa 
tzi15 SPALEI-—— >14 SPACE}2" 

LOCATE 15,14:PRINT"Neu-Eingabe Kost 
ent{15 SPACE}---->14 SPACE}3" 

LOCATE 15,16:PRINT"Einzelkorrekturt 
ı1B SPACE}---->T4 SPACE}I4"” 

LOCATE 15,18: PRINT"Untermenue ";hm# 
(hm) 3SPC (22-LEN (hm$ (hm) )) 5" -——>{i 

SPACE}S" 


LOCATE 15,23:PRINT"I h r e{4 SPACE} 
Wah 14 SPACE}B i t t e{5 SPACE}! 
":LOCATE 57,23:PRINT"i2 SPACE}":LODC 
ATE 57,23:LINE INPUT af:a=5:605UB 2 
255:1IF fehler THEN fehler=0:60TD 20 
40 
ko=-VAL(a#)=:IF ko=5 THEN 2085 
IF ka<>4 THEN 2075 | 
LOCATE 15,253:PRINT STRING$(&0," "): 
LOCATE 15,253:PRINT"Umsatz (1) oder 
Kosten (2) ?"s:LOCATE 57,23: INPUT"", 
af: a=2:605UB 2255: IF fehler THEN fe 
hler=-0:60T0 2055 ELSE ko=VAL (at) :ei 
ngabe=-ko-1 
LOCATE 15,23:PRINT STRING$I(50," "): 
LOCATE 15,23: PRINT; proko$ (eingabe); 
" — Nummer und "szeig#®(ipm);" ?i2 5P 
ACE}ta,b})" 
LOCATE ’'57, 23: INPUT""„p,z:LDCATE 15, 
23: PRINT STRING$ (60, R »):LOCATE 15, 
23:PRINT"Neuer Wert fuer "proko$(e 
ingabe}l;pz;" 12 #(pm);z;"t2 SPACE 
+?":LOCATE 37°3 NPUT"" ‚Awert (eing 
abe,p-1,z-1) 
GOSUB 300: G6OSUB 215:60T0 2085 
IF ko=3 OR ko=2 THEN eingabe=ko-2:k 
usumleingabe)=0:maxeing (eingabe) =0: 
tteingabe)=1:FOR y=0 TOD 7:FOR a=0 T 
O0 anz (leingabe) -i:hwert (eingabe,y,aä) 
=O:mh ieingabe „y,a)=-0:maxdmieingabe, 
a)=0O:NEXT:NEXT:GOTO 1445 
CLEAR 
ON hm GDOTO 1060,1155,1210, 1310 

“#4 "up Bild abspeichern 
#4 
c#="!"+umko$(eingabe) :POKE %4B8D1,25 
S:POKE %&B802,21:5AVE c#,B,%C000, &AO 
00 


spei=0: CALL &BB18: RETURN 
*#+#+ UP Falschwahl ### 
IF maxeing(O)<=1 THEN fehl=1 ELSE I 
F maxeing(i)<=1 THEN fehl=2 
IF fehl THEN CLS ELSE GOTD 2130 
LOCATE 10,12:PRINT"Fuer ";:IF trvor 
THEN FRINT"Vorschau "; 
PRINT hm#ihm);" bitte erst fehlende 
"umkos(fehl-1);"-kWerte eingeben ! 
"LOCATE 6,25:PRINT"Weiter durch Ta 
stendruck":CÄALL %BB18B 
RETURN 
! *#*++ UP DATA-Zuweisung Fe 
riode ###* 


[5672] 


[235F6] 
[25CE] 


[69750] 
[4B32] 


[8108] 


[4956] 
EDF2A] 


C10B8] 
E8B52] 
[DBDE] 


[4708] 
[FE1O] 
L8897C] 


. [5AB84] 


[37EO] 


cC152] 
[274A] 
[35C8] 
[F7BBö] 
[BEEE] 


CBSC4] 


[3355A] 
L3BSC] 
[4FBö] 


[5384] 


[ö5AE] 


[6605] 
[3SBEO] 


EC35C) 
EF7A2] 
[D730] 
[8824] 
[5SA1A] 
[C948] 
[AO1A] 


L1B9A] 
[4520] 


[BF&2] 


[FO7A] 
CB28C] 


[L2AAS] 





2140 
2145 
2150 
2155 
21&0 
2165 
2170 


2175 


2180 


2165 
2170 


2195 


2200 


2205 
2210 


2215 


2220 


2225 


2230 


2235 


2240 
2245 


2250 


2255 
2280 


2265 


2270 
2275 


22080 
2285 


2290 
2295 
2500 
3000 
3005 
3010 
3015 


35020 


3025 
30350 


RESTORE 3030: IF anz>ö THEN lesz=anz 

: RETURN 

lesz=24:RETURN 

RESTORE 3015: lesz=1?: anz=12: RETURN 

RESTORE 3020: lesz=4: anz=4: RETURN 

RESTORE 3025: lesz=7: anz=7:RETURN 

RESTORE 50530: lesz=24: anz=24: RETURN 
*### UP Input Umsatz /k 

osten ### 

ON pm GOSUB 2140,2150,2140,2155, 214 

0,2150 ,2140 ,2165: anz (leingabe) =anz:C 


LS 
WINDOW#1 „1,80 ,25,25:PRINT#1," {CTRL 
X} Kein" ı CHR$ (32+69%*eingabe); SPC ie 
Se) PER RL ERRDE NE angefallen 
:Eingabe=s(1) {CT 
FOR y=0 TO anz-i 
READ z#: PRINT"Eingabe ";umko®ieinga 
be)};" fuer "sproko$ (eingabe) ;prokoz 
+1;"in DM, "jzeig$stpm);" = ";UPPER#$ 
(z$#)3" =:"3=:LINE INPUT a 
a=9E+37:GOSUB 2255: IF fehler THEN f 
ehler=0:60T0 21970 ELSE hwert (leingab 
e,prokoz „y}=VAL (a#) :hwert feingabe,& 
et er) ‚y)+hwert (eingab 
prokoz ,y}l:N 
Ir hwert (1-eingabe, 0,0)=0 AND anzie 
ingabe)=0 THEN CLS#1:PRINT#1, "£CTRL 
%; Fertige Grafik abspeichern{2 SP 
ACE}---> CTRL+A druecken!i3 SPACE} ( 
Weiter mit Tastendruck) {CTRL %}":C 
ALL &BB18 
ko=0: a=0: RETURN 
WINDOW#1 ,1,80,25,25:PRINT#1 „" {CTRL 
“} "seingabe#leingabe);" ";szeig®(ipm 
Jsanzz+1l;"= 0 ? ——-PEingabe = 1 {CT 
RL X} "s"{CTRL %3 Eingabe beenden ? 
--->Eingabe = OÖ {CTRL X} ":READ z# 


FPRINT"Eingabe ";umko®leingabe);" fu 
er ";proko$ (eingabe) ;prokoz+1; "in D 
M, "szeigf(ipm);" = "}UPPER#{z$);," : 
"»prokoz;sanzz:ıLINE INPUT a$ 
a= 9E+37:60SUB 2265: IF fehler AND V 
Alta#)<>0O THEN fehler=0:60T0 2215 E 
LSE IF fehler THEN fehler=0 
IF VAL{a$)>O THEN huert (eingabe,pro 
koz „anzz }=VAL (a$) ı:hwert (eingabe,d,a 
nzz)=hwert (eingabe ,d,anzz) +hwert {ei 
ngabe ,„prokoz „anzz):GOTO 22535 
ON pm GOSUB 2140,2150,2140,2155,214 
0,2150 ,2140,2155:G60T0 2245 
anzz=sanzz+til: IF anzz=lesz THEN DON pm 
GOSUB 2140,2150,2140,2155,2140,21& 
0,2140, 2165" 
GOTO 2210 
IF hwert (l-eingabe,0O,0)=0 AND anzie 
ingabe)=0 THEN CLS#1:PRINT#1,"{CTRL 
X} Fertige Grafik abspeichern{2 5P 
ACE3---> ECTRL+A druecken! (53 SPACE} 
Weiter mit Tastendruck) {CTRL X}":C 
ALL %BBiB 
IF BEE DEE FRBHET=O THEN anz (eingabe) 
=anz 
ko=0: a=0: RETURN 
*#* UP Ueberpruefen Inp 
ut ### 
IF INSTR(a$,CHR$(38)) OR INSTR(a$,C 
HR#(43)) DR INSTR(a$,CHR$(45)) OR I 
NSTRia$,CHR#F(45)) THEN fehler=1:60T 
D 2280 
IF VAL (a$)=0 AND UPPER$(aF)<>"E" AN 
D UPPER$(a$)<>"H" THEN fehler=1 


IF VALla#)<O OR WALta$)>a THEN fehl 
er=1 

RETURN | 

; *##*+ UP Abfrage Abspeich 
ern ### 


a#=INKEYf: IF a$="" THEN 2290 
IF a$="{CTRL A}" THEN spei=1 


RETURN 
”** D At A ’S ar 
DATA 620,0,3,-2,2,-3,0,-300,-2,-3,- 


DATa 372,2, 73,0,768,72, 73,735, 72,76 


Data Jan,Feb ‚Mar ‚Apr ‚Mai „Jun,Jul „Au 
g,Sep,Ükt, Nov „Dez 
DATA 1. Woche,2. Woche ,3.Woche,4.Woch 
e 
DATA Montag ,Dienstag,Mittwoch „Donne 
rstag,Freitag,Samstag,Sonntag 
DATA 1,2,3,4,5,6,7,8,7,10,11,12,15, 
14,15,16,17,18,19,20,21, 22,23, 24 


Listing. Umsatz, Kosten, Trends und Analysen 
(Schluß) 





[O2BC] 
LFECE] 
[78974] 
[A1DA] 
[48E8] 
[76A85] 


[1412] 


[D20C] 


[9DAAI 
LIFCEI 


E&4AC]I 


[FFCE] 


[40A5] 
ECFA4] 


[5384] 


[5506] 


[5AB8] 


[DOC2] 


[313A] 


[7AEE] 
[850C] 


ECABES] 


[587C] 
[DCAEI 


LCED1i4] 


[4A50] 
[5497C] 


LICAO] 
L[?F978] 


LFE4A] 
[BZFCI 
[4F6C] 
[7EBA] 
CABF4] 
LA3COI 
[27C8] 
[C2501 


LESFA] 
[89522] 
E?753B8] 


i 
re 
4 
es , 
1-9» 
| 
Ir 
Ei» . 
| 
j 


Il 
N 
1} 













er IF, ar vo F 


RP 





Wenn Ihr CPC eines kann, dann ist es rechnen. 
Schließlich bedeutet das englische Wort »Compu- 
ter« nichts anderes als »Rechner«. Aber ohne ein 
komfortables Programm, wie den »Mathematiker«, 
ist es mühsam, ihn zur Mathematik zu bekehren. 


ie Bezeichnung »laschenrechnere ist eigentlich tief- 

gestapelt, da dieses Programm nicht nur alle Funk- 

tionen eines normalen programmierbaren Taschen- 
rechners beherrscht, sondern vieles darüber hinaus. 

Nach dem Starten des Programms leuchtet in der unteren 
linken Ecke des Bildschirms eine »Taste« auf. Bei der hellen 
Umrandung handelt es sich um den Cursor, der sich mit den 
Cursorsteuertasten steuern läßt. Bewegt man den Cursor 
zum Beispiel auf die »Taste« mit dem Pi-Zeichen, läßt sich 
diese durch den Druck auf die Copy-Taste aktivieren. Als 
Resultat erscheint die Zahl 3,1415... auf dem Bildschirm im 
hell umrandeten Ergebnisfeld. 





Ihr Bildschirm verwandelt sich in das Bedienerfeld 


Zur Erklärung der einzelnen Tastenfunktionen finden Sie im 
folgenden jeweils die Taste, wie sie auch auf Ihrem Bildschirm 
erscheint: 

10* Berechnung der Potenz zur Basis 10. 

LOG Berechnung des Briggsschen Logarithmus. 

Folie wandelt sexadezimale Zahlen in dezimale um und 
umgekehrt. 

yVx zieht aus der Zahl x die y-te Wurzel. 

xX' erhebt die Zahl x zur y-ten Potenz. 

x! berechnet die Fakultät. 

M- der angezeigte Wert wird vom Speicherinhalt sub- 

trahiert, bleibt selbst aber unverändert. 

berechnet den Tangens der angezeigten Zahl. 

berechnet den Arcustangens der angezeigten 

Zahl. 

Mit dieser Taste können Sie die Winkelmaße 

umschalten. Welches Winkelmaß gerade gültig ist, 

stellt der Computer im Ergebnisfeld durch fol- 

gende Kürzel dar: 

DEG = Altgrad 

RAD = Neugrad 

GRA = Bogenmaß 

Die trigonometrischen Funktionen berechnen ihre 

Ergebnisse dem eingestellten Winkelmaß ent- 

% sprechend. 

Vx zieht die Wurzel aus der angezeigten Zahl. 

x? gibt das Quadrat der angezeigten Zahl aus. 

wandelt die angezeigte rechtwinklige Zahl in eine 

polare Zahl um. 

M+ der angezeigte Wert wird zum Speicherinhalt 

addiert, der Wert selbst bleibt unverändert. 


TAN 
TAN“ 


DEG 


_ ‘ 
ne 


cos 
cos" 


AND 


e” 


MR 
arc 


HYP 


OR 
alb 


+ 
ZINS 
RAN# 


Lx® 


NOT 
X—-M 


kgV 


ggt 
KURZ 





un a > - - f D “ E - . 
u B AR ‚ Fe! vn Dt B Fu De ie . 
EB ne u En EEE LE un 19 m Zu, ann ati A Bee 8 En 0 a A en ie ; / > 


ENTER INT FI 2 ER, 


»Taschen«-Rechner 


berechnet den Cosinus der angezeigten Zahl. 
berechnet den Arcuscosinus der angezeigten 
Zahl. 

AND-Funktion; bei Aufruf fragt der Rechner nach 
dem zweiten Wert, der mit dem ersten zu verknüp- 
fen ist. 

berechnet den natürlichen Antilogarithmus der 
angezeigten Zahl: Die Grundzahl »e« (2,7182...) 
wird zur x-ten Potenz erhoben. 

berechnet den natürlichen Logarithmus der ange- 
zeigten Zahl. 

wandelt die angezeigte Zahl in eine rechtwinklige 
Zahl um. 

löscht den Speicherinhalt. 

berechnet den Sinus der angezeigten Zahl. 
berechnet den Arcussinus der angezeigten Zahl. 
XOR-Funktion (siehe AND) 

gibt den Kehrwert der angezeigten Zahl zurück. 
zeigt die Zahl PI an. 

führt Prozentrechnungen durch. Um dem Rechner 
zu zeigen, was berechnet werden soll, gibt man 
einfach eine negative Zahl für die gesuchte Größe 
ein. 

zeigt den momentanen Speicherinhalt an. 
rechnet das Winkelargument, von dem angenom- 
men wird, daß es sich auf den in Funktion 10 ein- 
gestellten Modus bezieht, in den gewählten 
Modus um. 

Ein Druck dieser Taste verwandelt alle trigonome- 
trischen Funktionen in Hyperbel- oder Areafunk- 
tionen. Auf erneuten Druck erhalten die Funktio- 
nen ihre auf den Tasten angegebene Bedeutung 
zurück. 

OR-Funktion (siehe AND) 

rechnet einen Dezimalbruch in eine gemischte 
Zahl um. 

wechselt das Vorzeichen der angezeigten Zahl. 
Zinsrechnung (siehe Prozentrechnung). 

ergibt eine Zufallszahl kleiner 1 aber größer 0. 
gibt die Grund-Gesamtheitsabweichung der im 
Statistikspeicher stehenden Zahlen zurück. 

gibt die Quadratsumme der im Statistikspeicher 
stehenden Zahlen aus. 


NOT-Funktion (siehe AND). 

vertauscht den angezeigten mit dem Wert im Spei- 
cher. 

berechnet das kgV (kleinstes gemeinsames Viel- 
faches) der beiden extra dafür eingegebenen Zah- 
len. 

Gibt den ggT (größten gemeinsamen Teiler) zweier 
Zahlen zurück. 

kürzt die angezeigte Zahl auf die vorgebene Zahl 
der Nachkommastellen. 

berechnet die Varianz der Zahlen im Statistikspei- 
cher. 

gibt die Summe der im Statistikspeicher stehen- 
den Zahlen zurück. 

fragt nach einem Speicher und zeigt dann die erste 
Zahl dieses Speichers an. 


frei programmierbare Funktionen 


gibt Binominalkoeffizienten zurück; sucht das k-te 
Element der n-ten Zahl. 











gibt die Häufigkeits-Standardabweichung der im 
Statistikspeicher befindlichen Daten zurück. 

gibt die Anzahl der Daten im Statistikspeicher 
zurück. 





F4 

r frei programmierbare Funktionen 

F7 

PRIM entscheidet, ob die angezeigte Zahl eine Primzahl 
ist. 

X gibt den arithmetischen Mittelwert der Daten im 
Statistikspeicher an. 

NEW löscht den gesamten Statistikspeicher. 

F8 

E, frei programmierbare Funktionstasten 

F11 

MOD bietet die Möglichkeit, andere Darstellungsarten 
für Zahlen zu wählen (binär, hexadezimal); die 
Ergebnisse werden dann sowohl in dezimaler als 
auch in der gewählten Form im Ergebnisfeld darge- 
stellt. 

DATA dient zur Dateneingabe in den Statistikspeicher. 

DEL Korrektur der Daten im Statistikspeicher. 

F12 

F13 frei programmierbare Funktionen 

F14 

F15 

AC startet das Programm neu (ist als letzte Rettung 


gedacht, falls das Programm fehlerhaft sein sollte); 
alle Daten gehen verloren. 

Um dem Computer einen neuen Wert zu übermitteln, 
drückt man nur zweimal die ESCAPE-Taste. Der Computer 
meldet sich dann mit einem Fragezeichen und erwartet eine 
Eingabe. Zahlen größer 32768 sind binär nicht darstellbar, 
werden aber vom Rechner verarbeitet. 

Zur Programmierung des Taschenrechners suchen Sie 
sich eine freie Zeilennummer. Sie sollte möglichst am Ende 
des Programmes liegen. In diese Zeile schreiben Sie Ihre 
Funktion. Die Variable »d« beinhaltet immer den Wert, der auf 
dem Bildschirm zu sehen ist. Sollten Sie als Ergebnisvariable 
nicht »d« verwenden, ist nicht gewährleistet, daß die nächste 
Funktion des Programms auch richtig funktioniert (ihr fehlt ja 
der Wert für »d«). Die Variablen des Hauptprogramms sollten 
Sie, um Fehler zu vermeiden, nicht wiederverwenden (es sei 
denn, Sie wollen den Wert der Variablen in einem Unterpro- 
oramm einsetzen). Ist die Funktion programmiert, listen Sie 
die Zeile 2110 auf. Hier fügen Sie, der Nummer der Funktions- 
taste entsprechend (1 bis 15), die Zeilennummer Ihres Unter- 
Drogramms ein. Achten Sie darauf, daß die Position der Zei- 
Jennummer in der Zahlenkolonne mit der Nummer auf der 


REM Het HH 
Mathematiker 
b 


Y 
Jochen Schueler iC) 1986 
Herzogstr. 47 
REM 5558 Solingen 11 
REM RHRBRHHHHRHRHHIRHRHHHHIHIRIHHH 


CLEAR: wert=1:des=1:g>=1: f=D: w=d: d=B: KE 
Y DEF 17,1,159: KEY 1597,"mode Z2:ink 1, 
26: pen ltink @,@:paper B" 

SYMBOL AFTER 2’ SYMBOL 138,112,135,13&4 
„112:5YMBüOL 1351,128,128, 128: SYMBOL 13 
2,16580,168, 168: SYMBOL 76 ‚2,8, 2,1354,B9, 
32 36: SYMBOL 126,1,3, Pr 113, 1, 

MBOL 35,08,08,2,48,8,4,.2, 1: SYMBOL 34; 1, 
2,4,8,16,32,64,128 

180 MODE 1: INK @,@: INK 1,B: INK 2,8: INK 3 

‚8: BORDER 8: PAPER B:PEN B:0RIGIN [1 

’1,638,1,408:MOVE 318,48:DRAW 340, is 

„1:MOVE 320, 18: DRAW 358,18: MOVE 5, 39 

8: DRAWR &27 „B: DRAWR a.,-78: DRAWR -827 

‚B:DRAWR 8,978:WINDOWN #1,2,597,2,5 


s 8 sSRSKS 5 


[B1BA] 





Taste übereinstimmt. Anschließend listen Sie Zeile 580 und 
fügen hier die Zeilennummer des Unterprogramms - an ent- 
sprechender Stelle in der Zahlenkolonne - ein. Diesmal 
unterscheidet sich die entsprechende Stelle von der Num- 
mer der Funktionstaste. Um die richtige Position herauszufin- 
den, müssen Sie in der Tastatur-Abbildung nachsehen, wel- 
che Nummer die von Ihnen ausgewählte Taste hat (sie sind 
von unten links nach oben rechts von 1 bis 70 numeriert). 
Achtung! Hier ist nicht die Funktionstastennummer (1 bis 15) 
gemeint. Ist die richtige Nummer herausgesucht, subtrahie- 
ren Sie von ihr den Wert 33. Sie suchen nun die der neuen 
Zahl entsprechende Stelle in der Zahlenkolonne. Die Zahl, die 
an dieser Stelle in der Kolonne steht, muß auf jeden Fall eine 
10 sein, es sei denn, Sie haben diese 10 schon früher 
ersetzt. Jetzt ersetzen Sie sie durch die Zeilennummer, in der 
Ihr Unterprogramm beginnt. Sie können jetzt das Programm 
speichern. Ihre Funktion steht Ihnen damit jedesmal bei 
Benutzung des Programms zur Verfügung. 

Sie wollen beispielsweise die Funktionstaste »Fi« pro- 
grammieren. Dann gehen Sie folgendermaßen vor: 

-Zeilennummer suchen: 
10000 

-Funktion programmieren: 
10000 d=d+1:goto 280 

-Zeile 2110 ändern: 
2110 ON speicher GOTO 10000,30000,30000,......., 

-Zeile 580 listen: 
580 ...:ON c GOTO....... 

-Nummer der Taste heraussuchen: 
46 

-rechnen: 
46-33 =13 

-Stelle in Zeile 580 suchen: 
ON c GOTO 1930....,...,10000,... 

Die 10000 muß an 13ter Stelle die 10 ersetzen. 

-speichern 

Sollte eine Rechnung den Rechenbereich des Computers 
verlassen, fügt er selbständig eine Fehlermeldung ein. Am 
Ende des Unterprogramms kehren Sie dann mit dem GOTO- 
Befehl in die Zeile 280 zurück, da hier die Routine mit der 
Cursorsteuerung beginnt. 

(Jochen Schüler/ja) 


"Mathematiker 


CPC 464/664/6128 
Datenträger, _ Kassette/Diskette | 





FOR a=47 TO 423 STEP 9@G:FOR b=14 TO 

284 STEP 38:605UB 5108 

NEXT:=:NEXT 

RESTORE 148:PAPER UB:PEN 1:TAG:FÜOR i= 

ı TO 3ZB:READ posx „posy,num,a:PLOT po 

sx „‚posy,12PRINT CHR$ (num) 5: NEXT [544A] 

DATA 16: 225,179,1,32,2254,118,1,48,22 < 

6,45,1 CAE1®B] 

DATA 54,2254,47,1,24, > 179,1,40,196 
5@,1,40 "ie, 1,293 


‚18, 36, 1, 130, 226, 110, ‚1,123, 196, 170,1 
‚156, 51,126,1,154, 83,125,1,154,1153,1 
26, > ‚37,166 auge 32, 166, 177,1,132,1 
67,120,1,115,167,198,1,158,173,58 
Data ı 1, ‚300, 7L. 1ei, 1,318,85,976, H ‚200, 

16, 130, 1, 229, is, 131, 1, 248, is 132, 1.3 

10, 187: 255, 1,490,47, 243, 1,490, 77, ‚243 
[8518] 
178 SYMBOL AFTER B:RESTORE 188: TAG:FOR i 
=1 TO 59: READ posx „posy,num# ,asPLOT 

posx „posy„asPRINT num$: :NEXT 


Listing. Mehr als nur ein Taschenrechner 


[8A74] 
[D@D&] 


[3BC2] 








DATA 574,19,M-,1,574,47,M+,1,574,77, 
MS,1,574,107 ‚MR, 1,565, 28 286 ‚AC,1,585,2 
56 „MOD , 1,484, 18,x' 
586,DATA,1,38, Sal 

939.72, COS,1,28,46, Ian F; 
„17115,18,l06,1,2@, 136,arc 

1,55,24,x,1,392, is,x,1 
DATA 22,Y,1,292,167,X,1,33@0,167, 
Mi, 296, 21872278 1 1,292, 187, ix. ‚393) 


1 323 „1,333 „17 
ni "303 Be in 2353° 227 Rind 1 113 ‚25 
7 ‚NEW. 1 141, 197 ,x,1 1716, 134.HYP,1,18 
7,47, TAN,1,187,77,C08,1,1@7,187,SIn, 
1 


DATA 297,46,DEG,1,297,76,AND,1,287,1 
06, X0OR,1, 210, y136,0R, 1; 207, i6b: NOT, iy 


470 107 % 1 77,1n,1,476,47,R 
9,47,P, 238. "zy’p! 1, 395.77 RT. keb, 

133, ZIng. 1,558,137,RAN#,i1, "Zas: 187,Kü 

RZ, 1 ‚558,197 ,BINO, 1,477, 167,997, 1,38 


4,167 kan! 197,197 ,PROG 
A 302,197,F1,1,392, 197. ‚F2,1,482,1 
DATa = 1} 212 nt 1,302 227 ,F5 


All, 207 ,287,F12, 
7,287 ‚Flarl, 477 ut, FiS,1 
WINDOW # 33 S:WINDOW #2,2,5, 6,6 
: WINDOW ar 5. 74 "5,6: WINDOW #4,12,15 
‚si WINDOW #5,17,20,6,6: WINDOW ER = 
59 ,6,6:PRINT '45, "DEG":DEG 

VE 600,800: INK 1,26: INK 2,6: INK 3, 
SOTMBOL "AFTER 0 
CLS #1: INPUT #1,"Haben Sie den Buntm 
onitor dann Taste{2 SPACE}(1) oder h 
aben Sie den Gruenmonitor 3 SPACE}da 
nn Taste (2)"zisIF i<i ge i>2 THEN 2 
48 ELSE IF i=1 THEN INK 2,15 ELSE IN 
K 2,24 
ON BREAK GOSUB 212@:0N ERROR GOTO 15 


70 
| DIM fF(1BBB):CL5 #1 


d a=47:b=13:c=1:60T0 498 


FOR i=1 TO 1B@:NEXT:IF w<i>d THEN 1653 
® ELSE 318 
PRINT #5,"i"5BIN#(d,15):w=d:G0TO 5318 


PRINT #4, "&";HEX#(d, 16) ıw=d 
IF INKEY(B)=8B THEN 438 

IF INKEY{(1)=B THEN 378 

ı IF INKEY(2)=B THEN 448 

| IF INKEY(iB)=B THEN 4080 

IF INKEY(7)=B THEN 548 

GOTO 288 

GOSUB 518 

a=a+98: IF a>423 THEN 398 ELSE 49780 
a=47:60T0 498 

GOSUB 518 

a=a-90: IF a<47 THEN 428 ELSE 49% 
a=587:G0T0 4978 

GOSUB 518 

b=b+38: IF b>2B84 THEN 458 ELSE 498 
b=14:60T0 478 

GOSUB 518 

A b=b-308: IF b<i14 THEN 4809 ELSE 4970 
b=284 

farbe=?2: GOSUB 5538 

GOTO 288 

farbe=3: GOSUB 538 

RETURN 


MOVE a-39,b+13:DRAW a+39,b+1J3, farbe: 
DRAWR @,-24:DRAWR -78,0:DRAWR @,26:M 
OVE 6488, 1988: RETURN 

REM 

c=INT ({7#(b-13) /3@B) + (a-47) /9B) +1 

IF c>33 THEN 588 ELSE 578 

DON c GOTO 579,878,1340,65108,770,1651B, 

579,880,2278, 1240, 630, 540, 1518,718, H 
210,2208 1270,800, 1640, 1500, 730, 1048 
‚2290,1280,460,700,818@,748, 1670, 1420 
’1298.1778,770 

e=c-33:0N c GOTO 17380,19780,1268, 1258 
‚1300,670,2880,17%78 1468, 1330, 1240, 2 
1B0, 10, 10, 18,217@ 1320, 1230, 10, 18, io 
‚18,2148,1318,1130,10,1®,18,18,12@8, 
1218,1140,1@ 18, 18, „19,112 

CLS #1: IF d>37 

d=18*d:60T0 11m 

CLS #1: INPUT #1,"wievielte Wurzel";w 
:IF w=B THEN 518 

d=d*(1/w):GOTO 1118 

w=2:G60T0 428 

w=2:60T0 848 

RUN 158 

d=1/d:G0T0O 111® 

w=d: d=wariable:wariable=w: GOSUB 748 

on #1,"X="5d;" M=";wariable: GOTO 

=: 1 


| wariable=wariable-d:GOSUB 748 
GOTO 728 | 
wariable=wariable+d:G0O5SUB 748 


CA45A] 


[7F&B] 
LEiFA] 


[AIFB] 


E2974E] 
[DF74] 
[D774] 


LiFF2] 
[39740] 


LF?FBEI 
[811A] 
[31AB] 


[öösöE] 
[7C32] 
[A&F74] 
[F&4A2] 
[B7CC]I 
[C2ZEE] 
[5A42] 


[AC7&] 
[BF28] 
iFC52] 
[FI1BE] 


PRINT #1, 


888 d=EXP(d) :GOTO 111 


"neuer Speicherwert:"ıwaria 

ble:G0OTO 288 

wariable=®8:PRINT #2,"":60T0 728 

IF wariable<>B THEN PRINT #2,"M" ELS 

E IF wariable=B THEN PRINT #2," " 

RETURN 

CLS #1:PRINT #1,wariable:G0OTO 288 

d=-d:GOTO 1118 
d=Pl:GOTO 1118 

CLS #1: INPUT #1," De er 850 

ECLS #1: INPUT #1,"Prozentzahl, Grundw 
ert, Prozentwert";p,g,w:IF pißB THEN 
i=1 "ELSE IF g<®ß THEN i=2 ELSE IF w<B 
THEN i=3 | 

ON i GOTO 8598,8530,848 

d=(100*w) /’p:GOTO 1118 

d=e(p#g)/19B:CL5 #1:PRINT #1,d; CHR$ (3 
7):GOTO 288 

d=(1BB*w) /g:GOTO i11® 

d=d”"w:GOTO 1118 

d=L0618(d):G60TO 1118 

POKE %&44,1:G60T0 788 

w=PEEK (&44): IF hyp=1 THEN 918 

ON = GOTO 950,1820,1058 

ON « GOTO 748, ‚938, 928 

d=9.5# (EXP (d)-(EXP (-d)):GOTO 111@ 

d=B.5# (EXP (id) +tEXPi-d)):GOTO 1118 

d=(t{tEXPtd))-ItEXPI-dIY) /LtLEXP(dI) #+IE 
“XPt-d)))):GOTO 111B 

d=TAN{d):GOTO 1118 

IF des=3 THEN GOSUB 788 

IF hyp=1 THEN 878 ELSE 1888 

IF des“>3 THEN B78 
d=d/653.5739892: RAD | 
w=PEEK (&44):0N w GOTO 759,1828,1858 


POKE %44,2:G60T0 9788 
d=C0S(d):6G0OTO 1118 
INPUT #1,"Stelle",st 
FOKE %&44, ‚3:60T0 980 
d=SIN(d):G0TO 111® 
FOR i=-1 TO 1iBQG:NEXT:IF des<3 THEN d 
es=des+1 ELSE des=i 
ON: des GOTO 1888,1870, 1108 
PRINT #5, "DEG":DEG:GOTO 288 
FRINT #5, "RAD":RAD:GOTO 288 
PRINT #5, "GRA":GOTO 288 
CLS #1:PRINT #1,d:G0T0 2 
CLS #1:w=B:d=B: PRINT #1, 
#1,"",d:GOTO 288 
s=B: anzahl i=@:h=9: qw=ß: t=Qß: anzahl=® 
»ERASE f:DIM f(iBBB):GOTO 288 
INPUT #1,"Nr. des gesuchten Data";a 
nzahl: IF "anzahl<=® OR anzahl>100 TH 
EN 1158 ELSE CLS #1:PRINT *#1,"das i 
st Data Nr."sanzahl:PRINT #1,"Wert: 
"s# (anzahl): INPUT #1, "neuer Wert"; # 
(anzahl):GOTO 288 
CLS #1:IF anzahl<=B THEN 1168 ELSE 
PRINT #1,"Datenwerte mit Nr." 

| PRINT #1,"es sind keine Daten verfu 
egbar":60OTO 288 
FOR i=1 TO anzahli: PRINT #1,"flid;i 


=] 
"dz"s:1INPUT 


IF INKEY$="" THEN 118B ELSE NEXT 
' G0TO 288 
ECLS #1:INPUT #1,"Binaer (1), Hexadez 
imal (2) "zput:IF put<i OR put>2 THEN 
1288 ELSE 288 
IF anzahl<=8 THEN anzahl=1 ELSE IF 
anzahl<>@ THEN anzahl=anzahl+i:anza 
hli=anzahl 
ELS #1: INPUT #1,"Data";y:f(anzahl)= 
yıty#yıqw=qw+tt:h=h+y:6D0TD 288 
ECLS #1: INPUT #1,"Ziffernanzahl:",an 
zahl:60T0 288 
ECLS #1:PRINT #1,"Datensumme: ";h:60T 
0 288 
ECLS #1:PRINT #1, 
GOTO 288 
d=SOR ( (qw- (h#h) /anzahl) /anzahl) :GOT 
0 1118 
ECLS #1: INPUT #1,w:d=d AND w:60T0O 11 


18 
CLS #1: INPUT #1,w:d=d XOR w:GOTO il 
18 
ELS #1: INPUT #1,w:d=d OR w:GOTO 111 
u] 
ECLS #1: INPUT #1,w:d=d NOT w:60TO 11 


18 

d=h/anzahl:GOTO 1118 

d=SOoR ( (qw- (h#h) /anzahl) /Canzahl-1)) 
:GOTO 1118 

d=qw/ tanzahl-1):60T0 1118 

SYMBOL 130,112,136,135,112:5YMBOL 1 

31,128,128, 128: SYMBOL 132, 150, 160,1 

68: INPUT #1, "Sexagesimal (1) od. Dez 
imal (2)"sw:IF w=1 THEN 1358 ELSE IF 
w=2 THEN 1418 ELSE 1348 

ELS #1: IF d<@d THEN PRINT #1,"-"3 


"Quadratsumme: ";qw: 


[SF34] 
LAFFEI 
[BEA2] 
[FEEB] 
LFFAB] 
LICAA]I 
[CFFFB] 
[43B2] 
C46BE] 
[4ECA] 
CD4E8] 
CDABCI 
[2662] 
CI6A4] 


[7674] 


EFDCE] 
[8BD2] 
[115A] 
[SDBC]I 


L113E] 
L7EBC] 


[C?B2E] 


[B45A] 
[DB82] 
[5297A] 
L7580A] 
£397D8] 
[8064] 
CD888] 
[2CCE] 
[8828] 


CABBO] 
[BSE2] 


EiCBC] 
[7044] 


CBFEB] 
[4788] 


PAAP Py* 7 


Eu un 


on: 
a 





ü 
| 
N 
” q 
4 
h 








d=ABStd)=zc=FIX(d) :PRINT #1 ,c; CHR$(1 1978 GOSUB 2818 [48AC]I 
30) [SCEE] ‚2800 GOTO 111®@ CB7FC] 
s=d-c:ıs=s#40:c=FIX(s) [FS5@2] zu1i@ INPUT #1,"x=",„z:INPUT #1,"y=",‚n:ızae 
PRINT #i1,c;CHR$(131) [Cs3C] hler=z:nenner=n [CDI1EE] 
p=s-c:p=p#5B: PRINT #1,p;CHR$ (132) [LB9FC]I 2828 IF n>z THEN r=z:z=en:ner [CB1BE] 
G60TO 288 77B8] 20838 r=FIX (z/n) :swert=er#nır=z -wert CFiFB] 
CLS #1: INPUT #1,"Stunden, Minuten, 2848 IF r<i1 THEN d=n:RETURN [27182 
Sekunden"; st ,nin,sec:d=(((nin#4B) +s 2058 z=n [5B181 
ec) /3688) +st:G60TO 1118 [87C&ö] 2060 n=r [628A] 
1428 FOR i=1 TO 1BG:NEXT:IF hyp=i1 THEN i 287B GOTO 2830 [720E] 
448 [CA24] 2888 GOSUB 2818 CBFYA]I 
1438 hyp=1:PRINT #3,"HYP":G60OTOD 288 [97E4] 2098 d=(zaehler#nenner)/n:GOTO 1118 [F8D6] 
1448 hyp=@: PRINT #3,"":60T0 288 [1CB2] 2188 INPUT #1,"welcher Programmspeicher 
1458 PRINT #4 ,"DEG" : DEG: GOTO 2B8 [BCCA] (1-15) "s;speicher:IF speicher<i1 OR s 
1458 INPUT #1,"auf die wievielte Stelle" peicher >15 THEN 2188 C35DE] 
ıstelle: IF stelle<® THEN 146® C7AB8] 2118 ON speicher GOTO 30020 „30000 , 30000 
1478 d=ROUND(d,stelle) :GOTO 1118 [L75AA] S3Sa8B00 ,3ReoBd, 30000,302000, 32000, 3aa08 
1480 d=(18*d) :60T0 1118 C66B2] ‚>a000, 3ABa0 ‚32000 ,3BOG0 , 30000, J3a88 
1498 d=d* (1/2.71828182):60TD 1118 £S5CBA] ] [298243 
1588 CLS #1:PRINT #1,CHR$(181);5: INPUT #1 2120 CLS #1:w=8B: d=8: PRINT #1,"ds "3: INPUT 
„":",p:INPUT #1,"r:",r:d1=C0S(p)#r: u1,"".d [5974C] 
d2=SIN{p)#r:PRINT #1,"x=";5di1:ıPRINT 2138 RETURN [CB28C] 
#1,"y="5d2:60T0 328 [C4E4] 2148 IF d=2 THEN 2158 ELSE r=SQR(d): IF d 
1518 CLS #1: INPUT #1,"x:2",x: INPUT #1,"y: /2=F1X(d/2) THEN 2158 ELSE FOR i=3 
"„yıdi=SQOR (x "2+y”2):d2=ATN {y/x):PRI TO r STEP Z:IF d/i=FIXtd/i)THEN 216 
NT #1,"r=":;di1:PRINT #1,CHR$(181)+"= @ ELSE NEXT LE2CA] 
":d2:60T0 328 i [@DB2] 2158 PRINT #1,d;"ist eine Primzahl":60TO nr 
1528 CLS #1:i=1l:zahl=d: wel: j=1 . L7EAC] 328 [F338@] 
1538 PRINT #1,USING "#."si;5:PRINT #1," A 2148 PRINT #1,d;"ist keine Primzahl":60T 
bordnung"3:INPUT #1,fli):zahl=zahl*+ 0 328 [F788] 
fti)s:IF fli)=B THEN 1568 [SF&2] 217@ INPUT #1,"n,k [SF28] 
1548 s=1:FOR w=1 TOD f(i)ıs=s#twiNEXTıf(i) 2188 nken-kıdEnk;GoBUB 2 2220 [99B6] 
=: j=j#f (i)ei=i#+i [IBS5E] 2190 nk=d:ıd=k:GOSUB 22 L[3C98] 
1558 GOTO 1538 [cC21A] 22080 k=dı den: GOSUB 2220 CABB2] 
1548 s=1:FOR w=1 TOD zahl:s=s#wıNEXTızahl 2218 n=d: d=n/ (ink#k) :GOTD 1118 CB882] 
=sıd=zahl/j:60TO 1118 [CD1C] 2228 s=1:FOR w=1 TO dıs=s#w: NEXT: d=s: RET 
1578 GOTO 1578 | [4026] URN [97265] 
1588 d=@:PRINT #1,"Ergebniszahl nicht me 2238 INPUT y LCES528] 
hr erfassbar !":RESUME 288 [8512] 2248 »B=L06G(y) [C7CF2] 
1578 IF ERR=B THEN CLS #1:PRINT re 2258 coshyp= (EXP (xB) +EXP(—xB) /2}ısinhyp= 
cher nicht belegt":RESUME 288:E A (EXP (xB) -EXP i-xB) /Z2) x 1=xß- ((coshyp 
PRINT #1,"Fehler !":RESUME 288 LFEBA] -y)/sinhyp) CBD32] 
16880 IF d=8 THEN INPUT #1,"Zahl:"„ded=AB 225B PRINT x1:xB=x1:60TD 2258 [73C8] 
Std) L7C12] 227B POKE %44,1:60T0 2388 Cb4FA] 
1518 GOSUB 2228 CAA9C]I 2288 POKE LA, 2:60T0 2308 [CCBFE]I 
1528 GOTO 1118 [C18A] 2290 er &44,3 [A521 
15308 IF 1((d>32747 OR d<-32748) AND put=1 23088 E7B92] 
» OR (1d>258435455 OR d<-32769) AND 2318 IF ie THEN 2338 [7614] 
put=2) THEN 14531 ELSE 1632 CDOF4] 2328 EEE NER IAER w GOTO 2349,23508,236 
1531 PRINT #1,"Zahl nicht umwandelbar!": [5578] 
CL8 #6:w=d:G0TO 318 COF@4] 2338 NePEEK (844) ON w« GOTO 2370,2400,243 
1532 IF put=® THEN put=1 [öF2E] [1] cac74] 
1548 ON put GOTD 298,388 CA7AB8] 23548 d=9.5#L06 ((1+d) /t1-d)):GOTO 1118 [C245] 
1558 d=TAN (98-d):G60TDO 1118 C4A22] 2358 IF d<i THEN PRINT #1,"Fehler":GOTO 
1558 d=106(d):G6OTO 1118 CB3F&] 32B:ELSE d=L0G (d+SQ@R (d”2-1))3:60T0 1 
1578 pro=8: INPUT #1,"Altgrad(i), Neugrad 118 CB53A] 
(2), Bogenmass (3)}?",sorte: IF sorte< 2368 d=LOG (d+SQR (d*2+1)):60T0O 1118 LFE76] 
1 OR sorte?>3 THEN 1578 [88EC] 2378 RAD: 6GOSUB 2408 CF3CA]I 
1588 IF des<=1 THEN GOSUB 171B ELSE IF d 2388 d=ATN (d) :des=2: GOSUB 1688 [8168] 
es=3 THEN GOSUB 1738 ELSE GOSUB 175 23980 des=desi1:60T0 1118 | CE154] 
1%] [6sAB] 2408 IF d=@ THEN d=P1/2:G0TD 1118 ELSE 1 
15978 IF pro=1 THEN RETURN ELSE GOTO 1118 F d=1 THEN d=8:60T0 111B ELSE GOSUB 
[9464] 2488 [SE3A] 
1788 RETURN [CC?B] 2418 GOTO 1118 CABBö] 
1718 IF sorte=2 THEN d=d#=(18/7) ELSE IF 2428 IF d<@ THEN d=-(188#x)/PI ELSE d=t1 
sorte=3 THEN d=d#(PI/18B) [41E2] 80*x)/Pl:ıGOTO 1118 [8458] 
1728 RETURN CBBF4] 2438 IF d>i THEN PRINT #1,"Fehler":d=9:6 
1738 IF sorte=1 THEN d=d/ (18/97) ELSE IF OTO 1118 ELSE IF d=® THEN d=2:60T0 
sorte=3 THEN d=d/ (18/9)#(PI/18B) 8180] 1118 ELSE IF d=1 THEN d=8:60T0 1118 | 
1738 BETEN [8C978] ELSE GOSUB 2488 (CE&BR] 
IF sorte=1 THEN d=d/(FI1/18B) ELSE I 24408 GOTO 1118 [B40C] 
 F sorte=2 THEN d=d/(PI/188)*(18/9) L[BFB2] 2458 IF d>i1 THEN PRINT #1,"Fehler":d=98:6 
1768 RETURN [?B7C] 0OTO 111B:ELSE IF d=@ THEN 111®: ELSE 
1778 zahl=d [9B7E] IF d=1 THEN d=PI/2:60T0 111B:ELSE 
1788 ganz=zahl-FlIX (zahl) [CB4B] GOSUB 2488 [CD21C] 
1798 qwert=FIX(zahl) CE17C] 2468 IF d<B THEN d=-(188*x)/PI ELSE d=(i 
1888 zaehler=ganz ınenner=1 CD2DE] 88*x)/PI:GOSURB 1588 [F40&4] 
1818 zaehler=zaehler#10: nenner=nenner #18 2470 GOTO 2868 c75C0] 
[2D2C] 2480 RAD: GOSUB 2488 LICCE] 
1828 ganzi=zaehler-FIX(zaehler) [5C88] 24980 y=dıal=ß:ıbi=PI/2 LECBC]I 
1838 IF ganzi>8 THEN 1818 [7746] 25808 FOR i=1 TO 34 [&21E] 
1848 z=zaehler [@FiE] 25108 x=(ail+tb1)/2:IF w=3 THEN f=SIN(x)-y 
1858 n=nenner [243E] ELSE f=y-C0S ix) CAF74] 
1858 r=FlIX (z/n) swerter#n:ır=z-wert [7884] 2528 IF #<B THEN ai=x ELSE bi=x [SFAZ2] 
1878 IF r<i TEEN 1718 (3B78] 2538 NEXT [F&52] 
1888 z=n CB32C] 2540 d=(188#*x«) /PI [sCCH] 
18980 n=r [441E)] 2558 des=1:GOSUB 1488 CD17E]I 
19808 GOTO 1848 CBC24] 2560 des=desi [APA&L]I 
1918 PRINT #1 ,qgwert," (";zaehler/n;"/";ne 2578 RETURN CAE?C]I 
nner /nz")" [5BAB] 2588 des=desi CF1AA] 
1928 GOTO 288 CF8BE] 2598 d=((EXPidI-EXPi-d)I) /L(EXPLId)I+IiEXPI- 
1938 INPUT #1,"Zinsen, Kapital, Zinssatz d}’}):G0OTO 1118 [78D4] 
;‚ ZeitiJahre)",z,k,p,t:IF z<® THEN 2588 pro=1:IF des=B THEN des=1 EDFA4] 
1948 ELSE IF k<B THEN 19758 ELSE IF 2618 desi=des: IF des=2 THEN sorte=3 ELSE 
p<B THEN 1948 ELSE IF t<B THEN 1978 IF des=3 THEN sorte=2 ELSE sorte=1 
ELSE 1938 [89724] 7784] 
1948 d=(k#p*t)/100:60T0 1118 [64432] 2628 RETURN [LBF94] 
1950 d=(z#1B8) /(p*t):GOTO 1118 [CEF4] 
1940 ee 102 BESSER | 
1970 d=(z#i1B8 (k#p):60 | JE& 
1980 d=RND (6) 160107 1118 L77A8] Listing. Mehr als nur ein Taschenrechner (Schluß) 
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Ergänzen «AAPPy.x 
| Sie jetzt Ihre COMPUTER "Sammlung 


Schaffen Sie sich ein 
Interessantes Nachschlagewerk und 
er, « “.® & ® 
_ gleichzeitig ein wertvolles Archiv! 
Kennen Sie alle »Happy Computer«-Ausgaben von 1985? Suchen Sie einen ganz bestimmten 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 
‚einer speziellen Änwendung? 
finden Sie auf diesen 


Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen 
| en see 


Ude so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in 
Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 
‚dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
‚eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 
eingang umgehend zur Auslieferung gebracht. 


Computer 


Gubcksawe für Spectmurm 

SM-Er — Das Werkzeug fir Lehrling und Meister (2 64) 

Software-Knackerm darwischengepfusch: (Appte IT} 

Beaindruckend (Print — Druckprogrammi) 

Die Maus baingt Farbe den Bikischirm (Apple) 
Blazing Paddles) 


1 ure-Tenis 
Berwrußi robesı (Bumprin E &3il FTi 


or seta 

ereheuening murer das sich bohnt (Homeword’'’G Bi) 
Jane kontra En Am 
Drei Drucker im Test (STH 80, Gemini 10%, CP-B0K) 
ag nr 148 in ABS, DWE 308: Schönschrik 


” ExD 
Fine heiße Verbindung (EP 2 Er 4. EXD 10) 


TCHA: Biedermann 

Le faaibernt Anrapadpnahägt Sruna ST) 
Wie musikalisch ei mein 

9 MSX Computer im ze u 

mn ner Spectrum) 
(Discorerr 

Ein ungleichen Paar — VIE 1541 Interlane) 
Lauf, Floppy, lauf Spesdi:os pluaCH4} 


ET 


541 wind zur Rennfloppr 


ge ee or 
für alias (Recorder 3810) 
DD a de TI {HS 233 für TI BB AA) 
Kommunikation mit dem Spectrum 
‚aber gut (Ascom Alkustickoppler) 
stenert Modelleisenbahn 


France 
Where in che Word is Carmen San Diego 
Whistler's Broaher 
While Lögihtring 


i 


FEREEERFAFRETEIFFERT 
Me 
H i 
| 


tu 


Kebenkostenabrechnung (C 54) 
nun ag a u mit Simons Baal (C 64) 
in Raih’ und Gied E60 


Programme in 
a sbermulOHE 0 
Machhall auf Seite 117 in dB5 


Turbo-Basbo- für Atari BOCKL (L.d.M) 
| aul dem Drucker 
Bewegte Bilder auf dem © 64 
Beweise Gralk mit drei Befehlen (EPG 444) 
Bewegung: vom zum Zeichentrick (GC 84) 
fir Maitrindrucker Spectrum) 

et 

"Window bekommt Hachwuchs (0 64) 


Zykioide Mir Graßiker und 
Nachhall auf Saite 78 in 13.88 
Das Haus des Macars (SG 64) 
Dasher, der Voltrefler (L.d.M/C 
Hachhall auf Saite 117 in 8/85 
Der rasonde BEaider 


BEL) 
den Wolen(Fiuspenung/cöh) 

Wortsuchspiel Spectrum) 

AMPEL — grünss [scbi Mir Atari-Maschinsn-Programms 

Auf dem Laufenden mit einer Echtzeituhr (2 64) 


Dislserien aparen (© 64 

Nachhall anf Saite 46 in 11.085 

N BE a Ge 
bee alle Atari-Zomputer 

Drei Tricks für MS 

en a 

ee EEE  TRACE 
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Eball-Managar für Commodore 64 Musik 1sı711 die bisher nee 
10:00 Elfe Software (Cie neusten Programme und ihre Preise) aarl _ 
Ken Ich yemacht ce 3 | pie Spii as dom Bakastn (Eoantueten Sa an PR 1) Sonderhefte FF 
en er Zen er Computer zum Weihnachten . e enen e 7 
Meine Autmerung Bo ee Be er können Sie 
Musik und Farbe cm Bari u. Raherbniace (Nachlese) ja “ » 
fe muhr ent en Chsckrammar (c 6“ Hr Kullnng Bithowen-F er Tara direkt besie llen “ 

Prima Werkesu fir den Programmierer (C 84) 9] Aufrui Der Computer ala Steuermann a - 

beicht gemacht (CPtC 444) Ta/10 Aura Der schönste Triel von 564 10871 
Protokoll auf dem Drachen € PM Tr rain rennen nr ? a 
ne en arı Pr acc aan nung zoomen or BETRERE wer er 
ka am. 7 r !1 
Renumber 64 (C 64) Tor A Te itsaes (Die Doyle Anwendung) u SONDERHEFT 01/84: SINCLAIR 
erg rear 1 ee m BO ri Kunat in der A . Unentbehrliche Informationen zu den Sinclair 

us _ 147.19 "10 e A 
RSX-Eofahle ahre she Tarl Prabieme örsalm | 
ern nme a I = an | | open ne 
Nachhall auf Seite 80 m 127) Aufruf ee ni darı SONDERHEFT 01/85: SPECTRUM 
Baldenmreiche Büdschirnmemsch (CPC 464) zu M Wer gewinnt den goldenen Besenatiel mar gen a Listings und Tips& Tricks 
Spectrumtasten mii Funktionen belegt (Spectrum) a] Leserforum r alle sSpecirum-, 
Spectrum Tips & Tricks Is’ La Atari-Tips cal P 
Hp für Commodane-Basie (G 64) a] Autostart fir VG 30 oa 
Superhlarge für Commodore 54 Basicode-i 
IE Fe ee SE Bei 
Staraszeibe mit Uhr (Atari PM Commodar-Eck | 
Tasvord aut ante Öpecmum) FFmN Tao Eimgabesee beim Spacr B] Ho ! 
Tasword-Umlans a 2 
Texte auch im Grafikmodus (Atari) 9arE gtex! 64 an RX 80 angepaßt 10871 Ein Super-Nachschlagewerk für alle Spiele-Fans mit 
Ber: EN .o_ ra a ans abs EP Ben 100 Spielen im Test und großer Marktübersicht. 
Töns au dem Atari b 73-1 Probleme mit den langen Zallan (C 64) 185,11 
einge mehr wu Beche Kollision {C 64 IBorız rn r 2 pre 
Verenr rech CR an zer a dem Cormodere 1% ae an re ee 
ee rg kaufen anmten Gina (Atari) at en Ur ya ige Adresse beim XI ma SONDERHEFT Te in = | e 
Zei SCREENF im schnabe Wechsel Spectrum) Hu | ! r e2 al 800 XL- Joe a XE-Fans erwarten jede Menge 
Bader ren Mr Aut (C nn a Anwendungs und Spiele-Listings Prien er ee een 
i - e - 
Daten am laufenden Band | SONDERHEFT 000er : 
Daten el der echnelen Sehne on - 6 . hen Zermesginechereunte zur neuen Computer- 
Salbe geschraub bist halb gesparı 3 sin . nicht mehr Generation und eine große Vergleichstabelle, die im 
Sc lineet und schreibt d Erg I lieferbar! Detail über alle 68000er informiert. u 
; | Todafinden dlr8 SONDERHEFT 04/86: SCHNEIDER 3 
Wohin a  ssarsesisssii, Ey Eine Erweiterung für alle Schneider diese Super- 
Monitore: geplant, gekauft nos 133 Listin Einste 
a aber Ser en und ge een IE Programm-I gs und großer igerTeil. 
Farben ir Fa 12810 SORDERINET OBFOG« Age menge Sorgen 
| n Tönen a 124710 3 =; .: assen in »Pascal«, »C« und »Forth« mit jeweils ei- 
ee el En Am besten gleich nem grundlegendem Kurs und vielen Anwendungs- 
Befshlserweiterung Mir ESXICPC 464) 410 > Listings. * 
Fanta Ale Eee Brake anf den BB ET ar = ' . 
Logo-Spielerei oder emzthafte Alternative Hay lllel STÄIEHEN SONDERHEFT 06/86: 68000er 2 
au Maschine hin mit Komfarı a 2 Umifangreicher Listingteil, viele Informationen, Tips 
Deienüben Fagng im schnallen Gleichscham 1 17 e N © 7 € om ut er- und Tricks für Anwender der 68000er-Computer. 
Det Weg zum Kabelorcheater ST/1R : Beh % ui 
en ne Bar S mim Ib | 
Messarı + Bleuern = Regeln ill 
MSXL — Der Standard unter der Lape 121/’8 
Sehnimmellen — was sind das eigentlich a4 
ned Mn | 
CHE 1 
Weich Harp Gchanir 5a | Ein kompletter Jahrgang (12 Hefte) 
am AL 
1,2,3-— Kalkullenen mit der Hand ist nun vorbei 30/8 Bt in Nie praktisc y nr N 
Alpsmeine Tamm richten il m besten aleich mitbestellen! 
Schule reit Gormpniter 118/18 > 
Leine Ange vor DFÜ 15143 - 
äpiabe 1 isl’la 
Bits aul Abwegen HaTll 
Duceimc Blrll 
Ein ieurma Vi gen (DFÜ-Komten) ... 
ter aus mweiter Hand 1218 
Mahr als ein Computer (Die Commodore Storfr LEFr | 
MSX: nauer Kandard — bee Chancen 11889 
MSX-Software: Es geht 126,79 
Bau i gegen den Rest der Welt 13810 
Software (Hanf) geschenk 16110 
Softwane-Wolltrofher 14412 
Software zum Speartarif 183/16 
og Terug vo Liste 18011 
om Halimeompeter-Freak zum EOV- Spezialisten E'-Pr 
Won H nam Er 
cm Abenbeuer, ein Abenteuer zu schreiben Fr 
Wenn mal was 14012 
is, Fragen Antworan zum |3Bar Ball 
Zubehör und Software — das akbeine« 397/17 
Zu viel Kontrolle 150737 
1882 — Dias jahr dar Eisenbahn ET 
Teil 1: Der Einstieg Mir Einsteiger r 
Teil 3: Die Schildkröte lernt laufen Hrn 5 
Tail 3: Dia Schildkröte wird erwachsen 18378 
Pascal für Schüber und Lehrer 678 
Pascal für duge Köpfe’Teil 1 1,8 
Pascal für kluge Eöpie,Tell 2 121/10 
Pascal für kluge Eöpfa/Teil 3 134/11 
Schnelle Grafik für Atar Computer 124/10 
Musik mit Poke und Peek/Teil | 5473 
Musik mit Pole und PeakTail 2 Sara 
Masik mit Pokn und Peak/'Tail 3 Bü/B 
Lernen Sie Ihren Commodore 54 karınan. Tai | Bart 
Lernen 56 Ihren Commodore 64 kannan'Tal 4 Er: 
Lernan Sie Ihren Commodore #4 kennan.Tei 8 Bu 
Lernen Se Ihren Commodore Ei konnen/Teü & rl 
Larmen 3e Ihren Commodore 64 kennen’Ted T BE 
Ohne Field kein Kreis/’Teil | 44712 
Kain Buch mit sieben Sisgeln/Teil | 158,8 
Kein Buch mit soben Siegeln/’Teil 4 1as.a 
SS % 
Zugükerwachung er 7 81,8 
Basteln 
Büder aus dem Welall wa Für all Le 
Dem User Por geht ein Licht aut (C 64) sr e Ser, _ 
Üshuhew mi dem Commodore 6 Ara en “in ee kaufen, sammeln oder im | 
Wachhall auf Saite 55 in 5/85 | Abonnement beziehen, gibt es ein in- 
Nschhali auf Seite TI in 1/88 x 3 
Hene Geräiendresse für da 154} Laufwerk (C 64) ao teressantes Service-Ängebot: die Hap- 
ee py-Computer-Sammelbox! 
hen und wahben mi dem Atari rlace 4 ; : 2 : 
nm Behreibmasch menu ee an Mit dieser Sammelbox bringen Sie 
Schreibschuts Schalter (Atari 1000 Flopp) kazyı nicht nur Ordnung in Ihre wertvollen 
Sparen am richtigen „Drocker-Ende« Gincain a Hefte, sondern schaffen sich gleichzei- 
BEER FRI I in Ba DORC: S00 = tig ein interessantes und attraktives 
Exwekerungen zum TI99/4A u Nachschlagewerk. | 
Se pr rg aan Übrigens: Die Sammelbox ist nicht nur sr 
Den für ZXB] und Spectrum Fi ein isches Aufbe ngsmittel: 
Snmccne fr dan Cammndere en S: praktisc] “ eg ahrungs NDS Tragen Sie die Nummer des gewünschten 
Mhkhegpler, preisen wie nach nis 0a ie eignet sich auch hervorragend als Sonderheftes (z.B. 03/85) auf dem Bestellab- | 
Nackhait auf Salto 80 in 12/86 Sach Geschenk für Freunde und Bekannte zu schnitt der hier eingehefteten Bestell-Zahlkar- | 





te ein. 


vielen Anlässen. 











Mathe-Assistent 


Bei den Hausaufgaben in der Vektorgeometrie hilft 
Ihnen jetzt Ihr CPC. Mit dem Programm »Vektor« 
analysieren Sie problemlos dreidimensionale Vek- 
torräume. Machen Sie Ihren Schneider zum uner- 
müdlichen Ubungspartner. 





outinearbeiten aus der Vektorgeometrie, wie zum 
Beispiel Vektorprodukt, Skalarprodukt, Einheitsvek- 
tor, lineare Abhängigkeit etc. führt dieses Programm 
für Sie aus. Für Schüler ist »Vektor« ein wertvolles Hilfspro- 
gramm zur Prüfung von Aufgabenlösungen. 

Die Programmbedienung erfolgt menügesteuert und ist 
sehr einfach. Sie haben die Auswahl zwischen 9 Menüpunk- 
ten (siehe Abbildung). Nach der Auswahl einer Funktion müs- 
sen Sie die Koordinaten und eventuell noch die Anzahl der zu 
verknüpfenden Vektoren eingeben. 

Die Programmvariablen werden am Anfang des Listings 
kommentiert. Abänderungen und Erweiterungen des Pro- 
gramms sind dadurch kein Problem. 

(Karl Henes/Matthias Rosin) 





Vektorensumme. .suuunnnnnnnunen nn 
Vektorenditferenz.... 


Sralarproduk ER san amne 
ktoreniinearifagt.......:.1.2.08 
ürigventer des Teilpunktes....... 
Vektorbe are 

Pers Bess sa sera en er 
Winkel zwischen zwei Vektoren.... 
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Alle Funktionen auf einen Blick 
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LOCATE san) 


- 1: LOCA 35„22:PRINT "X-Koordinat 


! 18 REM Hs [5442] ischen 1 und $ eingeben '":PRINT CHR 
I 28 REM * WVektorberechnung + [?4EC]) #{7T)s:FOR t=1 TO 22 :NEXT:LOCATE 1% - 
7 38 REM * copyright K. Henes # [C2A4@] „Z2:PRINT SPACE$(47):G0TD 328 [4082] 
"E 43 REM reset [9C48] 3350 LOCATE 45,19: PRINT a$:0N ASClas)-48 
UR s8 REM * VWariablendefinition # [CE7B4] GOTO 340,440, 540,638, 730,838 ‚88,188 
PR &a ' Vt1B,3) * Vektorkoordinatenfeld r [51389] 8,1198 ' * Verzweigung * [CBAE2] 
'@E 7a " as * Hilfsvariable C7CC&ö] 340 REM * Berechnung der Vektorensumme # 
I; 88 # Laufvariable . C1B4A] CACBB] 
Wi O2 Anzahl #*# Vektoranzahl * [8535] 358 CLS: BORDER 1 [LAECH] 
$;- 188 ' X *+ X-Koordinate * L[iDF2] 348 LOCATE 2,2:PRINT "Vektorensumme" :LDC 
= 118 - * Y-Koordinate * LCDöF8] ATE 2,3: PRINT "----— [6&BB8] 
j4: 128 * Z-Koordinate * LCFFE] 378 LOCATE 18,5: INPUT; "Eingabe der Vekto 
h: 138 DIm Vt1B,3) ' # Vektorfeld (maximal renanzahl (maximal 18) — "„anzahl:an 
14 i® dreidimensionale Vektoren) # [5056] zahl=INTlanzahl):ı IF anzahl<i OR anza 
I: 148 CL5 [752E] h1>1@ THEN SOUND 1,1888,58:60TD 578 CDDEC]I 
er 158 INK 1,8: INK B,13:BORDER 13:MODE 2 388 LOCATE 10, 8: PRINT "Eingabe der Vekto 
14 * Farben # [BESE]I rkoordinaten - ":FOR T=1 TO ANZAHL:L 
4. 158 REM #+ Rahmen zeichnen # L773C] OCATE 7,T+97:PRINT 13". VEKTOR":LOCAT 
{ 178 MOVE 7,9:DRAW 9,391:DRAW 531,371: DRA E 25, 1+9: INPUT3 "X: "„.V(T,1):L0CATE 4 
'# W 431, 9: DRAW 9,97:MOVE 14, 14: DRAW 14, oO, T+9: INPUT3 "Y: ".V(T,2):L0CATE Ss,T 
Ei 386: DRAW 626 „386: DRAW 626, 14: DRAW 14 +9: INPUT: "2: "„ViT, 3) NEXT [?#7F8] 
Br ‚14: LDCATE 1,1:PRINT CHR$ (129): LOCA 3978 FOR T=1 TO ANZÄHL: X=X+V (T, 1a YaY+ViT 
14- TE Ba, 1:PRINT CHR# (138) 3:LOCATE 88,2 „2)s Z=ZI+V (T,3S) NEXT L724C] 
S: PRINT CHR#(1354);:LOCATE 1,25:PRINT 488 LOCATE 18 22: PRINT "Summenvektor - " 
CHR$ (132); [F484] : ne „Z21 PRINT, "X-Koor dinate > 
188 REM # Menue # [F29&4] "Xıl 238 "Y-Koordina 
19@ LOCATE 32,3: PRINT"Vektorberechnung“ LiDFA] e > ";YsLOCATE 35,24:PRINT "Z-Koordi 
288 LOCATE 32,4: PRINT" -—-——---- [7E54] nate > "ıZ ci LBiBE] 
218 LOCATE 23,7:PRINT"Vektorensumme..... 418 WHILE INKEY$="":WEND [C2B&] 
| u u GE Gr er oe or u Be ur ed Ay [CE2738] 428 IF INKEY (59) =8 THEN 342 LEB2ZE] 
228 LOCATE 23, 8: PRINT" Vektorendifferenz. 438 GOTO 148 [714A] 
a Fe zu C4BFA] 449 REM * Berechnung der Vektorendiffere En N 
238 LOCATE 23, 9: PRINT"Kreu rodukt....».» nz # [13AE 
Y „z" En CADEA]I 4508 erg 1 CSFCB] 
248 LOCATE 23,18: PRINT"Skalarprodukt.... 468 LOCATE 2 eurnenn "Vektorendifferenz" 
a ln en [L847C] ;LOCATE 2 RENT —— 
2508 LOCATE 23,113 PRINT"Vektorenlinearita [79746] 
ee st = „5" [BEAC]I 478 LOCATE 18,5: INPUT "Eingabe der Vekto 
260 DCATE 23, i2:PRINT"Ortsvektor des Te renanzahl (maximal 18) - "‚anzahlıan 
ilpunktes..... a" [CB4BC] zahl=INT(anzahl): IF anzahl<i OR anza 
278 LOCATE 23, 13:PRINT"Vektorbetrag..... h1>1@ THEN SOUND 1,1880,58:G0T0 578 LC&DEE] 
„Fr“ [BFFC] 488 LOCATE 18,8:PRINT "Eingabe der Vekto 
288 LOCATE 23, 14: PRINT"Einheitsvektor... rkoordinaten - ":FOR T=1 TO ANZAHL:L 
ee et [?D1?1 OCATE 7,T+9: PRINT T;" s VTIIN SEMERT 
(0% 298 LOCATE 23,15: PRINT"Winkel zwischen z E 25,149: INPUT3 "X: "„VCT,1)2LOCATE 4 
IE wei Vekteren....9° [FBPG] 8,1T+97: INPUT3"Y: "„V(T, 2): LOCATE 55,T 
( 308 LOCATE 34,19: PRINT"Ihre Wahlı _" CF88@] +92 INPUT "Z: ",V(T, 3) ıNEXT [7EF2] 
(a 318 REM + Keyabfrage mit Fehlermeldung # 498 X=V (1,1): Y=Vii, 2)ıZ=V (1, S)ıFOR T=2 T 
‚0 [89172] 0 ANZ ıX=X-V(T, 1)zVeY-V(T, 2): Z=7-V 
' 328 a$=INKEY$: IF a$="" THEN 328 ELSE IF (T,3) NEXT [2B88] 
# ASC (a$)<49 DR ASC (as) >57 THEN LOCATE 528 "Differenzvektor 





15,22:PRINT "Nur eine ganze Zahl zw 


DE une 
HE . 


Shen 


E3 
Zum‘ 
” 


ÄuN 


. ae; ja = 


1 . N 
NE 








512 


578 


678 


768 
7970 


818 
838 
848 


878 


718 


im ara 





e > "sX: LOCATE 35,23: PRINT "Y-Koordi 

nate > ";VY:LOCATE 35,24: PRINT "Z-Koo 

rdinate > "sZ 

WHILE INKEY#="":WEND 

IF INKEY(5Y)=8B THEN 448 

GOTO 148 

REM # Berechnung des Kreuzproduktes 

# 

CLS: BORDER 1 

LOCATE 2,2:PRINT "Kreuzprodukt":LOCA 

TE 2,33PRINT "—---— 

LOCATE 1B,8:PRINT "Eingabe der Vekto 

tn - ":FOR T=1 TO 2:LOCATE 
T+7ı1 PRINT T7". VEKTOR"ıLOCATE 25, 

Tas INPUT) "X: "„V<(T,„1):LDCATE 48,T+9 

: INPUTZ "Ya “ V(T,2) :LOCATE 55 ,T+9ı IN 

PUT5"Zs "„V(tT,3) NEXT 

X=V(1,23#V(2, 3) -VI1, DW 2, 2) ı Y=V il, 

ZIaV(2,1)-Vi1,1)#V(2,3) 1 Z=V 1,1) 8V2 

„2)3-Vi1,2)#Vi2,1D) 

LOCATE 18,15: PRINT "Produktvektor - 

"ı LOCATE 35,15:PRINT "X-Koordinate 

> "sXıLOCATE 35,16:PRINT "Y-Koordina 

te > "3Y:LDCATE "35,17: PRINT "I2-Koord 

inate > " 

WHILE INKEY£="":WEND 

IF INKEY(59)=B THEN 548 

GOTO 148 

. * Berechnung des Skalarproduktes 


CLS: BORDER 
LOCATE 2 Zu PRINT "Skalarprodukt":LOC 
ATE 2,3: PRIN 

LOCATE 18,5: INPUT} "Eingabe der Vekto 
renanzahl (maximal 18) — ",anzahlıan 
Be NE Lane Da 27 anzahl<i OR anza 
hl>1@ THEN SOUND 1,1888,50:60T0 378 
LOCATE 18, Ru ‘Eingabe der Vekto 
rkoordinaten - "FOR T=1 TO ANZAHLıL 
OCATE 7,T+97:PRINT LE Rue VEKTOR": LOCAT 
E 25, 1493 INPUTJ "Xı "„.V(iT,13:L0OCATE 4 
2,173 INPUTS" Ya Vi(T, 2) ıLOCATE 33,T 
+9: INPUT "Zı u 3) ıNEXT 

Key (1,1) YaVdi ’2)12=V(1,3)ıFOR T=2 T 
ü ANZÄHL 2 K=X#V ET l)eYayav(T,2)2: ZuluV 
if, 3) ıNEXTıERBEBNIS=X+Y+Z 

LOCATE 18,22: PRINT "Ergebnis > "ıLOC 
ATE 23,22: PRINT ERGEBNIS 

WHILE INKEYS="":WEND 

IF INKEY(59)=8B THEN 4538 

BOTO 148 

REM #= Berechnung der Vektorenlineari 
taet # 








CLSı BORDER 1 

LOCATE 2,2:PRINT "Vektorlinearitaet" 
:LOCATE 2, SıPRINT " nn 
[13 


LOCATE 18,8:PRINT "Eingabe der Vekto 

rkoordinaten - ":FOR T=1 TD 3: LOCATE 
9,T+F7ı PRINT Tı". VEKTOR":LOCATE 25, 
T+9: INPUT} "X: "„V(T,1):LDCATE 48,T+97 
ı INPUTZ"Yz "„VCT,2)ıLOCATE 55,T+9: IN 

PUT5"Zı "„V(T,3)ıNEXT 

ERGEBNIS=V (1,1) ww (2,2)#V(3,3)+V (2,1) 
et Z23#V(1,3)4V1i3 I)#V(1, ZInV(2, 3)- 

V(3,1)aV(2,2)#V (1,39 -Vk1,1)0V (3,2) UV 
(2,3) -V(2,1)#V(1,2)#V3,3) 

LOCATE 18, 15: PRINT“Ergebnis > "ıLOCA 

TE 23, IS: PRINT ERGEBNIS 

IF ERGEBNIS=® THEN LOCATE 18,17:PRIN 
T "Die Vektoren sind linear abhaengi 
g." ELSE LOCATE 18,17:PRINT "Die Vek 
toren sind nicht linear abhaengig." 
WHILE INKEY$£="":WEND 

IF INKEY(59)=B THEN 738 

GOTO 148 

REM #* Berechnung vom Ortsvektor des 
Teilpunktes # 

ELS:BORDER 1 

LOCATE 2,2:PRINT "Ortsvektor des Tei 
lpunktes": LOCATE 2,3:PRINT um 


LOCATE 18,8: PRINT ae ua des Ortsv 
:- Vektor": LOCA 


ektors vom Anfangspunk 

LOCATE 18,18: PRINT "1 

TE 25,18: INPUTI"X: "„VWi1,1):L0OCATE 4 
Q, 18: INPUT3 "Ys ".vii, 2) »LOCATE 55,18 
: INPUT "Za "wii, 3) 

LOCATE 18,12: PRINT "Eingabe des Orts 
vektors vom Endpunkt — " 

LOCATE 18,14ıPRINT "2 „ Vektor":LOCA 


TE 25,14: INPUTI"X: ",„V(2,1)ıLOCATE 4 
@,14: INPUTE"Ys "„V(2,.2):LOCATE 55,14 


ı INPUT3"Za ".vi2,3 

get 18,16: PRINT "Eingabe von Lamb 
a ” 

LOCATE 18,18: INPUT) "Lambda (nicht B 

oder -i)ı "„LAMBDA 


y 


[5318] 
[47B8] 
(B432] 
[CBE4C] 


CD488] 
[CBCA] 


[LEAA4] 


[BDA] 


(E5B8] 


L&BCA] 
[34B8] 
CD934] 
[@974C] 


LFE1A] 
LABCA] 


[7178] 


[FBF®@] 


[C8SCF4] 


CA7DE] 


[13FA] 


LEA7A] 
L1SCE] 
[DEBE] 
L77A4] 


[BEEC]I 
[S5CB®] 


[8218] 
[25538] 
[7DBB] 





748 


IF LAMEDA=B OR LAMBDA=-i THEN 918 
Wi2,1)=Vi2,1)#LAMBDA:V(2,2)=V (2,218 
AMBDA: V(2,3)=V(2, 3)#LAMBDA:X=V (1, 1)+ 
vi2,1)sY=V(di, 2)+V(2, Z2)s Z=eVil, 3)+0(2 
3) ı LAMBDA=LAMBDA+1: X=X/LAMBDA: Y=Y/LA 
MBDA: Z=Z/LAMBDA 

LOCATE 18,21:PRINT "Ortsvektor des T 
eilpunktes — "ı LDCATE 48,22: PRINT " 
X-Koordinate > ";X:LDCATE 49,235: PRIN 
T "Y-Koordinate > ";Ys LOCATE 48,24ıP 
RINT "Z-Koordinate > "ıZ 

WHILE INKEY$="":WEND 


958 IF INKEY(59)=8 THEN 838 
778 GOTO 148 
780 REM * Berechnung des Vektorenbetr age 
= eg 
998 CLSıBORDER 1 
1088 LOCATE 2 Zı PRINT "Vektorbetrag" ıLOC 
TE 2. SIPRINT N__ 
1818 LOCATE 18, Bı PRINT "Eingabe der Vekt 
orkoordinate - 
1828 LOCATE 18, 18: PRINT "Nektor "ıLDCATE 


25,1@1 INPUTI"Xs "„Vt1,1)ıLOCATE 48, 
18: INPUT3 "Ya "vd, 2): LOCATE 55,181 
INPUTs "Zr vil, 
X=Vti, yavd, ya DIV (1,2) 1 Z=V 
ci SE TEN „3) JERGEBNIS=SOR (X+Y+2) 
LOCATE 18,1SıPRINT "Ergebnis > "ıLO 
CATE 23,15:PRINT ERGEBNIS 
WHILE INKEY$="",WEND 

IF INKEY(59)=8 THEN 988 





1878 GOTO 148 


1158 
1158 
1178 
1188 
1198 
1288 
1218 


1228 


1258 
1248 


1258 


1258 


1278 


. * Berechnung des Einheitsvektor 
“ 

CLSı BORDER 1 
LOCATE 2 SIERENT 
DCATE 2, 


„_ Einheitsvektor" ıL 


LDCATE in, BI PRINT "Eingabe der Vekt 


orkoordinate -_ 
LOCATE 18, 18: PRINT "Vektor":LOCATE 
V(1,1)ıLD0CATE 48, 


25, 10: INPÜTZ "X: 
dk: Z)ıLOCATE 55,18: 


18: INPUT3 "Ya 
INPUTZ"Z: ".vc1,3) 
KV (1,1)#V 1,1) YmVl1,238Vl1,2) 1 ZuV 
(1,3)#V (1,3) 1 BETRAG=SUR (X+Y+Z) ı Bi=X 
+Y+Z:X=V (1,1) /BETRAG: Y=V (1,2) /BETRA 
Gı Z=V (1,3) /BETRAG 
LOCATE i@,14ıPRINT "Betrag des Vekt 
ors{t2 SPACEI=(2 SPACE}Wurzel aus"ıB 
El WEREBIEEIRET mit x/y/z.":ıLOCATE 
ee "Einheitsvektor — ": L 
ocAtE 35 1Tı PRINT OK Keeeäinate > 5 
FX:LDCATE 35 18:PRINT "Y-Koordinate 
> SP VILDCATE 35,195 PRINT "Z-Koordi 
nate > "ız 


WHILE INKEY$="":WEND 

IF INKEY(59)=8 THEN 18808 
GOTO 148 

REM # Berechnung des Winkels zwisch 
en zwei Vektoren # 

CLS: BORDER 1:DEBG 

LOCATE 2,2:PRINT "Winkel zwischen z 
wei Vektoren":LOCATE 2,3: PRINT 








LOCATE 18,8:PRINT "Eingabe des erst 

en Vektors -." 

LOCATE 18,1@:PRINT "1 . Vektor":LOC 

ATE 25 „18: INPUT4"Xı Vt1,1):LOCATE 
40, 18: INPUT5 "Y: vd ‚2):LOCATE 55 
‚1@: INPUTz"Zı ",vci1,3) 

LOCATE 18,12: PRINT "Eingabe des zwe 

iten Vektors —- " 

LOCATE 18,14:PRINT "2 . Vektor"sLOC 

ATE 25,14: INPUT) "Xs ",V(2,1) SLOCATE 
40, 143 INPUT5 "Y: v2, 2):LOCATE 55 
„14: INPUT3z "Zı uch. 

K=Vt1,1)2Y=Vl1, zu, S)ıFOR T=2 

TO 2: X=X#V(T,1)ı Y@YaV(T,2)2 Z=ZuV(T, 

3) NEXT 

ERGEBNIS=X+Y+ZuX=V (1 EEE TTTERER ER NT 
Z)#V(1,2)1Z=V(1,3)#V (1,3) 1ERGEBNI 

slesorckivan, X=V(2,1)#V(2,1)ı YmV(2 
2)#V(2,2):Z7=V(2,3)#V (2,3) HERBEBNIS 

3=SQR (X+Y+Z) 
ERGEBNIS3=ERGEBNIS1#ERBEBNI1S2: ERBEB 
NISSERGEBNIS/ERBEBNISSı IF ERBEBNIS= 
1 THEN ERGEBNIS=8:G0T0 1388 

REM #* Neu: Berechnung des Arcuscosi 

nus # 

RAD: ERGEBNIS=-ATN (ERBEBNIS/SOR (-ERG 

EBNIS+ERGEBNIS+1) ) +1. 57907433: ERBEBN 
1[5=188/PI=ERGEBNIS 

LOCATE 1@,18:PRINT "Ergebnis > "ıLO 

CATE 23,18:PRINT ERGBEBNISI" Grad." 

WHILE INKEYS=""sWEND 

IF INKEY(59)=8 THEN 1188 

60TO 148 

END 


Listing. Vektorberechnung mit dem Computer 





[C873C] 


[84974] 


[6@44] 
CEDCB] 
[CE348] 
[825C] 


L77E2] 
CC4DA] 


[CCBFC] 
[3DD®] 


L1iEF&] 
[F294] 
[&BBE] 
[DF18] 
L7BA4] 
[C8DACI 


LCE18A] 
[C1C2A] 


CA?1A] 
[C5D2] 


[CBAFB] 


[F?F74] 


[45901 
[861A] 
LEFF6&) 
[SAAEI 
CC969) 
[8848] 
LA23E] 


[D7BE] 


LEB38] 
(FAB2] 


[DDs4] 


[?8AC] 


L12FE] 


C[SDB4] 
[(C9788] 


[8932] 
CBS2E] 
[5C16] 
C2DF4] 


C417E] 


101 


een u 
EN ne AA 





ee EEE 
= r  — a = 
x eh 
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Bildschirm de Luxe 


Unterstreichen, Fett- und Kursivschrift und man- 
che Hervorhebung mehr kann der Schneider im 
80-Zeichen-Modus. Daß sich die Ausgabege- 
schwindigkeit dabei noch nahezu verdoppelt, fällt 
fast gar nicht mehr auf. 


ie Sie wahrscheinlich längst wissen, heißt der 

Teil im Betriebssystem, der die Zeilenausgabe 

BE steuert, TEXT SCREEN«. Und diese Routine 

kann sehr viel: Verwalten von acht Bildschirmfenstern, drei 






Schriftbreiten (Modus O bis 2), Ausführen von Steuerzeichen 


(CHR$(=) bis CHR$(31)), Darstellung des Cursors, Verwal- 
ten der Farben, transparenter Schreibmodus und natürlich 
die Zeichenausgabe auf dem Bildschirm, um nur die wichtig- 
sten aufzuzählen. Es gibt aber auch einige Unzulänglichkei- 
ten, und die sollen natürlich nicht verschwiegen werden. 

Da ist einmal die sehr langsame Zeichenausgabe auf dem 
Bildschirm. Geben Sie einmal das kleine Programm aus 
Listing 1 ein. 

Nach dem Start füllt sich der gesamte Bildschirm mit dem 
Buchstaben »a« und anschließend wird die dafür benötigte 
Zeit ausgegeben. Da uns nur die Zeit der reinen Zeichenaus- 
gabe interessiert, muß man von der im Programm ermittelten 
Zeit den Betrag abziehen, den das Programm zur Ausgabe 
von Leerstrings (a$=" ”") benötigt. Diese Zeit erhalten wir, 
wenn wir Listing 2 laufen lassen. In Zeile 80 wird deshalb der 
Betrag 0,146666667 abgezogen. 

Das Beschreiben des Bildschirms mit Zeichen - es ist übri- 
gens egal, mit welchem Zeichen der Schirm beschrieben 
wird - dauert also etwa 3.29 Sekunden. Mit dem gleichen 
Programm messen wir nachher die Zeit, die das Beschreiben 
des Bildschirms benötigt, nachdem die Routine TEXT 
SCREEN geändert wurde. 

Der Hauptgrund für diesen ziemlich hohen Zeitaufwand 
liegt bei den drei verschiedenen Schriftbreiten. Die Zeichen- 
ausgaberoutine des Betriebssystems muß natürlich so konzi- 
piert sein, daß sie allen drei Modi gerecht wird. Dies beinhal- 
tet dann für den Modus 2 (80 Zeichen) eine Unzahl überflüs- 
siger Berechnungen. Zumindest in diesem Modus kann man 
die Zeichenausgabe erheblich beschleunigen. Und wenn wir 
schon eine neue Ausgaberoutine schreiben, dann soll sie 
auch noch mehr können. 

Erweitern wir TEXT SCREEN im Modus 2 also um folgende 
Funktionen: 

- Bildschirmausgabe beschleunigen 

- Unterstreichen 

- Fettschrift 

- Kursivschrift 

- Durchstreichen 

- Durch-x-en auf dem Bildschirm 

Die Modi O und 1 sollen unverändert funktionieren. 

Die Hervorhebungen (Unterstreichen, Fettschrift und so 
weiter) werden am geschicktesten mittels Bildschirmsteuer- 
zeichen ein- und ausgeschaltet. Hier bietet sich das noch 
unbelegte Steuerzeichen CHR$(27) an. Mit einem Parame- 
ter, der CHR$(27) folgt, wird die Hervorhebungsart bestimmt 
und in Flip-Flop-Manier ein- und ausgeschaltet. 

Im allgemeinen ruft die Routine TXT OUT ACTION (ein Pro- 
grammteil des Betriebssystems beziehungsweise des TEXT 
SCREEN) den TEXT SCREEN auf. Das Programm (zum Bei- 
spiel der Basic-Interpreter beim PRINT-Befehl) übergibt im A- 
Register des Z80 den ASCII-Wert des auszugebenden Zei- 











chens. Taucht hier ein Wert kleiner oder gleich 31 auf, so 
»weiß« der TEXT SCREEN, daß ein Steuerzeichen vorliegt. Er 
verzweigt in einen Programmabschnitt, der Steuerzeichen 
bearbeitet. 
Für jedes Steuerzeichen liegt in einer Tabelle (die vom 
Betriebssystem beim Initialisieren im RAM angelegt wird) ein 
3-Byte-Wert vor, der die weitere Verarbeitung bestimmt. 
Das erste Byte besagt, wieviele folgende Ausgabezeichen 
(entsprechend der Zahl der Aufrufe von TXT OUT ACTION) 
als Parameter des Steuerzeichens zu interpretieren sind. 
Auch wenn diese Zeichen nun einen ASCIl-Wert größer 31 
haben, werden sie nicht ausgegeben, sondern bis zum Errei- 
chen der benötigten Gesamtzahl der Parameter zwischenge- 
speichert. Die anderen beiden Byte geben die Adresse der 
Routine an, die die Funktion des Steuerzeichens ausführt. Ihr 
Aufruf erfolgt automatisch, sobald der TEXT SCREEN alle 
benötigten Parameter »gesammelt« hat. Nach dem Ende der 
Routine werden die folgenden Zeichen - sofern es sich nicht 
wieder um Steuerzeichen handelt - normal auf dem Bild- 
schirm ausgegeben. 
Ursprünglich sind für CHR$(27) O Parameter sowie eine 
direkte Rückkehradresse eingetragen. Mit anderen Worten, 
CHR$(27) hat keine Funktion. Setzen wir nun in die Tabelle 
eine 1 sowie die Adresse unseres Programmes ein, kann der 
folgende Parameter ausgewertet und zum Ein- beziehungs- 
weise Ausschalten von Hervorhebungsarten benutzt wer- 
den. 
Zusammen mit einer neuen Textausgaberoutine (genauer 
einer neuen Routine für TXT WRITE CHAR des TEXT 
SCREEN, die für die Darstellung eines Zeichens auf dem 
Bildschirm verantwortlich ist), die in Modus 2 sowohl eine 
Beschleunigung der Bildschirmausgabe bewirkt, sowie für 
eine Darstellung der jeweils eingeschalteten Hervorhe- 
bungsarten sorgt, ist die Erweiterung des TEXT SCREEN 
komplett. 
Das Assemblerprogramm mit diesen Funktionen finden Sie 
in Listing 3, den entsprechenden Basic-Lader in Listing 4. 
Nachdem das Programm mit »CALL &AOO00« initialisiert 
wurde, steht der erweiterte TEXT SCREEN bis zum Aus- 
schalten des Computers zur Verfügung. 
Lassen Sie nun nach der Initialisierung der Erweiterung das 
obige Zeitmeßprogramm erneut laufen. Die Geschwindig- 
keitserhöhung ist unmittelbar zu verfolgen. Man benötigt 
lediglich noch 1.89 Sekunden zum Beschreiben des gesam- 
ten Bildschirmes. Das entspricht einer Beschleunigung um 
etwas mehr als 40 Prozent. 
Die einzelnen Hervorhebungsarten werden mit 
- PRINT CHR$(27);CHR$(1) 
Unterstreichen ein/aus 

- PRINT CHR$(27);CHR$(2) 
Fettschrift ein/aus 

- PRINT CHR$(27);CHR$(3) 
Kursivschrift ein/aus 

- PRINT CHR$(27);CHR$(4) 
Inverse Darstellung ein/aus 

- PRINT CHR$(27);CHR$(5) 
Durchstreichen ein/aus 

- PRINT CHR$(27);CHR$(6) 
Überstreichen ein/aus 

- PRINT CHR$(27);CHR$(7) 
Durch-x-en ein/aus 

ein- beziehungsweise ausgeschaltet. 

Die Zeichenfolge CHR$(27);CHR$(x) kann natürlich auch 
ein String enthalten. Zur Demonstration dient Listing 5. 















Es ist auch möglich, mehr als eine Hervorhebungsart 

gleichzeitig zu aktivieren, so zum Beispiel Fettschrift und 

- Unterstreichen oder jede andere beliebige Kombination. Nur 
Fett- und Kursivschrift heben sich gegenseitig auf. 

Unsere Routine sieht eine Funktion zum Blockieren von 
Änderungen der Hervorhebungsart vor. Nach der Eingabe 
von 
PRINT CHR$(27) ;CHR$(0) 
werden alle folgenden Änderungskommandos ignoriert. Das 
heißt, der Zustand, der zu diesem Zeitpunkt vorliegt (bei- 

_ spielsweise Unterstreichen und inverse Darstellung) bleibt 
erhalten. Um diesen Zustand wieder aufzuheben, ist die Ein- 
gabe eines Parameters mit einem Wert größer als 127 nötig, 
also zum Beispiel 
PRINT CHR$(27) ;CHR$(128) 

Nun werden alle Veränderungen der Hervorhebungsart 
wieder bearbeitet. 

Das Assemblerprogramm ist folgendermaßen aufgebaut. 
Zunächst werden - da man tunlichst nur über die vorgegebe- 
nen Vektoren Betriebssystemroutinen aufrufen soll - die ent- 
sprechenden Restarts der Vektoren in Aufrufe umgewandelt. 
Dies funktioniert problemlos, weil die erforderliche Speicher- 
konfiguration bereits vor dem Aufruf unseres Programms ein- 
gestellt ist. 

Die Vektoren enthalten einen Restart-Befehl, gefolgt von 
einer Startadresse im Betriebssystem. Daß bei dieser 
Adresse das siebte Bit gesetzt ist, hat etwas mit dem ange- 
wählten ROM zu tun und braucht uns hier nicht weiter zu 
interessieren. Der Restart schaltet nun die Speicherkonfigu- 

‚ration um, so daß die in den beiden obersten Bits angewählte 

 ROM-Adresse aktiviert wird. Der Aufruf erfolgt dann im richti- 
gen Speicherbereich. Das ist notwendig, damit die Vektoren 
von jeder beliebigen Speicherkonfiguration aus funktions- 
fähig sind. 


MODE 2 | 
a$=5TRING$ (B8,"a"”) 
t=TIME 


FOR z=1 TO 25 
LOCATE 
PRINT 


1,z 
as 


BD NEXT z 
PRINT (TIME-t)I /300-B. 14,64.u467 


| Listing 1. Mehr als drei Sekunden, um den Bildschirm 
I voll zu schreiben 









Listing 3. 180 
Der Quellcode für = 
»Bildschirm de Luxe« = 

220 


mE EEE nE BE Er TE ED a nn a 


Bildschirmausgabesteuerung 


Funktion: Die Ausgabe von Zeichen in MODE 2 
wird von diesem Programm erweitert. 
Neben einer Beschleunigung der Ausgabe 
um etwa den Faktor 2 werden ueber 
das Steuerzeichen CH®P&(27) + CHRS(K«) 
folgende Ausgabefunktionen realisiert: 


- Unterstreichen 

- Doppeldruck / Fettschrift 

- Kursivschrift / Schmalschri ft 

- Inverse Darstellung (zusaetzlich 
zu CHR$(24) ') 


Da unser Assemblerprogramm, wenn es initialisiert ist, nur 


vom TEXT SCREEN aus aufgerufen wird, ist immer gewähr- 


leistet, daß das untere ROM eingeschaltet ist. Die Umkonfr 
guration des Speichers mit einem Restart gestaltetsichsehrr 
zeitaufwendig. Ein einfacher Aufruf hingegen ist erheblich 


schneller. 


Das Programm kopiert also die hinter denRestartsderVek- | 










toren stehenden Startadressen (nachdem Bit 7 zurückge- 


setzt wurde). Somit ist auch die Kompatibilität zu anderen 


Betriebssystemen (CPC 464, 664 und 6128 haben unter- 


schiedliche Betriebssysteme) gewahrt. Nach dem Kopieren 
wird der Vektor für TXT WRITE CHAR auf den entsprechen- 


den Startpunkt im Programm gesetzt und die Tabelle für de i 
Steuerzeichen abgeändert. Im folgenden steht die Ersatz- 


routine für TXT WRITE CHAR und das Programm zur Behand- 
lung der Steuerzeichen. 


Die Hervorhebungsarten werden im wesentlichen inner- 


halb des Assemblerprogramms erklärt. Fettschrift bezie- 
hungsweise Kursivschrift entsteht dadurch, daß das Bitmu- 


ster der Buchstaben jeweils um ein Bit verschoben und 


anschließend mit dem Originalmuster OR- (Fettschrift) bezie- 
hungsweise AND-verknüpft (Kursivschrift) wird. Dadurch 
erscheint die Schrift auf dem Bildschirm fett und heller bezie- 
hungsweise schlank und dunkler als normal. 


(Matthias Engelbach/hg) & 


















Kassette, Diskette 


NEXT z 
PRINT {TIME-t) 300 





Listing 2. Die Programmbearbeitung ist schnell 








Bildschirm delxe ee 
CPC 464/664/6128 ie 
























Durchstreichen 
Veberstreichen 
- Durch - x - en 


Die Ausgabe von Zeichen in MODE 0 und 
MODE 1 wird nicht beeinflusst. 


= sE. -eo - w.o-;i =. 


—-:s. e- © 


org #A000 


Initialisieren 


FESTARTS in JUMFs umwandeln 


Fa Fa a Ma Far 


ld 
res 


1d 


ld 
res 
1d 


ld 
res 


ld 


ld 
ld 


hi, (#BBAG) 
7,h 
(getmat),hl 


hl, (#BC1B) 


7,h 


(chrpos),hl 


hl, (#BC12) 
7,h 
(getmod),hl 


h1, (#BDD4) 
(txtwrt),hl 


Vektor von TXT GET MATRIX 
FOM-Bit ruecksetzen 
in Programm eintragen 


Vektor von SCR CHAR POSTTION 
ROM-Bit ruecksetzon 
in Programm eintragen 


Vektor von SCR GET MODE 
ROM-Bit ruecksetzen 
in Programm eintragen 


Indirektion TXT WFITE CHAR 
in Programm eintragen 


TXT WRITE CHAR verbiegen 


ld hl,wrto 
id (#BDD4),hl 


; Adresse Textausgabe im Programm 
in Indirektion TXT WRITE CHAR eintragen 


Controlcodetabelle verbiegen 


TXT GET CONTROLS 
Adresse Controlcodetabelle sichern 


call #BBB1 

push hl 

ld de,24 Code fuer CHR$(24) 
add hl,de 

690 add hl,de 

700 add hi,de 
inc hl 

720 ld be,invö 

730 ld chld,c 

740 inc hl 

750 ld chil),b 


Adresse Controlcode fuer CHR$(24) 
Sprungadresse fuer CHR$(24) 
Einsprungadresse zum Invertieren 


als Adresse Controlcode CHR${24) eintra 


760 
770 pop hl 
780 ld de,27 
790 add hl,de 
800 add hl,de 

add hi,de 
820 id ch1),1 
830 inc hl 
B40 ld bec,functo 
850 ld Chil),e 
B60 inc hl 
870 ld <hl),b 


Adresse Controlcodetabelle wiederholen 
Code fuer CHR$(27) 


Adresse Controlcode fuer CHR$(27) 
; Anzahl Parameter auf eins setzen 


; Einsprungadresse Steuer funktionen 


als Adresse Controlcode CHR$(27) eintra 


880 ; 

890 Ende Initialisierung 
Foo 

910 ret 

920 
930 
940 
350 
960 
970 
980 ; 

3930 steuer: defb #80 ‚ Steuerflag (bit 0-6 fuer Funktionen) 
1000 char: defb 0,0,0,0,0,0,0,0 ; Ergaenzungsmatrix 

1010 invert: defb 0,0,0,0,0,0,0,0 j Invertierungsmatrix 

1020 xtab: defb #B1,#42,424,#18,#18,#24,#42,#81; x - en 

1030 sttab: defb #00,#01,#02,#04,#08,#10,#20,#40; Bittabelle 

1040 ; 


Listing 3. Der Quellcode für »Bildschirm de Luxe« (Fortsetzung) 


Nariablendefinitionen 


ugurg: 
Es 










für sd un an —. c 6128 + — 
DIN. 






RESEARCH 





Draw: Macht aus Ihren Ideen ein Kunstwerk 


wenden Sie DR Draw, um Organisations-Diagramme, Flußdiagramme, Logos, techni- 

> Zeichnungen, Schaubilder, Platinenentwürfe und jede nur erdenkliche Art von 
sen- und Formgrafiken zu entwerfen. Und jeder Bestandteil Ihrer Zeichnung kann auf 
Eeältige Weise durch Farben und Schraffuren hervorgehoben werden. 


achste Bedienung 


Draw verwendet leichtverständliche Menüs zur Steuerung seiner Funktionen und 
sllung einer Zeichnung. Sie können aus vorprogrammierten Figuren wie Kreisen, 
gern, Rechtecken, Kreisbögen, Polygonen und Linien auswählen oder Ihre eigenen 
entwerfen oder die bestehenden verändern. An beliebigen Stellen kann erläu- 

acer Text in eine Zeichnung eingefügt werden. 


zibilität bei der Gestaltung 


= Teil einer Zeichnung kann auf Tastendruck überarbeitet und verändert werden: 
en können mit Farben oder Mustern gefüllt werden; sie können vergrößert oder ver- 
nert oder an eine neue Position verschoben oder kopiert werden. Ebenso können die 
en, Größen, Farben und Positionen mit wenigen Tastendrücken geändert 


sgabe auf Papier, Transparentfolie oder Film 


immer Sie erstellen, kann gespeichert oder zu Berichts- und Präsentationszwecken 
# Papier, Transparentfolie oder Film geplottet oder gedruckt werden, DR Draw druckt 
Zeichnung exakt auf eine DIN-A4-Seite. 


arevorausseizungen 


E Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 

= Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 

a werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
a-Drucker sowie der Plotter HP7470A. 


s Fähigkeiten auf einen Blick 

F Erstellung beliebiger Zeichnungen 
“orprogrammierte Figuren wie Kreise, Quader, Rechtecke, Kreisbögen, Polygone 
und Linien 

# Teie Wahl der Gestaltungselemente wie Farben, Muster und Schriftarten 

# Vergrößerungen und Ausschnittdarstellungen 

# jeile einer Zeichnung können kopiert, verschoben oder gelöscht werden 
Grafiken können gespeichert, geplottet oder gedruckt werden 
einfache Bedienung durch Menüauswahl 


DM 199,-* (sFr. 178-165 1890,-) 


i-Nr. MS 613 





=. MwSt. Unverbindliche Preisempfehlung 






> Markt &Technik-Softwareprodukte erhalten 
ein den Fachabteilungen der Kaufhäuser und 
smputershops. 





Markt&dechnik. 


Unternehmensbereich Buchverla 
Hans-Pinsel-Straße 2, 8013 Haar bei München 





DR Grap 


DR Graph: Präsentationsgrafiken mit professionellem Niveau 


DR Graph ist ein interaktives Softwarepaket, mit dem Sie Ihren Mikrocomputer zur Er- 
stellung von Geschäftsgrafiken und Text-Charts verwenden können. DR Graph macht 
es leicht, komplexe geschäftliche oder wissenschaftliche Daten in übersichtliche und 
aussagekräftige Grafiken zu verwandeln. 


Einfachste Bedienung 


Mit DR Graph können Sie die Grafik dem Computer schnell und leicht beschreiben. Zur 
Erstellung einer Grafik werden die gewünschten Optionen ganz einfach aus übersichtii- 
chen Menüs ausgewählt. DR Graph kann von jedermann bedient werden, der mit einfa- 
chen Grundlagen der Mikrocomputerbedienung vertraut ist. 


Flexibilität bei der Gestaltung 


Zusätzlich zur vorhandenen Computerschrift stehen drei verschiedene Schriften für 
Titelzeilen, Legenden und Anmerkungen zur Verfügung. Auch bei der Gestaltung der 
Grafiken kann aus zahlreichen Linientypen, Linien- und Balkenbreiten und acht Schraffu- 
ren gewählt werden. 


Ansehen, speichern und drucken 


Mit DR Graph können Sie auf dem Bildschirm immer genau sehen, wie Sie Ihre Grafik 
gestalten. Anschließend können Sie sie drucken oder auf Diskette speichern, um sie 
später weiter zu bearbeiten, 


Hardwarevoraussetzungen 

DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotterausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 

® Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Grafiken, Strich- 
Histogramme, Punkte-Grafiken und Text-Grafiken 

® freie Wahl der Gestaltungselemente wie Beschriftungen, Titelzeilen, Legenden, 

Farben, Schriftarten und Ränder 

frei wählbare Skalierung 

variable Linien- und Balkenbreite 

Schnittstelle zu anderen Programmen 

beliebig positionierbare Anmerkungen 

Grafiken können gespeichert, geplottet oder gedruckt werden 

einfache Bedienung durch Menüauswahl 


DM 199,-* 


Best.-Nr. MS 614 (sFr. 178,-16S 1890,-*) 


Bestellungen im Ausland bitte an 
untenstehende Adressen. 

Schweiz; Markt&Technik Vertriebs AG, 
Kollerstr, 3, CH-6300 Zug, Tel. 042/41 5656 


Österreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Alser Straße 24, 
A-1091 Wien, 0222/48 15 38-0 
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chrpos: 
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Ausgabe von Zeichen auf Bildschirm 


ersetzt TXT WRITE CHAR 


Zeile / Spalte sichern 
a sichern 


CALL TXT GET MATRIX 
ex Adresse der Matrix dach de 
defb #CD 


defw #0000 CALL SCR GET MODE 
cp #02 ist Mode gleich 2 ? 


ld ac a wiederherstellen 

pop hl Zeile / Spalte wiederherstellen 
defb #C2 

defw #0000 + JP NZ,TXT WRITE CHAR 


defb #CD 
defw #0000 CALL SCR CHAR POSITION 


push iy 
ld iy,char Ergaenzungsmatrix 


Matrix ergaenzen und in den Bildschirmspeicher 
uebertragen 


ld 5,8 

ld a,(steuer) 

ld c,a Steuerbyte nach c< 

ld a,Chl) Zeichenmatrix nach a 


bit 1,c ; Doppeldruck / Fettschrift ein ? 
jr z,wrti3 nein ==> 

srl a Matrixbyte nach rechts schieben 
or (hl) ' mit Originalmatrix "OR" 


bit 2,c :» Schmalschrift / Kursivschrift ein ? 
jr  z,wrt15 nein ==> 

sla a Matrixbyte nach links schieben 

and (hl) mit Originalmatrix "AND" 


or (iy+#00) mit Ergaenzungsmatrix "DR" 
xor (iy+invert-char) invertieren 
ld c(de),a Matrixbyte auf den Bildschirm bring 


ld a,d 
add a,#08 
ld d,a eine Zeile tiefer 


inc hl naechstes Matrixbyte 
iy naechstes Ergaenzungsbyte 


wrti10 Matrix fertig ? 


Invertieren FLIP - FLOP 


ld hl,invert 

ld a,{hl)  Invertierungsbyte nach a 
xor #FF "umdrehen" 

ld b,8 

ld (hl),a 

inc hl 

djnz inv3 


jp  #BBSC 























AOBSB 
AOBB 
AOBD 
AOBF 
AOC1 


AOC2 
AOc4 


AOCB 
AOCA 


AOCB 


AOCD 


AOCE 
AOD1 
AODS3 
AOD4 
AODS 


AODI 


AODC 
AODD 
AODF 
AOE4 
AOE& 
AOEB 
AOEI 


ADEA 
AOEB 


ADEC 
AOFO 
AOFZ 
AOF4 
AOF& 
AOFB 
AOFA 


AOFC 
A101 


A104 


A1LOS 


2146A0 
FEOO 
2003 
CBBE 
CI 


CB7F 
2802 
CBFE 


[ ‘B 7 E 
C8 
FEOS 
DO 


215FA0 
1600 


19 
BA4EAO 


3246A0 


79 
E607 
Z21ECAO 


25 


19 
19 


garım 


05A1 
FCAO 
05A1 
O6A1 
O7A1 
OAA1 
13A1 
ICA1 


SA4EAC 


324EA0 








Listing 3. Der Quellcode für »Bildschirm de Luxe« (Fortsetzung) 








Behandlung von Steurzeichen CHR$(27) + CHR$(x) 














unetO: 1d hl,steuer ; Adresse Steuerbyte nach hl 
1990 er 0 ; Paramater a=0 ? 
2000 jr nz, funct4 ı nein ==> 
2010 res 7,(hl) ; Highbit Steuerbyte loeschen 
2020 ret 
2030 3 
2040 funct4: bit 7,a ; highbit im Parameter gesetzt ? 
2050 ir  z, funct6 ; nein ==> 
2060 set 7,(hl) ; Highbit Steuerbyte setzen 
2070 ; 
2080 functb: bit 7,(hl) ; Highbit Steuerbyte gesetzt ? 
2090 ret z - ; RETURN wenn nicht 
2100 ; 
2110 cp B ; Parameter > 7 ? 
2120 ret nc ; ja ==> RETURN 
2130 ; 
2140 ; 
2150 ; a-tes Bit des Steuerbyte umdrehen 
2160 ; 
2170 ; 
2180 ld hl,sttab ; Adresse Bittabelle Steuerbyte 
2190 ld d,O 
2200 ld ea 
2210 add hl,de 
2220 ld a,tsteuer) ; Steuerbyte nach a 
2230 xor (hl) ; entsprechendes Bit umdrehen 
2240 ld (steuer),a ; abspeichern 
2250 ; 
2260 ; 
2270 3; gemaess a springen 
2280 ; 
2290 ; 
2300 ld a,c ; a wiederherstellen 
2310 and 7 ; a modulo 7 
2320 ld hl,funtab ; Adresse Sprungtabelle nach hl 
2330 ld d,0 
2340 ld ea ; a nach de 
2350 add hl,de 
2360 add hl,de 
2370 jphlin: ld e,(hl) 
2380 inc hl 
2390 ld d,(Chl) 
2400 jpde: push de 
2410 ret  jp (de) 
2420 3 
2430 ; 
2440 ; Sprungtabelle fuer Parameter 
2450 ; 
2460 ; 
2470 funtab: defw funt20 
2480 defw funti10 
2490 defw funt20 
2500 defw funt30 
2510 defw funt4O 
2520 defw funt50 
2530 defw funt&60 
2540 defw funt?70 ; Sprungadressen fuer Param 1-7 
2550 3 
2560 ; 
2570 ; Param 1 » Unterstreichen ein/aus 
2580 ; 
2590 5; 
2600 funti0: ld a,{char+?7) ; Ergaenzungsmatrix, letztes Byte 
2610 xor #FF ; umdrehen 
2620 ld (char+7),a ; abspeichern 
2630 ; 
2640 ret 
2650 ; 
2660 ; 
2670 ; Param 2 : Doppeldruck / Fett ein/aus 
2680 ; 
2690 ; 
2700 funt20: ret 
2710 3 
2720 ; 
2730 ; Param 3 : Kursiv / Schmaldruck ein/aus 
2740 ; 






2750 3 
2760 
2770 
27B0 
2790 Param 4 : Invertieren ein/aus 
2800 
2810 
C3A3AO 2820 
2830 
2840 
2850 Param 5 : durchstreichen ein/aus 
2860 
2870 z 
3A4AAO 2880 funt50: Id a,(char+3) 
EEFF 2890 xor #FF 
324AAO 2900 ld (char+3),a 
2910 » 
29 2920 ret 
2930 
2940 ; 
2950 Param 6 : ueberstreichen ein/aus 
2360 
2970 : 
3A47A0 2380 funt60: ld a,lchar) ; 1. Byte der Ergaenzungsmatrix 
EEFF 2990 xor #FF 
3247A0 3000 ld (char),a 
3010 
CI 3020 ret 
3030 ; 
3040 3; 
3050 ; 
3060 ; 
' 
f 





unt40: jp invO ; JUMP invertieren 


4. Byte der Ergaenzungsmatrix 
umdrehen 
; abspeichern 


; abspeichern 


Param 7 ı: durch - x - en ein/aus 


3070 ; 
FD2147A0 3080 funt70: 1d iy,char 
O6OB 3090 ld b,8 
FD7EOO 3100 funt?3: 1d a,liy+#00) 
FDAE1O 3110 xor (iyt+xtab-char) 
FD7700 3120 ld Cy+400),a 
FD23 3130 inc iy 
10F3 3140 "djnz funt73 

3150 ; 
cI 3160 ret 


; Adresse Ergaenzungstabelle 


Ergaenzungsbyte 
Tabelle durch-x-en 
abspeichern 

; Zeiger erhoehen 


Listing 3. Der Quellcode »Bildschirm de Luxe« (Schluß) 


DATA 2A,A6 ‚BB,CB,: 
CB,BC,22,78,AQ, 
A CB,BC,22,6E 


‚6A,AB,2A,1B,BC 


‚D 
er LASFA] 


18 MODE 2 
28 FOR z=1 TO 7 
38 PRINT"Dieses 


[3056] 
4,BD,22,75,A8 
9,19,23,801,49 oben" 


[8778] 408 NEXT z 


"sCHRE(ZFISCHR$E (zZ); "W o 
r t"5CHR$(27);CHR$(z);" ist hervorgeh 


[CDFFB] 
LCEE16] 


CD4A6 3 
C7BBA] 


Eco 


De m 
NESSRER 


3,01,B8,AQ,71,23 
20 

‚20,00,00,00 
‚48,E5,4F,CD 
00,09,CD,00,00 
‚49,28,83,CB 
‚12,7A,C6ö,08 
EEJEE)06,08, 77,2 


46 

ner .C9, CB,„7’F,„28,8 

2, CB, FE, CB, ’E, cB ‚FE,BB, De’ 

DATA 21,5F ‚AQ.1&, 80,5F,17,3A,46, AB, A 

E, 32,46, AB. ‚79,E6,07, 21 ‚EC 

DATA AD,16,00, SF, 1919, JE,23,36, DS, C 

7,85,Al,FC,AB, 85,Ai, 84, A 

DATA ’'a7! A1,BA,Ai, 13,Al, ic, A1,35A,4E,A 

B,EE, er" ‚32,4E,A8,C9,09,09" 

DATA C3,A9, AB,„SA,4A,AB,EE,FF,32,4A,A 

B,C9,3A ,47.A0, EE- FF, 32, 47 

DATA AB„CH,FD,21, ’a7, ‚AB, 'B6, Ba„FD,7E,® 

@,FD, AE, ia, ‚FD,77,80,FD, 23" 

DATA iD, 3 CF 

MEMORY LIFFF 

FOR z=i1 TO &£138 
READ as 
aA=VAL(Ü"&"+a$) 
POKE HIMEM+z ‚ai 

NEXT 


“> 
sea 
[1 Ä 
B y7g®: 


.« m Mm 
SRENSR 

hl“ - 
SmENGeR 


j# 
IR 
- 
> mm- 


Listing 4. 
Der Basic-Lader 
für »Bildschirm 


LaSBE) 
[C466] 
[D526] 
[6384] 
[FOCA) 
C66FE) 
[543012 
LAFFA] 
[82A41 
[6B98] 
CF16C] 
La2ACı 
[6E56] 
[AB4B] 
[LA4C6] 
[638C] 
L4BA&] 
1448] 
[1954] 


[7BEB] 
LOSD2 1 


Listing 5. So können Sie Texte hervorheben 


i8 a=2:b=PI:MODE 2:PLOT 648,288: FOR c=® 
TO 6359: DRAW 320#* (1+C0S(c)) „2B@#(i+SIN 


(atc+b))ı NEXT [C1D98] 


FrHnPPY 


BcOMEUJ TE 73 
ee, 





Einfach und 
doch sicher 


Oft bietet ein einziger Befehl einen guten Kopier- 
schutz. Testen Sie doch einfach mit Hilfe der Lade- 
geschwindigkeit, ob das Original vorliegt. 


or allem wer Programme verkaufen will, sucht beim 

| Schneider nach einem wirkungsvollen Kopier- 

schutz. Auf »SAVE ” datei” ‚P« kann man sich nicht 

verlassen. Einen erheblich besseren Schutz stellt die Varia- 
tion der Ladegeschwindigkeit dar. 

Dieser Kopierschutz funktioniert nur bei Programmen auf 
Kassette. Das Programm kann weder auf eine andere Kas- 
sette noch auf eine Diskette überspielt werden. Der Schutz 
beruht auf der Eigenschaft der Schneider-Computer, Pro- 
gramme auf dem Recorder mit unterschiedlicher Geschwin- 
digkeit aufzuzeichnen. Mit SPEED WRITE - oder der System- 
routine CASSET SPEED - kann die Geschwindigkeit in einem 
sehr weiten Bereich festgelegt werden. 

Beim Laden erkennt der Computer die Aufzeichnungsge- 
schwindigkeit. Er speichert dafür einen Code. Dieser Code 
steht nach dem Laden im RAM und ist von dort aus zu lesen. 
Gängige Kopierprogramme besitzen zwar oft die Fähigkeit, 
Programme mit unterschiedlicher Baudrate aufzuzeichnen. 
Aber die Variationsbreite ist groß, und wenn man sein Pro- 
gramm standardmäßig mit einem »krummen« Wert speichert, 
ist es sehr unwahrscheinlich, daß das Kopierprogramm 
gerade diese Geschwindigkeit zum Speichern wählt. Den 
Geschwindigkeitswert kann man dann zum Test auf Kopie 
benutzen. Stimmt die festgestellte Ladegeschwindigkeit 
nicht mehr mit dem im Programm festgelegten Wert überein, 
bedeutet das, daß der Benutzer das Programm kopiert hat. 

Besitzer des CPC 664 oder des CPC 6128 müssen statt 
B8CF hex in den Zeilen 10 und 20 die Adresse BiE7 hex 
abfragen. Um das vorgestellte Programm auszuprobieren, 
bitte unbedingt vorher ein Programm von der Kassette laden. 
Sie erhalten dann mit der Routine dessen Baudrate. 

Wenn eine Abfrage nach der Geschwindigkeit gut in einem 
Maschinencode-Programm versteckt ist, bietet dieser einfa- 
che Trick einen sicheren Kopierschutz. Sie dürfen natürlich 
nicht gerade die Standardgeschwindigkeiten 1000 und 
2000 Baud verwenden. Nehmen Sie lieber beispielsweise 
1100 und 2100 Baud. Die »krummen Werte« sind auch von 
wirklichen Crackern oft nur durch Ausprobieren herauszu- 
finden. (Martin Kotulla/hg) 


| 18 IF PEEK(&BBSCF}=127 THEN PRINT "SPEED 
WRITE B":END [F&0A] 
20 IF PEEK(&BBCF)=64 THEN PRINT "SPEED W 
RITE 1":END [B5AE] 
38 PRINT "WEDER B NOCH 1" [F1A8] 





Listing. Testen Sie die Ladegeschwindigkeit des Programms 


Br 1 Prog ramr nmSteckbriett _ — Fe] 
Name: Kopierschutz | 


Datenträger: FR: 














Farben- 
Geflimmer 


Viele KassettenTurbolader bringen während des 
Ladevorgangs den Bildrand zum »Flimmern«. So 
gelingt auch Ihnen dieser Effekt... 


er Basic-Lader »Border« erzeugt den nötigen 
Maschinencode und enthält eine Demonstration der 
Effekte. Mit INPUT sind die Werte für Streifenbreite 
und Zahl der Farben einzugeben. Sie werden dem 
Maschinen-Programm in den Adressen ADOO und A001 hex 
bereitgestellt. (Dieter Braun/ja) 





ee ee ee ee a a a Te ee me F 
[C2F4C] 
Border-Effekte 


CB7Ca1 | 


CD2BC] 
Erzeugt mehrfarbigen Rand und 


[4A761 | 
[5076] 


wartet auf Tastendruck 


[2EC2] 
LESFA] 
[152A] 
[52C8] 
[LEA2A] 


[C248] 
HH 


Farbanzahl und Streifenbreite 


angebbar 


Copyright by Dieter Braun 
Maerz 1786 


u C9C701 | 


GOSUB 238 [7ED2] 
INPUT "Streifenbreite{S5 SPACE} (1-255 
>) "’ıw 
ı IF w<i OR w>255 THEN 148 
INPUT "Anzahl der Farbent2 SPACE} ti- 
32)t{2 SPACE}";a 
IF afi OR a>32 THEN 168 
PRINT 


» DATA E3A ‚L008,&:AB,&47,%3A,&01,&AB,&4F 
DATA &16,&29,&C5,&21,&00,&7F,&S3SE,&11 
DATA &ED,&79,&AF ,&3E,&40,&82,&ED,&79 
DATA &C1,&C05,&190,&FE,&C1,&14,&77,&BA 
DATA %28,&E8,2CD,%97,&BB,338,&D7,&C97 
FOR n=489775 TO 41815 
READ a:POKE n,a 
NEXT n 
RETURN 
’ Gute Zahlenpaare: 

'- 178/24 115/12 28/15 31/4 


46/13 1/24 255/16 


CFE7®] 


7 
' 49/15 } 
7 [2258] 





Explora 
Kassette/ Diskette 
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ur 


[O&4BCH | 
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Spion aus dem Stack 





Programme, die keinen oder kaum RAM-Speicher- 
platz belegen, gibt es eigentlich nur auf ROM- 
Basis. »RSX-Dump« aber schafft es, sich im Ar- 
beitsspeicher zu »verstecken«. 


aan: Bi BF AF 21 13 AF CI Di BC BE AF CS IT AF 4a 55 .„.7!, Ci. /C./Du 
Adld: 4D DO O0 20 na mm ma FE BS DA ## Ba C2 SD BB DD Mrs. “,ZißBl@] 
ABZB: 7E 81 B7 C2 #1 Bü DD FE O8 FE 87 D2 &1 BB 32 5 *.7Baß]1*.,Radav 
ABSG: BO FE BB 208 07 IE 18 32 57 BB is 11 CD 11 BE B7 0”. . >: WA. .M.C7 
Ana CA 65 BB 47 3E Ba CB 27 18 FC 232 57 BO DD SE 2 JeBG>.K'.1ZWa1”. 
AgSBı DO 56 85 DD LE 4 Don 44 05 ES _B7T ED 52 Ei DA &4 1V. In. 1#.e7’aRald 
Adadı AF C2 &1 Ba ED 55 59 BO 354 50 3E GD CD iA BO Ar ‘BaßnSYaTl>.M.8f 
AB7’E: 22 SB Ba 3A 57 BO 47 FTACD FF AF CD 1A Bü 77 CD Zi: WEG My’. DM 
ABBG: 1A BO 76 CD FF AF CD iA Bd 77 CD 1A BO IE 34 CD .BiMv/M.BvM.B>:M 
ABFB: 1A BO 3E 28 CD 1A BO ED 53 SB BB 1A CD F# Ar CD „8> M.OmSca.Myv/H 





| en s 2 . | ABA: @ 73 c0 © SE 20 CD 1A BR 15 IB ED IE 20 „BvM.d> M.d..m 
|: eder Pr Oogrammierer, der sich mit Maschinensprache ae. Eu In une ns u ende a M.@mtL@:WaG. 8. 
F auseinandersetzt, besitzt sicher das eine oder andere iuie: 25 38 55 7, us: ec nimm Diem uane I eimmane) 
i | il: i | i- ABER: Ba IC 32 58 BO IE BD CD 1A BO IE BA CD 1A BO 2A .<2x0>.M.0>.M.o 
; Programm, mit dessen Hilfe er sich Inhalte von Spei All: 59 28 57 ED 32 02 73 ar C9 FS CB SF CB SF CB 3F VOTmRRE/TukDKrK> 
F cherbereichen anzeigen läßt. Wenn nun jedoch daszuunter- aıac: ce sr FE on 38 02 Ca 07 06 30 ar Fi Ea OF FE DA K?”.8.F.FO0gf.*. 
| Alldı 38 02 Ca 87 Ca 30 67 79 AC C9 FS CS 3E 42 CD IE 8.F.F@oyLluk>BM. 


suchende Programm zufällig im gleichen Adreßbereich des 
Arbeitsspeichers liegt oder diesen gar komplett ausfüllt, ist 
guter Rat teuer. Nur Besitzer entsprechender ROM-Software 
(beispielsweise Arnors »Maxam«, Vortex-Speichererweite- 
rung oder VDOS 2) sind aus dem Schneider, denn diese 
belegen in kaum nennenswertem Umfang RAM-Speicher. 


Ai20: BB Ci 28 83 Fi Ei C9 3A 56 Bd FE 88 28 05 Fi co 
AlSB: SA BB C9 Fi FS FE B0 38 i2 SE 1ıB CD 4D Bd SE 30 


1At.gal:VO*. i.ah 
zZ: Igu*B,. >. Hidre 


et 
WAR ie 


ee ng u) 














Y ch mi | ! N j | aits- HR [CEDB] 
% Daß man auch mit »normaler« Software, die sich im Arbeits * ne esse * LGEDBI 
i speicher befindet, solche Probleme vermeiden kann, 20 °’* Raimund Schuldhaus * L[89E4] 
F beweist »RSX-Dump«. Es belegt die Adressen AFOO bis 150 ;* Marburger Str.26, 63580 Giessen * L[B61®] 
1 - e 5 R i 1A EEE [CAEBI 
: BO7O hex. Diesen Bereich nutzt normalerweise das . ua Eye | 


158 CE1BA] 
DATA 81,89,AF,21,13,AF,C3,D1,BC,BE,A 
F,C3,17,AF,44,55,-1739 [4368] 
170 DATA 4D,D8,00,20,00,00,20,FE,03,DA,6 

9,B@,C2,5D,B8,DD,-1725 CB&CI 
188 DATA 7E,81,B7,C2,61,B@,DD,7E,@@,FE,8 


Locomotive-Basic als Software-Stack. Ab BO8A hex (BOGE 
hex beim CPC 664 und 6128) legt der Interpreter dort Werte 
zwischendurch ab. Dieser Stack »wächste in Richtung niedtri- 





Deut 
E 


Inf Fat 
? 









gerer Adressen hinunter bis nach AE8B hex (AE6F hex). 9,D2,61,B@,32,56,-20804 [7086] | 
Anmit i .D ir ' in; 190 DATA 80,FE,28,20,07,3E,18,32,57,BO,1 | 
Somit ist klar, daß »RSX-Dump« nicht mit Basic-Programmen B,11,ED-11 BB ans | 






verwendet werden sollte. Nur wenn es sich um kleinere Pro- 
gramme handelt, ist ein Überschreiben der RSX-Erweiterung 
durch den Stack vermeidbar. Da ein solches Tool aber ohne- 
hin meist als eigenständiges Hilfsmittel eingesetzt wird, erge- 
ben sich in der Praxis keinerlei Probleme. Schon der Name 
»RSX-Dump« sagt, wie die Befehlserweiterung in das 
Betriebssystem der Schneider-Computer eingebunden ist. 
Der Befehl DUMP beginnt also mit dem senkrechten Balken, 
der bei gleichzeitigem Druck der Tasten »SHIFT« und »@« auf 
= dem Bildschirm entsteht. Tippen Sie zunächst das Listing 
: des Basic-Laders ab und speichern Sie es zur Sicherheit. 
Beim Starten mit »RUN« erzeugt der Lader automatisch das 
Maschinencode-Programm »DUMP.BIN«, das Sie dann zum 
späteren Gebrauch benötigen. Sie laden es durch »LOAD 
| "DUMPBIN”, &AFOO«. Nach »CALL &AFOO« steht Ihnen der 
neue Befehl zur ständigen Verfügung. Drei Parameter sind 
$ beim Aufruf zu übergeben: Start- und Endadresse des Spei- 
cherbereichs sowie der Ausgabekanal. 


200 DATA CA,65,B8,47,3E,84,CB,27,10,FC,3 
2,57,BB,DD,5SE,82,-175& 

21® DATA DD,56,03,DD,6E,84,DD,66,@5,E5,B 
7,ED,52,Ei ‚DA,„d4,-2247 

220 DATA AF,C2,51,B@,ED,53,59,BQ@,54,5D,3 
E,2D,CD,1A,B@,AF,-2061 

230 DATA 32,58,B8,34,57,B0,47,7A,CD,F9,A 
F,CD, 1A,BB,77,CD, -2178 

248 DATA 1A,B@,7B,CD,F9,AF,CD,1A,B8,79,C 

' D,1A,BQ,3E,3A,CD,-2214 

250 DATA 1A,B8,3E,20,CD,1A,B@,ED,53,5B,B 
8,1A,CD,F9,AF,CD,-2150 

2608 DATA 1A,B@,79,CD,1A,BB,3E,20,CD,1A,B 

278 DATA CD,1A,B@,ED,5B,5B,B®,3A,57,B0,4 

288 

2970 

>28 

318 






ö > 
er Zr 
. 


[63A6] 
LC9BEI 
[79141 
[EA2a1 
[2392] 
[C7S5E1 

- CBAC2I 
CASDB] 
[44E21 
CasBB1 
[20142 
[B38A] | 
10281 | 




















7, 1A,FE ,20,30,02,-1756 
DATA 3E,2E,FE,7F,28,82,3E,2E,CD,1A,B 
8,13,10,ED,3A,56. -1454 
DATA B@,FE,28,28,18,3A,58,BO,FE,18,2 
8,05,CD,18,BB,3E,-1&09 
DATA FF,3C,32,58,B@,3E,@D,CD,1A,BO,3 
E,BA,CD, 1A ‚BQO,2A,-1532 
DATA 59,B8,B7,ED,52,D2,73,AF,C9,FS,C 
B,3F,CB,3F,CB,3F, 2511 
DATA CB,SF,FE,0A,38,82,06,87,06,30,4 
F,F1,E6,@8F,FE,OA,-18648 
DATA 38,82,C06,907,C06,30,67,79,4C0,C09,F 


















»IDUMP8&100,&200,0« listet den Inhalt der 256 Byte zwi- _.. 5,65,3E,42,CD,1E,-1815 | [CFA&] 
schen 100 hex und 200 hex auf dem Bildschirm auf. | **@ DATA BB,CI 2B,BS.FI ELCH SA,S6,B0, FE | 
| »IDUMP1024,42619,8« gibt den Bereich von Adresse 1024 350 DATA Sa,BB.L9, Fl ‚FS, FE,80,38, 13,3E,1 ud 
6» io; ; | Ms ii | -209 | 
| dez bis zum Beginn des Disketten-Controller-RAMs über den 368 DÄTA’CD,4D,BO,F1,CD,4D,B@,AF,CD,4D,B 
z Drucker aus. Wie von den meisten Monitor- und Debugger- 2,C9,F1,CD,2E,BD,-2672 [@ıF2] 
| Programmen gewohnt, steht rechts neben der Angabe der | 37® Eee 
. Bytes die entsprechende ASCIl-Interpretation zur schnellen 588 DATA BA,1E,05,18,906,1E,86,18,82,1E,1 

Erkennung von Textfeldern. Ser ee LBCC6] 
(Raimund Schuldhausj/ja) 408 MEMORY &9FFF C9FBCI 
418 adr=&ABaR CD449] 
428 FOR i%=1@ TO 33 [4B64] 
438 READ op$:IF LEFT$(op$,1)="-"THEN 4 





Te Em 
PR = 


1%] [SB&C] 





- 2 
ae N 


3 
” 






Ne Fre TEN 448 op#=VAL ("&"+0op$):POKE adr ‚„op% [78EA] 
| en 458 adr=adr +1: psumf=psum%f+0p%:G60T0 438 
Name: [C748] 





- = | 2: : Fa 468 IF psum%+VAL(op$)=Q THEN 490 [F1DA] 
| Computer: CPC 464/664/6128 478 PRINT"{2 SPACE}IDATA-Fehler in Zeil 

— — nie e":i1%#1BD:END [Cö3C] 

Checksummer: | Explora 488 psumf=®: NEXT CF218] 

— 498 SAVE"dump.bin",b,&ABQQ, 349 [5898] 


Datenträger: 


Besonderes: 








Listing. Hexdump aus dem Stack 
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Blitzschnell im Programm 


Schnell genug kann es eigentlich nie gehen. Des- 
halb beschleunigen Sie doch einfach Ihr 3-Zoll- 
Laufwerk mit dem Programm »Turbo-Disk«. 


ie CPC-Besitzer sind ja eigentlich noch ganz gut 
dran, wenn man die Ladezeiten mit Laufwerken 
anderer Computer vergleicht. Und doch: Warum 
nicht Zeit sparen, wenn es leicht möglich ist? Der Basic-Lader 
erzeugt ein kleines Maschinencode-Programm, das Disket- 
tenzugriffe um zirka 20 Prozent beschleunigt. Dieser Effekt 
hält so lange an, bis Sie Ihren Computer ausschalten oder mit 
»CTRL-SHIFT-ESC« einen Reset auslösen. Im CP/M-Betrieb 
benötigen Sie noch nicht mal ein eigenes Programm für den 
Geschwindigkeitsgewinn. Wenn Sie das Betriebssystem erst 
einmal mit »SETUP« manipuliert haben, wird der »Turbo- 
Lader« automatisch bei jedem CP/M-Start aktiviert. Die 
genaue Vorgehensweise Schritt für Schritt: 

RETTEN FETTE 


. u 
5% A Er IR Te ] 


; r) - 
w sie nn 
= 1} u BAT 2 


Name: | Tod —= 
Datenträger 



























»Setup«, ENTER, Y, Y,Y,Y, Y,Y,Y, Y, Y, »N40«, ENTER, 
»YN200«, ENTER, »YN10«, ENTER, Y, Y, Y, Y, Y. Natürlich läßt 
sich dieses verbesserte CP/M mit »BOOTGEN« auf jede 
Arbeitsdiskette übertragen. 

(Sebastian Scala/ja) 


Eee ee ee Pe Peer er 
* TURBO DISK * 
* ic) 1970864 by = 
* Sebastian Scala F 
* Am Silberberg 28 * 
* A - 8842 Graz # 
“ Tel: (B31&6) 4808-14-15 #* 
HH 


REM 
FOR a=8 TO 18 
READ as 
BO FOKE a+kABBB,VAL("R"+a$) 
NEXT 
CALL &.ABDO 
MODE 2:PEN 1:PAPER B: INK 1,24: INK BZ, 
QB:BORDER 7 
PRINT"TURBO DISK ist nun aktiviert," 


PRINT"ihre Floppy ist jetzt 


In,p 
[3824] 
[7A46] 


[3332] 


ca. um 1/5 schneller als vorher 
RINT 

NEW 

178 DATA 21,BA,AB,DF,927,A8,C7,20,C64,87,2 
3,2898,C8,80,81,81,0A,29,03 


Listing. Schnell, schneller, Turbo 





FIBUKING-Finanzbuchführung 
Einfach zu benutzendes Buchführungsprogramm auf der Basis einer 
doppelten Buchführung. Durch jederzeit mögliche Bilanzauswertung 
haben Sie ständig den Überblick über sämtliche Konten. Weitere 
Pluspunkte sind: 
— 60 definierbare Konten, bis zu 99999 Buchungen 
— mehrere Buchführungsdateien auf einer Diskette anlegbar 
— Ausdruck von Grundbuch, Kontenblatt, Kontenrahmen, Bilanz 
— ideal für Kleingewerbe und Freiberufler 
FIBUKING für JOYCE oder GPC, 3” Disc incl. Anleitung 


nur 136,— DM 
PROFIREM-Geschäftssoftwarepaket 
FAKTURIERUNG, LAGERDATEI, ADRESSENVERWALTUNG 


JOYCE-Version für 1000 Adressen, 1000 Artikel, nur 178— DM 
CPC..Version für 400 Adressen, 400 Artikel, nur 136,— DM 
Elfriede VAN DER ZALM — Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Telefon 04461155 24 


CPC 464% FORT 
=: Erleben auch Sie auf Ihrem CPC 464 die Geschwindigkeit eines schnellen ::: 
# FORTH-Compilers mit Turtiegrafik, Editor, Assembler, Tracer und De- :: 
-" Compiler. Dieses System ist im neuesten FORTH83 Standard geschriehen :: 
= und erzeugt kompakte Programme. Die Grafik ist um Kreis- und Füllbefehle ::: 
= erweitert, das System setzt ebenfalls Windows ein. = 


5; Das Programm wird mit einem 180seitigen deutschen Handbuch geliefert. :: 


= Preis auf Cassette 
= auf Disk 37 5,25” 
® CPC Forth Library 
5 Ausführliches Prospekthlatt bei: 
FORTH-SYSTEME Angelika Flesch 


Postfach 1226, 7820 Titisee-Neustadt, 07651/1665 oder 3304: 





data eI-Ie/e[-12 


OKIDATA-DRUCKER 
OKIMATE 20 der 4-Farb-Drucker 
Microline 182 120 2/Sec: NLa 


Microline 192 160 Z/Sec.; NLO: 
Stiftung Warentest »Sehr gut« 


798,- 
798,- 


1498,- 


Microline 192 wie zuvor, jedoch mit Einzelblatteinzug 1 798,- 


PANASONIC-DRUCKER 


KXP - 1080 100 Z/Sec.; NLO; Epson-kompatibel 
KXP - 1091 120 Z/Sec.; NLO; Epson-/IBM-komp. 
KXP - 1092 130 Z/Ssec.; NLO; NLO; Grafik 
KXP - 1592 130 Zi/Sec; DIN A3 


798,- 

998,- 
1098,- 
1698,- 


CITIZEN 120 D 140 Zisec.; NLO:; 4K-Puffer; Grafik 898,- 


STAR-Drucker 


NL10 

5SG10/SG15 
SD10/SD15 
SR10/SR15 


SCHNEIDER CPC 6128 grün 
Farbe 


Wir nehmen gebrauchte CPC und 
Peripherie in Zahlung! 


-EZIEDITTIR 


Im Lichtenfelde 76, 4790 Paderborn Auf: 05251/64852 


1145,- 
1195,-/1 650,- 
1595,-/2 100,- 
2 150,-/2650,- 


999,- 
1698,- 
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Selbstuntersuchung 


Maschinencode-Routinen sind das Salz in der 
Suppe der selbstgeschriebenen Programme. Will 
man diese aber willkürlich irgendwo im Speicher 
ablegen, dann treten einige Probleme auf. 


esonders schnelle Programme, beziehungsweise 
Unterprogramme, entstehen, wenn man sie in 

J Maschinencode schreibt. Allerdings erfordert solch 
eine maschinennahe Sprache höchste Sorgfalt bei der Ent- 
wicklung. Während man in Basic Unterprogramme mit einem 
Befehl GOTO < Zeilennummer > aufrufen darf, muß man bei 
Maschinencode-Routinen die genaue Adresse im Speicher 
kennen. Sind mehrere Programme geladen, so kann es pas- 
sieren, daß zwei an der gleichen Adresse stehen. 

Gute Maschinencode-Routinen sind deshalb immer so 
geschrieben, daß sie frei verschiebbar sind. Das erreicht 
man, indem man absolute Adressen vermeidet. Zum Starten 
braucht man aber noch die Startadresse. Wie man die aus 
dem Computer »herauskitzelt«, das lesen Sie hier. 

Ein Weg fällt den meisten Z80-Programmierern sofort ein. 
Man ruft ein Unterprogramm auf, das die Rücksprungadresse 
vom Stack holt und in ein Register überträgt. Listing 1 (Basic- 
Lader in Listing 2) zeigt solch eine Routine. Nach dem Aufruf 
der Routine liegt die Startadresse im Speicher an der 
Adresse 0160 und 0161 hex und kann dort mit »PRINT(PEEK 
(&0160)+PEEK (&0161)*256)« abgefragt werden. Diese 
Lösung hat aber einen schwerwiegenden Nachteil. Sie ver- 
langt eine absolute Unterprogrammadresse, was wir ja 
gerade vermeiden wollten. Folglich wandert sie in die Abtei- 
lung P - sprich Papierkorb. 

Eine bessere und auch kürzere Routine bietet Listing 3 
(Basic-Lader Listing 4) an. Sie macht sich die Eigenschaft 
der Schneider-Computer zunutze, im Betriebssystem-RAM 








u ABDD 


CALC ADDRESS 
(2162) „HL 


CAL.C_ADDRESS HL. 


| DATA CD,87,AB,22,68,81,C9 
I 30 BAra USA AFFEN 

38 MEMORY &K9PFFF:FOR i=LABOD TO LABBC 
| 48 READ a$:ıPOKE i,VAL("&"+a$) ı NEXT i 
| S@ CALL &Aaao 

&89 FRINT "Die Startadresse liegt bei"; 
| 7@ PRINT PEEK(&16B) +PEEK (L161)#256 


[CD1A] 


ADB 


HL. , (KAE72) 
(A160) „HL 






einen Zeiger auf ein CALL-Unterprogramm oder eine RSX- 
Routine zu speichern. Beim CPC 464 liegt dieser Zeiger bei 
AE72 hex, bei den Nachfolgemodellen 664 und 6128 aber 
an der Adresse AE55 hex. Und das ist der Nachteil. Denn 
man muß immer die auszulesende Adresse für den Zielcom- 
puter einsetzen. Die Listings beziehen sich auf den CPC 
464. Die Änderungen für die beiden Nachfolgermodelle ste- 
hen in Listing 5. 

Erst die dritte Lösung entspricht unseren Anforderungen. 
Sie ist besonders universell, da sie weder absolute Sprünge 
innerhalb des Programms noch systemspezifische Adressen 
benutzt. Der Trick beruht auf den ausgeprägten Interruptfä- 
higkeiten der Schneider-Geräte. Die beiden Maschinencode- 
Befehle »El« lassen Interrupts zu und »HALT« stoppt alle Pro- 
zessoraktivitäten, bis der nächste Interrupt auftritt. Dieser 
läßt nicht lange auf sich warten, und hinterläßt auf dem Stack 
»als Geschenk an das Programm« die Rückkehradresse, die 
gleichzeitig die Programmadresse ist. Allerdings muß der 
Stackpointer SP mit einem zweifachen »DEC SP« manipuliert 
werden. Dann kann man aber die Adresse aus dem Register 
HL übernehmen. Dieses Verfahren beschränkt sich übrigens 
nicht nur auf den Schneider CPC, sondern läßt sich auf viele 
andere Z80-Computer übertragen. Listing 6 zeigt das 
Assembler-Programm und Listing 7 den zugehörigen Basic- 
Lader. (Martin Kotulla/hg) 




















| Call 
CPC 464/664/6128 
Datenträger: Kassette, Diskette | 












Startadresse nach HL holen 
In 22152 abspeichern 
Rücksprung nach Basic 


a "EEE (m 


Rücksprungadresse nach HL 
Rücksprung wiederherstellen 
Um drei Eytes die 
Startadresse in Hl. 
vermindern 

Rücksprung zum Hauptprogramm 


(MEERE (MEN jPrrmEEB: (ERNEE FREE: (Mil OHNE THEMEN INGE EMEEE MEN THE: HN HMNCRBN "HNMGMEE TEE "MENGEN HAHN ©MEENEFRAEEN LEERE „mEEAER— mein ‚ii vis rim: „He she iin „mm Am am HE 


a.’ WE a TE 


Listing 1. Häufig bekannt, aber nicht optimal, ist die Lösung 1 


4 Listing 2. Wer sich mit dem Assembler-Programm nicht 
anfreunden will, findet hier den Basic-Lader für Listing 1 











ı Startadresse nach HL holen 
ı In &Q1&5@ abspeichern 
n 


Rücksprung nach Basic 































DATA 2A,72,AE,22,60,01,C09 


INPUT "Welche Startadresse? ",s 
30 MEMORY s-1:FOR i=s TO s+& [?CBC]I 
40 READ a$:POKE i,VÄLUÜ"B"+as): NEXT i [1566] 
58 CÄALL s [7858] 
&8 PRINT "Die Startadresse liegt bei"; [SEBC] 
78 FRINT PEEK (&1&4B) +PEEK (Li&1) #256 [CD1A] 


Listing 4. Der Basic-Lader für Listing 3 


ORG ABUD 

El 

HALT 
DEC 
DEC 
FOrF 
DEC 
DEC 
LD 

RET 


SP 
SP 
HL. 
HL 
HL. 
(168) „HL. 


Listing 6. Dieses Programm entspricht unseren Anforderungen 


1@ DATA FB,76,3B,3B,E1,2B,2B,22,68,81,C9 


28 INPUT "Welche Startadresse? ",s 
5@ MEMORY s-1:FOR i=s TO s+ti1B 

40 READ a$:POKE i,VAL("&"+a$) NEXT i 
sa CALL s 


Tolle Video- 
Tricks 


OUT heißt der Basic-Befehl, der den Video-Chip zu 
ungeahnten Fähigkeiten antreibt. 


er Basic-Befehl OUT gehört wie bei vielen Compu- 
tern auch beim Schneider zu den nur sehr selten 
benutzten Kommandos. Der Grund liegt darin, daß 
fast niemand weiß, was man damit Sinnvolles anstellen kann. 
Und dabei gibt es viele reizvolle Möglichkeiten. 

Auch den Video-Chip im Schneider, ein Motorola 6845, 
steuert der Computer über OUT-Befehle. Er besitzt eine 
Reihe von Registern, die Werte aufnehmen können, die wie- 
derum die Arbeit manipulieren. 

Die Programmierung des Chips ist somit auch von Basic 
aus möglich. Um einem Register einen Wert zu übermitteln, 
muß über die Portadresse BCOO hex die Registernummer 
ausgegeben werden und unmittelbar danach über BDOO hex 
der Wert. Wollen wir beispielsweise in das Register 5 den 
Wert 20 eintragen, sind folgende Befehle notwendig: 

OUT &BC00,5:0UT &BD00,20 

Das Register 2 (Horizontal Synchro Position) bestimmt, wo 
genau auf dem Monitor der Inhalt des Video-RAMs angezeigt 
wird. (Martin Kotulla/hg) 
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18 DATA 2A,55,AE,22,68,B1 


Listing 5. Für den CPC 664 und 6128 müssen Sie im 
Assembler-Programm die zweite Zeile und im Basic-Lader 
Zeile 10 ändern 





&8 PRINT "Die Startadresse liegt bei"; 
7@ FRINT PEEK (&16B) +PEEK (&161) #256 


Listing 7. Frei verschiebbar, und die gesuchte Adresse 
steht in 160 und 161 hex 
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FOR i=1 TO 25 C2ECB] 
PRINT TAB (5) ; "DEMONSTRATION FUER DUT 

-BEFEHLE" [A356] 

NEXT i [3C84] 

ON BREAK GOSUB 278 C455A] 

' Hauptprogramm War o9OA[I5IE] 

| BORDER 1: INK 9,26 [3885] 
FOR i=2 TO 47: CALL &BED17:0UT &BCB8,2 

. :QUT &BD@B,i:NEXT i cc438] 
FOR i=47 TO 8 STEP -1:CALL &BD19:DUT 

&BCBB,2:0UT &BDBB,i:NEXT i CFiEE] 

60TO 238 [D64A] 

* Break-Routine #runnnnnannnaeeeaer | [576A] 

OUT %&BCBQ,2:0UT %&BDBQO,46 LE8SC]I 

OUT %BCBQ,7:0UT %BD8Q,>38 L1ES5A] 


Hill. 

















LD 


HL, (&AESS) 


„cs 


Interrupts zulassen 

Warten auf Interrupt 
Stackpointer um einen 

Eintrag nach unten schieben 
Adresse holen 

Berichtigen, EI-Code abziehen 
Berichtigen, HALT abziehen 
Adresse speichern 

Rücksprung nach Basic 


: GE EEE oa am ME "HE 


£[SEBC)] 
[CD1A] 


Steuerung des Wideo-Chips CaDA2] 
' Motorola-6845 im Schneider-CPC [C4AFO] 
" weber DUT-Befehle [BFFA] 
“ ic) Martin Kotulla [C45C] 


ME = © 2 0 2 0202 2 22 2 200 2 20 2 00 2 0 2 2 2 202 2 2 2 2 2 2 202 





MODE i 
FOR i=1 TO 25 

PRINT TAB(5); "DEMONSTRATION FUER DUT 
-BEFEHLE" 


NEXT i [3C94] 
DON BREAK GOSUB 278 [455A] 

BE Sa Ben RRRERPORRERRRORIEN [353E] 
| BORDER 1:INK 8,2 [38841 


FOR i=B TO AT: CALL %&BD197:0UT &BCB8,2 


:OUT &BDBB,i:NEXT i [C438] 
FOR i=47 TO 8 STEP -1:CALL &BD17: DUT 
&BCBB,2:0UT &BDBR,„i:NEXT i CFiEE] 
GOTO 238 [D54A] 
" Break-Routine #######@nuaeaneane 0549 [576A] 
OUT &BCB8,2:0UT &BDBB,45 [CE8SSC]I 
OUT &BCBG,7:0UT &BD@®, 3a LiESA] 
END [8824] 


ic) Martin Kotulla 
CA7B4] 
[82B8] 


' Steuerung des Video-Chips [BDAZ] 
‘“ Motorola-5845 im Schneider-CPC [4AFB] 
" weber DUT-Befehle LBOFFA]I 
‘ tc) Martin Kotulla [C46C] 


Eu u 5 SE Zn DU ES u u 2 000 u 0 002 0 2 2 0 500 0 2.2 20 















MODE i 


END 
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Das »CAT- 
Syndrom« 


Haben auch Sie Probleme mit der Kombination 
3-Zoll-Laufwerk und Vortex-Speichererweiterung? 
Ihnen kann geholfen werden. 


er ein 3-Zoll-Laufwerk besitzt und freudenstrah- 
WW lend seine neu erworbene Speichererweiterung 
in Betrieb setzt, erlebt oft eine herbe Enttäu- 
schung: Beim Befehl CAT produziert sein Laufwerk alles mög- 
liche, nur kein sinnvolles Directory! Natürlich schlußfolgert er, 
daß der Fehler nur bei der Erweiterung zu suchen ist; vor dem 
Einbau hat schließlich noch alles einwandfrei funktioniert... 
Und doch ist das nur die halbe Wahrheit. Durch die zusätzli- 
che Elektronik ist zwar tatsächlich das System überlastet; der 
Hauptschuldige ist jedoch der Computer - oder vielmehr 
seine Hardware-Entwickler. Derartige Probleme treten näm- 
lich prinzipiell bei Einsatz jeglicher zusätzlicher Peripherie 
ein. Überspitzt ausgedrückt sind die CPCs so konstruiert, 
daß sie keinen Anschluß weiteres Zubehör verkraften. Die 
Erklärung dafür ist einfach: Der Systembus ist bis hart an die 
Grenzen der Belastbarkeit ausgereizt. Und wenn dann die 
geringste Kleinigkeit dazukommt, führt das fast immer zum 
Zusammenbruch des Systems. Aufgrund von Streuungen in 
der Serie tritt dieser Effekt aber nicht immer auf. Eine aus- 
weglose Situation? Mitnichten! Wenn Sie Zugriff auf einen 
EPROM-Brenner haben, ist Ihnen zu helfen: Kopieren Sie 
den Inhalt des Controller-ROMSs in ein EPROM, denn es ver- 
fügt über eine höhere Treiberleistung als das ROM. (ja) 





Gut gerüstet 


Viele Benutzer kaufen sich aus preislichen Grün- 
den die kleinste Stufe der Speichererweiterung, 
um sie dann selbst aufzurüsten. Doch ganz ohne 
Tücken ist das nicht. 


der Praxis meist durch Bestücken der zweiten RAM- 

Bank. In diesem Falle müssen Sie auf den weiteren 
freien Sockel einen Logikbaustein setzen. Er dient der Deko- 
dierung des zusätzlichen RAM-Bereichs. Dabei sollten Sie 
darauf achten, daß es sich um einen HCT-Typ handelt 
(74HCT378). Diese benötigen extrem wenig Strom und sind 
sehr schnell. Mit gewöhnlichen LS-Typen kann es zu Kompli- 
kationen kommen. Als RAM-Bausteine wählen Sie solche mit 
Zugriffszeiten von 120 Nanosekunden. Wer im Betriebssy- 
stem der Karte Anderungen vornehmen will, muß das ROM 
gegen ein gepatchtes EPROM tauschen. Einer einwand- 
freien Funktion dienen hier Typen mit 250 Nanosekunden 
Zugriffszeit. 

Nur in Ausnahmefällen hat wohl ein Benutzer Interesse 
daran, die Platine öfters ein- und auszubauen. Um die 
Anschlußbeinchen des Gate-Arrays zu schonen, ist dann 
empfehlenswert, es mit einem eigenen Sockel auszustatten. 

(Udo Reetz/ja) 


D ie Aufstockung der Speicherkapazität geschieht in 








Wordstar und eine Speichererweiterung von Vor- 
tex. So wird Textverarbeitung wirklich komfortabel. 


er Wordstar auf dem Schneider CPC unter CP/M 

2.2 wirklich sinnvoll benutzen will, kommt um die 

Anschaffung einer Speichererweiterung 
meist nicht herum. Die weit verbreitete Vortex-Karte bietet 
unter CP/M eine RAM-Disk als Laufwerk C mit einer Kapazität 
von über 400 KByte (bei voller Ausbaustufe auf 512 KByte). 
Doch bei jedem Systemstart beispielsweise den kompletten 
Wordstar und den zu bearbeitenden Text in die Speicherer- 
weiterung zu übertragen, ist unnötige Arbeit. Das Programm 
SUBMIT.COM macht das einfacher. Kopieren Sie es dazu auf 
Ihre Wordstar-Diskette. Dann geben Sie die Submit-Datei aus 
Listing 1 als NEW.SUB mit dem Wordstar-Editor (N-Modus) 
ein. Listing 2 erhält den Namen ED.SUB. 

Wenn Sie die RAM-Disk nicht gleich beim Start von CP/M 
mitformatieren, dann benötigen Sie noch das Programm 
RAMDISK.COM von Vortex auf Ihrer Wordstar-Diskette. Um 
einen neuen Text zu bearbeiten, laden Sie CP/M und tippen 
folgendes: 

A>RAMDISK 
A>SUBMIT NEW datei 

Das Programm kopiert alle Wordstar-Teile und PIPCOM in 
die RAM-Disk und startet die Textverarbeitung. Danach kön- 
nen Sie Ihren Text bearbeiten. Drücken Sie CTRL-KX, wird 
SUBMIT wieder aktiv und überträgt die Datei auf die Original- 
diskette im Laufwerk A zurück. Dort ist sie dauerhaft gespei- 
chert. Beachten Sie aber, daß Sie beim Dateinamen »datei« 
keine Laufwerkbezeichnung angeben dürfen. 

Ahnlich funktioniert ED.SUB (Listing 2). Es dient zur Bear- 
beitung einer bereits bestehenden Datei im Laufwerk A. Denn 
»ED« steht für »Editieren«. 

A>RAMDISK 
A>SUBMIT ED datei 

Den Befehl »RAMDISK« können Sie natürlich auch in die 
Submit-Datei aufnehmen. Sie verlieren dann aber bei jedem 
Aufruf der Submit-Datei den vorherigen Inhalt der RAM-Disk. 
Wer die RAM-Disk beim Aufruf von CP/M mitformatiert, muß 
die Anweisung RAMDISK natürlich weglassen. 

(Martin Kotulla/hg) 








C:=A:PIP.COM 
C: =A: W5.COM 

> Ce =Aı WSMSGS. OVR 
Cı =A:ı WSOVLY1.OVR 


Listing 1. Mit dieser Datei 
wird Wordstar komfortabel 


1 
:=C:ı #1 





Cr=A:PIP.ComM 
Cr=A:WS.COM 
| C: =A: WSMSGS. DVR 
P C:=A: WSOVLYi.DVR 
Cr=A:$1 
Listing 2. Auch bereits 


bestehende Dateien können 
bearbeitet werden 











Kopieren in die RAM-Floppy geht auch mit »File- 
copy«. Vorausgesetzt man baut die Routine um. 


eder, der eine Diskettenstation von Vortex hat, aber 
auch viele Besitzer des Schneider-Laufwerks kennen 
inzwischen »FILECOPY.COM«, das Dateikopierpro- 
gramm von Vortex. Diese komfortable Routine hat dem 
gleichnamigen Programm auf der Schneider-Systemdiskette 
klar den Rang abgelaufen. 

Während man in der Version von Schneider nur einzelne 
Dateien oder aber alle gemeinsam kopieren kann, überträgt 
das deutsche Pendant genau soviele Daten, wie Sie wün- 
schen. Und noch ein Vorteil macht die Arbeit angenehmer. 
Während bei Schneider die Diskette nach jeder Datei 
gewechselt werden muß, packt Vortex zuerst den ganzen 
Speicher voll und »schaufelt« dann die Daten auf die neue 
Diskette. 

Ein Nachteil verblieb bis heute beiden Programmen. Sie 
arbeiten nicht mit einer Speicherkarte zusammen. Dabei ist 
FILECOPY von Vortex ganz einfach anzupassen. 

Aber nun zur Praxis: Als erstes bespielen Sie eine Diskette 
mit den CP/M-Systemspuren (Version mit 62 KByte TPA) und 
den beiden Programmen »DDT.COM« und »FILECOPY.COM«. 
Arbeiten Sie niemals mit den Originalen, denn Fehler treten 
schnell auf und CP/M arbeitet so nahe an der Maschinen- 
ebene, daß »Abstürze« an der Tagesordnung sind. 

Alle Änderungen an der zu patchenden Routine nehmen 
wir mit dem DDT (Dynamic Debugging Tool) vor. FILECOPY 
liegt in der Version 2.6 vor. Dieses Programm hat fast jeder 
zur Verfügung - sofern er nicht zu den Besitzern der aller- 
ersten Diskettenstationen gehört. DDT ist ein Debugger mit 
dem Speicherinhalte untersucht und geändert werden. 

Von den insgesamt 13 Anweisungen brauchen wir den S- 
Befehl. Er wird mit 
-SAnfangsadresse 
aufgerufen. Soll ein Wert unverändert bleiben, so drückt man 
nur die ENTER-Taste. Andernfalls wird der hexadezimale 
Code des neuen Befehls eingegeben und mit ENTER quit- 
tiert. Ein Punkt beendet den Eingabemodus. 

Nach dem Start erhalten Sie die Meldung. 
A>DDT FILECOPY.COM 

DDT VERS 2.2 

NEXT PC 

0C00 0100 


Mit 

-5022A 

O22A FE FE 

022B 41 41 

022C 28 38 

022D 04 F9 

O22E FE FE 

O22F 42 44 

0230 20 30 

0231 F5 P5 

0232 C6 . 

ändern wir die Abfrage der Quell-Diskette. Ab 0242 hex liegt 
der Block für die Ziel-Diskette. 





-50242 

0242 FE FE 

0243 41 41 

0244 28 38 

0245 04 F9 

0246 FE FE 

0247 42 44 

0248 20 30 

0249 F5 P5 

0250 C6 . 

Als letztes korrigieren wir noch die Texte. 

-50905 

0905 2F 2D 

0906 42 43 

0907 29 . 

-5092A 

092A 2F 2D 

092B 42 43 

0920 29 . 

DDT verlassen Sie mit CTRL-C und die neue Datei wird mit 
A>SAVE 12 COPYFILE.COM 

gespeichert. Anstatt COPYFILE ist natürlich auch jeder 
andere Name erlaubt. Nur die Endung ».COM« muß, da es 
eine Systemdatei ist, vorhanden bleiben. 

Wenn wir FILECOPY schon verbessern, dann bauen wir 
auch gleich noch eine andere Feinheit mit ein. Normalerweise 
kann man Schneider-Disketten im DATA-Format mit dem Pro- 
gramm von Vortex nicht lesen und damit auch nicht kopieren. 
Auch das kann mit DDT geändert werden. Dazu brauchen wir 
den Befehl »A«. 

-AAnfangsadresse 

Diese Anweisung ruft den 8080-Assembler auf und die 

mnemonischen 8080-Befehlswörter können eingegeben 


werden. Den Eingabemodus verläßt man durch Drücken der 


ENTER-Taste. 

A>DDT COPYFILE.COM 

starten wir und geben als erstes den Befehl 

-R5 

ein, um Platz für die neuen Anweisungen zu schaffen. Dann 
kopieren wir mit 

-M0105 ,‚02A1,0100 

das Programm und schieben mit 

-A029D 

029D MVI C,0D 

029F CALL 0005 

0242 

die Kommandos zum Zurücksetzen der Diskette ein. 

Nun müssen Sie noch den gesamten Bereich zwischen 
0203 und 0845 hex auf Sprungbefehle und Startadressen 
für Textstrings durchforsten. Sofern die Ziele über 029D hex 
liegen, erhöhen Sie sie jeweils um 5. Die Textstrings werden 
alle nach folgendem Schema verändert: 

-10217 

0217 MVI C,09 
0219 LXI D,0884 
021C CALL 0005 
-A0219 

0219 LXI D, 0889 
021C 

Als Ergebnis erscheint 
-10217 

0217 MVI C,09 
0219 LXI D,0889 
021C CALL 0005 

Mit CTRL-C verlassen Sie DDT wie gehabt. Aber vergessen 
Sie nicht das neue Programm zu speichern. 

A>SAVE 12 SUPERCOP.COM 
(Andreas Maurer/hg) 
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Uhr zurück- 


Der Timer der Schneider-Computer eignet sich für 
vielerlei Anwendungen. Leider ist im Basic aber 
keine Funktion zum Stellen der Uhr enthalten. 
a = 
ber »PRINT TIME« kann der Benutzer beim CPC 
stets die interne Systemzeit abfragen. Leider läßt 
sich der Timer nicht stellen. Besonders bei der 
Berechnung von Programmlaufzeiten oder der Auswertung 
von Reaktionszeiten des Benutzers müßte man den Timer 
aber eigentlich löschen. Sonst gestaltet sich die Berechnung 
der vergangenen Zeit schwieriger. Mit einigen POKE- 
Befehlen funktioniert das auch: 
CPC 464: 
POKE &B187,0:POKE &B188,0:POKE &B189,0: 
POKE &B18A,0:PRINT TIME 
CPC 664 und CPC 6128: 
POKE &B8B4,0:POKE &B8B5,0:POKE &B8B6,0: 
POKE &B8B7,0:PRINT TIME 
(Martin Kotulla/ja) 


POP AF — mal 
ganz anders 


Flags dienen in Maschinencode-Programmen zur 
Registrierung von Ereignissen. Durch Unterpro- 
gramme ändert sich jedoch ihr Inhalt. So stellen 
Sie den alten Zustand wieder her. 


Ä ft möchte man als Z80-Maschinenprogrammierer 
auf dem Schneider-CPC den Akku vor dem Aufruf 
eines Unterprogramms mit PUSH AF sichern und 

nach dessen Abarbeitung wiederherstellen. Sollen allerdings 

die Flags, die vom Unterprogramm eventuell verändert Wur- 
den, nicht vom folgenden POP AF wieder überschrieben 
werden, müßte man dazu normalerweise folgende 

Z80-Befehle benutzen: 











ORG &.ADOB 
MC_BUSY_PRINTER EU &BD2E 
START LD A,200 

PUSH 

CALL MC_BUSY_PRINTER 

EX (SP) „HL 

LD A,H 

POP HL 
AF_TO_BASIC PUSH AF 

POP HL 

LD (LB16B) „HL 


DATA &SE .&CB,&F5,&CD,&2E ,&BD,&E3 L 
DATA &7C,&E1,&F5,&E1,&22,&60, 401,09 


FOR i=LABBOO TO LABBE:READ a 
POKE i,„arNEXT i 
MODE 1:PRINT "Der Akku hat den Wert" 
;PEEK (&ABB1) 
CALL LABOD 
PRINT:PRINT "Aufruf der Maschinenrou 
tine":PRINT 
A "Der Akku ist immer noch"ıPEEK 
(K1ö1) 
188 PRINT "Das Flagregister hat den Wert 
":PEEK(&15®8) » PRINT 
1780 IF PEEK(&16@) AND 1 THEN PRINT "Druc 
ker Busy" ELSE PRINT "Drucker Ready" 


[5E24] 
280 PRINT CEB7E] | 
Listing. Basic-Demonstration 


[3278] 
[ABD2] 


[896CI | 
[2AA2] 
LIFDBI 





ID (Speicher),A 
CALL Unterprogramm 
LD A,(Speicher) 

Diese Kommandos retten den Inhalt des Akkumulators in 
eine Speicherstelle, sichern aber das Flag-Register nicht. 
Ganz abgesehen davon, daß alleine die Ladebefehle sechs 
Byte kosten, muß man zudem noch eine zusätzliche absolute 
Speicheradresse verwalten. 

Eine bessere Lösung ist: 
PUSH AF 

CALL Unterprogramm 

EX (SP),HL 

LD A,H 

POP HL 

Diese Lösung benötigt nur vier Byte und ist völlig relokati- 
bel. Eine Demonstration zeigt das Listing. Es lädt den Akku 
mit dem (ansonsten bedeutungslosen) Wert 200 und ruft die 
CPC-Systemroutine MC BUSY PRINTER auf. Diese setzt das 
Carry-Flag im F-Register des Prozessors, wenn der Drucker 
nicht empfangsbereit oder nicht angeschlossen ist. Der 
Basic-Lader ruft das Maschinenprogramm auf und gibt erläu- 
ternde Kommentare aus. Das zeigt, daß die Befehlsfolge den 
Inhalt des Akkus erhält, aber das Flag-Register sich vom 
Unterprogramm verändern läßt. 

Dieser Trick funktioniert übrigens auf allen Z80-Compu- 
tern, auch auf dem Joyce. Das Beispielprogramm ist aber auf 


CPC 464/664/6128 
Explora (für Basic-Lader) 
Kassette/Diskette 


| Computer: 


Datenträger: 





FERRRERREREI TREE EEE NR FERIEN FUN FERNER FH 


‚ 

5: * 

x Ersatz für POP AF - Flags werden erhalten z Quellcode 
BEN SSIHINHRRIRHIIESEIH IHNEN der kurzen 


Maschinenroutine 


Zu erhaltender Wert 

Akku und Flags auf den Stack 
Druckerausgang testen 
Ersetzt POP AF 

un 


a a ae Sa 


AF nach HL 
übertragen 
; In den Basic-lesbaren Speicher 

















Das Arbeiten mit sequentiellen Dateien beim 
CPC 464 ist zeitraubend. Eine kurze Maschinen- 
routine schafft Abhilfe und zusätzlichen Speicher- 
platz auf unkonventionelle Weise. 





ei jedem sequentiellen Datenzugriff mit »OPENIN« 
und »ÖPENOUT« legt der CPC einen Puffer an. Die- 
ser ist vier KByte lang und liegt direkt unter HIMEM. 
Die hier ansässigen Stringvariablen müssen vorher unter viel 
Zeitaufwand verschoben werden. Das Zeitproblem kann man 
zwar mit der Formel »OPENIN ” dummy ”:MEMORY HIMEM-1 
:CLOSEIN« abfangen, wenn Sie jedoch Wert auf einen eige- 
nen Zeichensatz und andere Erweiterungen legen, können 
Speicherplatzprobleme auftreten. 

Das Programm »Sequbild« verlegt den Puffer in den Bild- 
schirmspeicher und vermeidet so elegant jedes Debakel. 
Das erfordert zwei Maschinencode-Routinen, die den Rou- 
tinen »ÖPENIN« und »OÖPENOUT« entsprechen. Nach dem 
Einlesen ersetzen Sie in Ihrem Programm alle »OPENIN« 
durch »CALL.HIMEM + 1« und alle »OPENOUT« durch »CALL 
HIMEM-+13«. Eine Eingabedatei wird mit »CALL &BC7A« 
geschlossen, eine Ausgabedatei mit »CALL &BC8F«. Das 
eigentliche Programm finden Sie in den Zeilen 10090 bis 
10180. Den anschließenden Demonstrationsteil benötigen 
Sie bei der Verwendung in eigenen Programmen natürlich 
nicht. 

Beachten Sie, daß der Zugriff auf sequentielle Dateien den 
Bildschirminhalt zerstört. Während des Ladens von Diskette 





109200. SRH 


[4E44] 

1B018 '+ sequenzieller Datenzugriff E 
[717C] 

18828 '* ueber den Bildschirmspeicher + 
[2C98] 

1B8358 '’* * 
[CIFDE] 

ı1ua40 '* {c) by Dieter Braun * 
[FBAB] 

in2a50 '* * 
[C4FE2] 

1iBas0 °’* November 19785 * 
CAEBE] 

12070. SB 
[3452] 
1BBB0 ' [3C88] 

184980 °‘ Daten des MC-FProgrammes einlese 
n E34&C] 
1B1iao [1572] 
12118 MODE 2 £EF?14] 
18128 h=HIMEM: MEMORY HIMEM-24:s=B (Bsr2] 

18138 DATA &21,&0,&:C0,&45,523,&11,290,&C1 
„&CD,%77 [F724E] 

‚| 18148 DATA &BC,„&C97,&21,20,&:C00,&:48,&23,&1 
| | 1,598,&C1,&CD,&BC,&BC,&C07 CBSFE] 
- | 18158 FOR n=HIMEM+1 TO HIMEM+24 cı5r2] 
18158 READ a:PÜKE n,„arıs=ss+ta [3744] 
18178 NEXT n [&8CC] 

| 18188 IF s<>2527 THEN PRINT"Pruefsummenf 

| ehler in den Datas{2 SFPACE}''!'"ıEND 
[CE282] 
| 18198 [CDFB4] 

182808 ° Dateiname eingeben + auf Laenge 
| pruefen [458E] 
18218 [CaF7&4] 
18228 INPUT "Dateiname"; as CFEA2] 
18238 IF LENia$) >12 THEN 18228 E34FE] 
18240 CLS | CA4FZ] 
18258 GOSUB 18518: Dateiname ablegen [Fi14C] 
1B2&B [3488] 

) 


18278 ' Datei anlegen [75C4] 















Vier KByte 


(oder Kassette) darf der Bildschirminhalt nicht geändert 
werden. (Dieter Braun/Matthias Rosin) | 


I | \ 


MODE 1:BORDER B: INK B.B: INK 1,4: INK 2, 
11:INk 3,24:DEG: FÜR a=B TO 358 STEP 10 ne 
:ORIGIN 1B88*C0S (a) „,188*SIN(a) /ö6:MOVWE 53 = 
2B+1B*C0S (a) ‚Z2B00+1B*+51IN(a) #4: DRAW 328+ 
sd*C0OS (a) #3 ,2008+50*5IN(a) „1:NEXT [5B12] Ye 
' FOR a=8 TO 358 STEF 18:MOVE 220,208: DR | P- 
Au 328*C05 (a) #4 ,200+40*51IN (a) „Z=NEXT:F br 
OR a=8 IüO 358 STEF 1B:0RIGIN 320,200:D ge 
RAW &8*+C0S(a)#*2,650*5INla) „S:NEXT:FOR a = 
=B TO 340 STEF 1B:0RIGIN 328,288: POKE 
&B35358 „2335: DRAW BB#COS (a) „BB#SIN(a)#4:N 
EXT:SPEED INk 188,108 [B3sC] | Fi 
INK 2,1,.2:F0OR i=1 TO 1BB:NEXT: INK 2,11 
‚14:FOR i=1 TO 1B8G:NEXT:INK 2,13,26:F0 
R ı=1 TO 1IBU:NEXT:GOTO 3 [B45C] "At 
tETRL 232,t1rINKk 3,24:DEG:FOR a=B TO 348 R 
STEF 1@:0ORIGIN 189+«CO0S (a) ,1B8 | 






Sequbild pe 
CPC 464/664/6128 
Explora 


"Kassette/Diskette 


















18298 CALL HIMEM+13: 'Datei eroeffnen, 

' entspricht ’openout a#'’ [D788] 
18588 PRINT#F,"Datenzugriff" C1BACI 
18318 FRINT#7, "ueber den Bildschirmspeic 


her [5178] 
18328 CALL &BCBF:' Datei wieder schliess 

en, entspricht "closeout [4048] 
18538 ° £E117C] 
18348 ' Dateiname nochmals im Bildschirm 

speicher ablegen [DAs8] 
13358 ° [53788] 
18358 CLS CBA4F8] 
18378 GOSUuB 18518: ’ Dateiname nochmales 

ablegen [D5B5] 
18588 * [3AB4] 
18398 ° Datei wieder einlesen Li#PFC] 
183488 ° [3C768] 
18418 CALL HIMEM+1:' Datei eroeffnen, 

entspricht '’openin af’ [Bs54]1 

18428 LINE INPUT #7,a# [4838] 
18438 LINE INPUT #97,b# [C4F3C] 
18448 CALL &BC7A:' Datei wieder schliess 

en, entspricht 'closein'’ [E238] 
183458 [1762] 


18458 MODE Z:PRINT:PRINT:PRINT:PRINT "In 

halt der Datei :":PRINT:FRINT a [9EC2] 
18478 PRINT:PRINT b$:PRINT: PRINT:END [155A] 
18488 ' [CE488]1 
18498 ' Unterprogramm Dateiname an ÄAnfa 
ng des Bildschirmspeichers poken [FSF4] 


13580 LSE7A] 


18518 POKE 49152,LEN(a$):REM Laenge able 

gen [36588] 
18528 FOR n=1 TO LENia$) [CB825] 
185358 POKE 49152+n,ASC(MID#(a#,n,i)) [158A] 
18548 NEXT CA&B2] 
18558 RETURN CD2F6] 


Listing. »Sequbild erschließt viel Speicherplatz 
mit wenig Programm« 








Steuerzeichen werden von der Width-Routine des 
Schneiders mitgezählt. Damit das Schriftbild trotz- 
dem ordentlich bleibt, brauchen Sie »WIDTH«. 


ie eingebaute Width-Routine des Schneiders ist nur 
für Listings geeignet. Möchte man jedoch formatier- 
ten Text ausdrucken, treten Schwierigkeiten auf: 
Sendet man ESC-Sequenzen zur Steuerung an den Drucker, 
beispielsweise um die Schriftart umzuschalten, werden 
immer einige Steuerzeichen fälschlicherweise als direkt aus- 
gedruckte Zeichen interpretiert. Das hat zur Folge, daß der 
automatische Zeilenvorschub um ein paar Zeichen zu früh 
beginnt und so jede noch so mühsam ausgeknobelte Druck- 
formatierung durcheinanderbringt. Bei Ausgaben im Grafik- 
Modus werden die Zeilenvorschubbefehle als Bitbildmuster 
interpretiert und unverändert an den Drucker ausgegeben. 
Die Programm- und die Druckerzählung werden »desynchro- 
nisiert« und so zum Schluß ein paar Bitbilder zuviel ausgege- 


Noch ein Trick 








ben (sie erscheinen als normale Zeichen). Da sich die Width- 
Routine nicht abschalten läßt, wenden wir hier einen anderen 
Trick an: Der neue Befehl »ESC,x1,x2.,...xn« sendet die Codes 
x1 bis xn ohne Zählung durch die Width-Routine an den 
Drucker. Dabei ist die Parameterzahl beliebig (zwischen O 
und 32). Außerdem erspart man sich gegenüber 
»PRINT #8,...« das lästige »CHR$(x)«. Es genügt, x allein 
anzugeben. 

Und so setzen Sie die Befehlserweiterung ein: 

Geben Sie einfach das angegebene Listing ein und starten 
Sie es durch »RUN«. Der im Programm vorhandene Call- 
Befehl bindet die Befehlserweiterung in das Betriebssystem 
ein, so daß der Aufruf durch »ESC,x1,x2,...xn« erfolgen kann. 
Das Ladeprogramm dürfen Sie anschließend mit »NEW« 
löschen, ohne daß die Befehlserweiterung verlorengeht. 

(Helmut Tischer/hg) 


di-Check 
Modi-Check 
Wenn Sie bei einem Programm feststellen wollen, 


in welchem Modus sich Ihr Bildschirm befindet, 
läßt Ihr Basic Sie im Stich. 


ft ist es ganz nützlich, zu erfahren, welcher 
Bildschirm-Modus im Schneider CPC gerade aktiv 
ist. Mit PEEK ist das an sich kein Problem. Doch 








‘wenn ein Programm auf allen drei Schneider CPCs laufen 


soll, sind verschiedene Adressen zuständig: Beim CPC 464 
heißt es »PRINT PEEK(&B1C8)«, bei den Modellen CPC 664 
und CPC 6128 hingegen »PRINT PEEK(&B7C3)«. 

Eine bessere, da versionsunabhängige, Lösung finden Sie 
im Listing. Der Computer gibt einen Wagenrücklauf an den 
Bildschirm, der den Cursor an die erste Position der Zeile 
setzt. Ein Backspace (ASCII 8) weist das Betriebssystem an, 
den Cursor auf die letzte Stelle der vorhergehenden Zeile zu 
positionieren. Über die Basic-Funktion POS wird die Cursor- 
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PRINT"Wieviel Zeichen sollen frei de 





[42B2] 








finierbar sein?" 
118 INFUT "SYMBOL AFTER ",„symi CBFBO] 
128 SYMBOL AFTER sym% C[D272] 
158 OPENDUT"dummy" "Kassettenpuffer auf 






den Bereich oberhalb RAMTOP fixieren 























[C240] 
1408 MEMORY HIMEM-1:CLOSEOUT [B448] 
158 SPEED WRITE 1 [A345] 
188 READ n,„m: st=HIMEM-n+1:MEMORY st-i1 [3272] 
19@ FOR i=@ TO n-i (258C1 
200 READ d$:d=VAL("&"+d$) :POKE st+i,d [F36C1 | 
218 NEXT. [&CE4] 

ı 228 FOR i=i TO ma [C78C4] 
238 READ ds LFAFZ2] 
248 d=VAL("&"+d$) EIFFS8] 
258 z=st+PEEK (st+d) +255#PEEK (st+d+1) CBS54C] | 
2£0 POKE st+d+1,INT iz 7256) [D2BE] 
278 FPOKE st+d,z-2565*#INT (z /256) CDF34] | 
288 NEXT C7OF2] 
318 CALL HIMEM+1 [7778] 
328 END [?B18] 
340 DATA 51,6 [2776] 
388 DATA 21,09,20,21,12,80,c3,di [3748] 
s9?8 DATA be ,@de,20,c3,16,009,45,53 [2924] 
4808 DATA c3,808,20,00,00,80,a7,c8 [BDF&] 
418 DATA 47 ,dd,e5,e1,87,5,15,88 [C4BAE] 
428 DATA 19,2b,2b,7e,cd,2a,08,18 [2CDA] 
430 DATA #8,c9,cd,30,20,30,fb,c9 [64681 
448 DATA cf,„f2,87 [C834] 
4508 "Ziffern der zu aendernden Adressen L[DB4E]I 
448 DATA 2001 ,2004,20009,000c LE472] 






478 DATA 8925,002b [CBEBSI]I 












Listing. Überlisten Sie den Zeilenvorschub 














spalte abgefragt. Es kann hier (wenn Sie nicht gerade Win- 
dows verwenden) nur die Werte 20, 40 und 80 geben - ent- 
sprechend dem gewählten Modus. (Martin Kotulla/ja) 


ER 







fr: N Le NE; 
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ER FREE EEE EEE 
Modi-Tester 
Computer: 


CPC 464/664/6128 
Checksummer: | | | 


Explora 
Datenträger: | Kassette/Diskette 














100 MODE bestimmen zur #003## 
118 a=POS (#8) :b=VPOS (#0) 
128 PRINT CHR$(13):CHR$ (8); 

x=POS (#0) 
LOCATE a,b 
IF x=28 THEN PRINT "MODE @" 
IF x=48 THEN PRINT "MODE 1" 
IF x=08 THEN PRINT "MODE 2" 
E 


Immer im Bilde über den Modus 






















































al/MT + 


ne der umfangreichsten Pascal-Imple- 
Sentationen für 8-Bit-Mikrocomputer. 
al/MT+ ist ein volles I5SÖ-Standard- 
das um eine leistungsfähige 
®oorammierumgebung für Industrie-, Ge- 
äfts- und Ausbildungs-Einsatz sowie 
Boglichkeiten zur Systemprogrammierung 
eitert wurde. 

cal/MT+ erweitert die bekannten Vor- 
= der strukturierten Sprache Pascal. Es 
# schneller, vielseitiger, portabler und in 
chsvollen Anwendungen, die die 
icklung separater Programm-Module 
=öordern, einfacher zu verwenden. 


EN 


ei ” 


#35] 
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3"-Diskette für CPC 4B4*, 664", BTZE, 
Hansitiuch in englscher Sprache 


Pe Pa 






akte Umsetzung in schnellen 
jekt-Code 

Beate zu Compilern, die in einen 

schencode übersetzen, wandelt Pascal/MT+ direkt in schnellen n Objekt: -Code um. 
E Assführungszeiten sind deshalb wesentlich besser als bei traditionellen Pseudo- 
Eode-Compilern. 

es Pascal/MT+-Paket beinhaltet: 

einen Compiler, der relokatierbare Öbjekt-Dateien erzeugt, 

einen Linker, der lauffähige Programme erzeugt, 

» eine Laufzeitbibliothek 

einen Disassembler, der die Untersuchung des erzeugten Codes ermöglicht, und 
# einen Debugger, der einen symbolischen Test eines Programms erlaubt 
‚Bibliothek enthält Routinen von der Berechnung transzendenter Funktionen bis zur 
endung von Maschinen-Interrupten. 


> 


I für Geschäfts-, Industrie- und Ausbildungs-Einsatz 

sätzlich zu den numerischen Standard-Datentypen unterstützt Pascal/MT+ entweder 
Beökommazahlen oder binär-codierte Dezimalzahlen (BCD) und erzielt damit die in 
ommerziellen Anwendungen so wichtige Genauigkeit von Ergebnissen ohne Run- 
ungsiehler. 

= industrielle Anwendungen bietet Pascal/MT+ den Vorteil von ROM-fähigem Maschi- 
ode, Möglichkeiten zur Reduzierung der Programmgröße und erweiterte Ein-/Aus- 
sbefähigkeiten. 

* den Einsatz im Ausbildungs- und Lehrbereich empfiehlt sich Pascal/MT+, weil es 
ne volle Implementation von Pascal ist, die man leicht erlernen kann, aber später auch 
= gestiegenen Ansprüchen noch leistungsfähig ist. 


Senügt professionellen Ansprüchen 

cal/MT+ wurde für die hohen Ansprüche professioneller Softwareentwickler und 
“ahrener Anwender entwickelt. Pascal/MT+ wird mit ausführlicher Dokumentation in 
nglischer Sprache geliefert, 


F ee er 

cal/MT+ läuft auf den Schneider-Computern CPC 464 und GPC 664 (mit Speicher- 
eiteru ng), dem CPC 6128 und dem PCW 8256 (Joyce) unter CP/M und CP/M-Plus. 
pilierte Programme sind, bei entsprechender Größe, auch auf dem CPC 464 und 
664 ohne Speichererweiterung lauffähig. 


oe“; 


Die Vorteile von PascallMT+ auf einen Blick: 


* Superset des ISO-Standard-Pascal 

# Kompilierung separater Module 

# erzeugt effektiven Maschinencode 

# komplette Entwicklungstools 

= erweiterte Datentypen (BYTE, WORD, LONGINT, STRING) 
* Bit- und Byte-Manipulationen 

# schneller Dateizugriff 

* Direktzugriffsdateien 

= CHAINing mit Übergabe von Variablen zwischen Overlays 


® umfangreiche Dienstprogramme 
DM 174,-* ser. 158-155 1880,>) 
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CBASIC-Compiler 


Der Hochleistungs-BASIG-Compiler für 
Softwareprofis zur Erstellung kommerziel- 
ler Anwendungen. 

Der CBASIC-Compiler ist ein erweitertes 
BASIC mit wichtigen Vorteilen für Software- 
profis. Er ist ein Compiler, der Maschinen- 
| code erzeugt und die Programmierung und 
den Test separater Module erlaubt, die spä- 
ter ein komplettes Programm ergeben sol- 
len. Die integrierten Grafikmöglichkeiten 
des CBASIC-Compilers erlauben die Pro- 
grammierung vielseitiger Grafikprogramme 
für eine Vielzahl von Anwendungen (nur auf 
Computern mit GSX-Software). 


Schnelle Ausführung 

Der CBASIC-Compiler kombiniert die 
Geschwindigkeit von Maschinencode mit 

der leichten Verständlichkeit der Sprache BASIC. Ein mit dem CBASIC-Compiler kompi- 

liertes Programm wird acht- bis zehnmal schneller ausgeführt als das gleiche interpre- 

tierte Programm. 
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T-Disketie für CPC 464, 634, 6128, 
Joyce POW BZEE 
Handbuch in englischer Sprache 






Grafikerweiterungen 

Der CBASIC-Compiler beinhaltet einen voll integrierten Satz von Grafikbefehlen und 
funktionen. Geräteunabhängige Grafikfähigkeiten ermöglichen die Ausgabe von Grafi- 
ken auf jedem unterstützten Grafikausgabegerät (Bildschirm, Drucker, Plotter) ohne 
Neukompilierung eines Programms. 


Dezimal-Arithmetik 

Die 14stellige Dezimal-Arithmetik gewährleistet höchste Genauigkeit bei Berechnungen 
und stellt sicher, daß alle Geldbeträge auf den Pfennig genau stimmen. Rundungsfehler, 
wie sie bei binärer Arithmetik möglich sind, können nicht auftreten. 

Der CBASIC-Compiler unterstützt auch echte Integer-Arithmetik, so daß zur Erhöhung 
der Geschwindigkeit auch Integer-Variablen verwendet werden können. 


Mehrzeilige Funktionen 

Durch die Möglichkeit, mehrzeilige Funktionen zu erstellen, verfügt der CBASIC- 
Compiler über Fähigkeiten, die sich sonst nur in strukturierten Programmiersprachen 
wie PL/l oder Pascal finden. Innerhalb einer mehrzeiligen Funktion können lokale Varia- 
blen verwendet werden. 


Für professionellen Einsatz 

Der CBASIC-Compiler wurde für die hohen Ansprüche professioneller Softwareentwick- 
ler und erfahrener Anwender entwickelt. Der CBASIC-Compiler wird mit ausführlicher 
Dokumentation in englischer Sprache geliefert. 


Hardwarevoraussetzungen 

Der CBASIC-Compiler läuft auf Schneider CPCG 464 mit Diskettenlaufwerk DDI-1, dem 
CPC 664, dem CPC 6128 und dem 82586 (Joyce). Für Grafikprogramme wird die GSX- 
Software benötigt, die nur mit dem CPC 6128 und PCW 8256 (Joyce) ausgeliefert wird, 


Die Grafiken können dann auf dem Bildschirm oder einem von GSX unterstützten. 


Drucker oder Plotter ausgegeben werden. Es können zum Beispiel der NLQ 401- 
Matrixdrucker, ein Epson- oder kompatibler Drucker und HP- und HP-kompatible Piotter 
zur Ausgabe verwendet werden. 


Die Vorteile des CBASIC-Compilers auf einen Blick: 


“ hohe Geschwindigkeit der erzeugten Programme 
* Grafikerweiterungen 

* Dezimal-Arithmetik mit hoher Genauigkeit 

© umfangreiche Stringverarbeitung 

* Stringlänge bis 32 KByte 

“ mehrzeilige Funktionen 

® keine Zeilennummern erforderlich 

® Overlays durch CHAIN-Befehl 


Best.-Nr. MS 612 


DM 174,-* (sFr. 158,-16S 1680,-*) 


* inkl. MwSt. Unverbindliche Preisempfehlung 


Bestellungen im Ausland bitte an 
untenstehende Adressen. 


Schweiz: Markt3 Technik Vertriebs AG, 


Österreich: Ueberreuter Media Handels- 


Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


— und Verlagsges. mbH, Alser Straße 24, 
= A-1091 Wien, 0222/48 1538-0 


Mn ine 


mr 


u 





w 
ker 


mu FIieEr» 


ee 
Frrz 


zz 


‚4 E 
I ee 








ee 
ra 


e 


u 


+ 


, 


were 


s # 
F ul ae Fe Ei 
DEE EEE 177 2 7 Pe 


bi 
Be 





Ins 


ee — 


En eine 


er; 


5 | bu wenn ei 


ZELL AH den ba lu ln ge en nn nn? 


m nn > ie np hen 





| 


[ 


— 20 


— 
= 


— 





tan Isis, 


2) 


Bann 


un PP tr nen 














CPIM Plus ist der Nachfolger von 
CP/M 2.2. Komfort wird bei die- 
sem - auch CP/M 3.0 genannten 
- Betriebssystem groß geschrie- 
ben. Vorausgesetzt, man weiß 
mehr, als im Handbuch steht. 


c 


P/M Plus hat erst seit dem 
Erscheinen des Schneider CPC 

= 6128 und des Commodore 128 
breite Verwendung gefunden. Es ist 
ebenso wie der Vorgänger CP/M 2.2 
ein sStandard-Betriebssystem. Die 
Bedienung wurde aber um ein Viel- 
faches komfortabler. Und auch die Pro- 
grammierhilfen erfuhren eine wesent- 
liche Verbesserung. Gleiches gilt für die 
inzwischen bedeutend aufschluß- 
reicheren Fehlermeldungen. Das ganze 
System nimmt dem Benutzer Fehler bei 
weitem nicht mehr so übel wie CP/M 
2.2. 

CP/M Plus stammt aus dem Jahr 
1982 und war der letzte Versuch von 
Digital Research, den vordringenden 
16-Bit-Geräten der IBM-PC-Klasse mit 
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der bewährten 8-Bit-Technologie Paroli 
zu bieten. Die bedeutendste Eigen- 
schaft dieses hochentwickelten Be- 
triebssystems ist die Fähigkeit, mehr als 
64 KByte RAM-Speicher ansprechen 
zu können. CP/M 2.2 hingegen ist auf 
ein Maximum von 64 KByte hin konzi- 
piert. Doch die Verwaltung des großen 
Speichers ist nur beschränkt möglich. 
Den Ausbau - beispielsweise auf 512 
KByte - unterstützt CP/M Plus zwar, 
aber aufgrund der Adressierungseigen- 
schaften des Z80-Prozessors dürfen 
die Programme trotzdem nur maximal 
64 KByte lang sein, wenn sie in einem 
Stück in den Speicher passen sollen. 
Der restliche Speicher kann nur als 
RAM-Disk, Druckerspooler oder Dis- 
kettenpuffer benutzt werden. 
Trotzdem holt CP/M Plus alles Mach- 
bare aus dem 8-Bit-Computer heraus. 
Dennoch konnte sich bisher die Version 
3.0 nicht durchsetzen. Aber mit dem 
CPC 6128 von Schneider und dem 
Commodore 128 hat sich die Situation 
geändert. Diese beiden Computer sind 
Massenprodukte für Privatleute sowie 
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das »Small-Business« und arbeiten nur 
»nebenbei« auch unter CP/M 3.0. 

Je nach Computertyp stehen unter 
CP/M 2.2 bis zu 60 KByte freier Ar- 
beitsspeicher zur Verfügung. Beim 
Schneider sind es mit diesem Betriebs- 
system nur rund 39 KByte RAM für die 
TPA (Transient Program Area). CP/M 
3.0 bietet immerhin 61 KByte. Damit 
sind viele Standardprogramme erst voll 
funktionsfähig, die bei einer kleinen 
TPA nur mit Einschränkungen oder 
nach Einbau einer Speichererweite- 
rung zum Laufen gebracht werden 
konnten. 

Auf Grund der Verbesserungen 
erhöhte sich natürlich auch der Umfang 
des Programmcodes von CP/M Plus 
wesentlich. Kam CP/M 2.2 noch mit 
einem Minimal-RAM von 20 KByte aus, 
so verlangt 3.0 mindestens 96 KByte 
Speicherplatz. Einer speziellen Version 
von Digital Research reicht allerdings 
eine einzige 64-KByte-Bank. Sie 
braucht dennoch erheblich mehr Spei- 
cherplatz als CP/M 2.2. Dieser muß nun 
von der TPA »sabgezwackt« werden. Fer- 
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ner bietet diese Sparversion des CP/M 
Plus nicht alle Leistungsmerkmale des 
kompletten CP/M Plus-Betriebssy- 
stems, so daß sie auf fast keinem Com- 
puter (Selbstbau ausgenommen) instal- 
liert wurde. 

Schneider benutzt die vollständige 
Version von CP/M 3.0 mit mehreren 
Speicherbänken. So findet nicht mehr 
das gesamte Betriebssystem auf den 
Systemspuren der Diskette Platz. Denn 
auf zwei Spuren mit neun Sektoren 
passen 9216 (=2+9+512) Byte. Zu 


Besser und länger 


wenig für CP/M Plus, deren Datei 
C10CPM3.EMS, in der das Betriebs- 
system jetzt steht, schon 25 KByte 
umfaßt. 

In den Systemspuren befindet sich 
deshalb lediglich ein Ladeprogramm, 
das die Datei CIOCPM3.EMS in den 
Speicher verfrachtet. Das »EMS« der 
Extension des Dateinamens steht übri- 
gens für »Early Morning-Startup« - ein 
typisches Beispiel für britischen 
Humor. Ohne diese EMS-Datei kann 
CP/M Plus nicht gestartet werden. Des- 
halb fallen von den auf einer Diskette 
zur Verfügung stehenden 169 KByte 
weitere 25 KByte für diese Datei weg, 
so daß die 3-Zoll-Disketten, vom Spei- 
chervolumen her betrachtet, recht 
schlecht dastehen. 

Ein Trostpflaster ist, daß die EMS- 
Datei nur zum Systemstart gebraucht 
wird, also sich keinesfalls auf jeder 
CP/M Plus-Diskette befinden muß. 
Zudem hat CP/M Plus auch gegen das 
Data-Only-Format nichts einzuwenden, 
das 178 KByte formatierte Speicherka- 
pazität bietet. 

CP/M Plus wird - wie auch CP/M 2.2 
- durch Eingabe des RSX-Befehls 
»ICPM« gestartet. Der Computer 
erkennt selbständig anhand der einge- 
legten Diskette, ob er CP/M 2.2 oder 
CP/M Plus laden soll. Das Booten des 
Betriebssystems dauert bei CP/M 3.0 
deutlich länger als bei CP/M 2.2. Ver- 
ständlich, denn der Programmcode 
wurde schließlich auch erheblich 
umfangreicher. 

Die CP/M-Startmeldung lautet: 

CP/M Plus Amstrad Consumer 
Electronics ple 
v 1.0, 61K TPA, 1 dise drive 

Die Startmeldung zeigt, wie viele Dis- 
kettenlaufwerke an den Computer an- 
geschlossen sind. Falls Sie trotz Zweit- 
station die Meldung »1 disc drive« erhal- 
ten, haben Sie wahrscheinlich verges- 
sen, beim Booten des Betriebssystems 
eine Diskette in diese Station zu legen 
und die Laufwerksklappe zu schließen. 

Die Feststellung, ob ein oder zwei 
Diskettenlaufwerke benutzt werden, 
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hat durchaus einen tieferen Sinn. Fehlt 
die zweite Station, kann das Betriebssy- 
stem diese nämlich simulieren. Sobald 
von einem laufenden Programm oder 
vom Benutzer ein Zugriff auf das (nicht 
vorhandene) zweite Laufwerk verlangt 
wird, erscheint in der untersten Bild- 
schirmzeile folgende Laufschrift: 
Please put the disc for B: 

into the drive then press any key 

Sie legen dann die B-Diskette ins A- 
Laufwerk ein und das Betriebssystem 
»gaukelt« dem Anwenderprogramm vor, 
daß die Daten von der imaginären Dis- 
kettenstation kommen. 

Damit Sie aber wissen, welches Lauf- 
werk gerade selektiert ist, steht in der 
rechten unteren Bildschirmecke die 
Meldung »Drive is A:« oder »Drive is Bi«. 
So können Sie viele Programme, die 
eigentlich mit zwei Laufwerken arbei- 
ten, auch mit nur einer Diskettenstation 
verwenden. Das ständige Wechseln 
von Disketten ist auf Dauer allerdings 
etwas mühselig. Und auch die Mecha- 
nik des Disketten-Laufwerks nimmt die 
Doppelbelastung auf längere Sicht 
eventuell übel. 

Neben dieser Hilfsroutine, über deren 
Sinn man durchaus geteilter Meinung 
sein kann, existieren noch diverse Mit- 
tel, die die Arbeit mit CP/M Plus sehr 
vereinfachen. Unter CP/M 2.2 ist das 
Editieren von Befehlszeilen bekanntlich 
eine Qual. Außer DEL - beziehungs- 
weise CTRL-H - gibt es kaum eine Kor- 
rekturmöglichkeit der vorgenommenen 
Eingaben. CP/M Plus hat da deutlich 
zugelegt und erreicht beinahe den 
Komfort des Basic-Editors eines 
Schneider CPC. 

Am besten arbeiten Sie jetzt am Com- 
puter mit, um sofort die Auswirkungen 
der einzelnen Befehle zu sehen. Sie 
brauchen dazu eine Kopie der Diskette 
1 des CP/M-Betriebssystems. Mit dem 
RSX-Befehl »|CPM« starten Sie CP/M 
3.0. Tippen Sie bitte ein: 

A>POP CON:=KRYS.WP(NZ) 


Editieren mit 
_ Komfort 


In diese Zeile haben sich nun eine 
ganze Reihe von Fehlern eingeschli- 
chen. So muß die Angabe »NZ« in ecki- 
gen Klammern stehen - nicht in runden. 
Um das letzte Zeichen auszubessern, 
können Sie einfach CTRL-H oder DEL 
drücken. Dann steht auf dem Bild- 
schirm: 

A>POP CON:=KRYS.WP({NZ 

Nun fügen Sie die eckige Klammer 
an: 

A>POP CON:=KRYS.WP(NZ] 

Wenn Sie jetzt viermal CTRL-A 
drücken, wandert der Cursor nach links 


über das Zeichen »(«. CTRL-G löscht 
dieses und zieht den Rest der Zeile von 
rechts heran: 
A>POP CON:=KRYS.WPNZ] 

Sie müssen hier nun auch eine eckige 
Klammer einsetzen: 
A>POP CON:=KRYS.WPI[NZ] 

Als nächstes nehmen wir uns »POP« 


' vor, wofür eigentlich »PIP« stehen soll. 


Tippen Sie CTRL-B, und der Cursor 
springt an den Anfang der Eingabezeile. 
Einmal CTRL-F gedrückt, und der Cur- 
sor bewegt sich eine Position nach 
rechts auf das »O«. Wieder löscht 
CTRL-G das betroffene Zeichen und »I« 
wird eingesetzt: 

A>PIP CON:=KRYS.WP[NZ] 

Jetzt sind Sie an der Reihe: Andern 
Sie »KRYSWP« in »KEYSWP« ab. Sie 
wissen doch noch, wie man den Cursor 
bewegt und Zeichen löscht? Als Resul- 
tat muß jedenfalls 
A>PIP CON:=KEYS.WP[NZ] 
auf dem Bildschirm stehen. 

Wenn Ihnen nach der Ausführung des 
Befehls die automatische Zeilennume- 
rierung von PIPCOM mit der »N«-Option 
nicht gefällt, können Sie das ändern, 
ohne die Zeile noch einmal einzugeben. 


Die Geheimnisse der 
Content FREE 


Drücken Sie einfach CTRL-W, worauf 
der Computer die Zeile noch einmal so 
anzeigt, als hätten Sie sie gerade einge- 
geben. Mit den bekannten Editierkom- 
mandos ist es ein leichtes, die Zeile in 
A>PIP CON:=KEYS.WP[Z] 
abzuändern. 

Zur Übersicht finden Sie im folgenden 
alle CTRL-Codes, die Ihnen der CCP 


(Console Command Processor) zum 


Editieren von Befehlszeilen anbietet: 

CTRL-A bewegt den Cursor um eine 
Bildschirmposition nach links. 

CTRL-B stellt den Cursor an den 
Anfang der Eingabezeile. Befindet er 
sich bereits dort, springt er an das Ende 
der Zeile. 

CTRL-E fügt einen physikalischen 
Wagenrücklauf ein, der von CP/M aber 
nicht beachtet wird. So dürfen Sie statt 
der obigen Zeile gleichwertig auch 
schreiben (»’« steht für die CTRL-Taste): 
A>PIP CON:=KEY’E 
S.WP[Z] 


CTRL-F schiebt den Cursor um ein 


Zeichen nach rechts. 
CTRL-G löscht das unter dem Cursor 
stehende Zeichen. 


CTRL-H und DEL entfernt das Zei- 
chen links vom Cursor und bewegt den 
Cursor um dieses eine Zeichen nach 


links. 


CTRL-I und TAB positioniert den Cur- 


sor am nächsten Tabulatorstop. Even- 


tuell rechts vom Cursor stehende Zei- 
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chen werden ebenfalls nach rechts ver- 
schoben. 

CTRL-J, CTRL-M, ENTER und 
RETURN schließen eine Eingabezeile 
ab, die in der Folge vom System inter- 
pretiert wird. 

CTRL-K entfernt alle Zeichen von der 
Cursorposition bis zum Ende der Einga- 
bezeile. 

CTRL-R schreibt einen eingegebe- 
nen Befehl nochmals auf den Bild- 
schirm, wo Sie ihn bequem editieren 
können. Dieser Steuercode ist nur wirk- 
sam, bevor Sie RETURN drücken. 

CTRL-S stoppt das Bildschirm- 
Scrollen. 

CTRL-Q nimmt es wieder auf. 


CTRL-U behält seine alte Aufgabe aus 
CP/M 2.2 und ist dazu gedacht, die 
Bearbeitung einer Eingabezeile abzu- 
brechen. Es erscheint das Doppelkreuz 
»#«, das Sie auffordert, Ihre Eingabe 
mit den gewünschten Korrekturen zu 
wiederholen. 


CTRL-W wiederholt eine vorherige 
Eingabe. Wenn Sie schon Zeichen in 


der Zeile eingetippt haben, stellt sich 
der Cursor lediglich an das Ende der 
Eingabezeile. 

CTRL-X löscht alle Zeichen vom Zei- 
lenanfang bis zur Cursorposition und 
zieht den rechtsstehenden Text nach 
links. 

Die weiteren Control-Funktionen sind 
den meisten CP/M-Benutzern bekannt. 
Da gibt es CTRL-C, mit dem man unter 
der Version 2.2 jede Diskette, die in 
einem Laufwerk gewechselt wurde, 
anmelden muß. CP/M Plus ist so anwen- 
derfreundlich, daß es bei jedem Zugriff 
ein »Log-In« durchführt, wodurch das 
lästige Anmelden der Disketten voll- 
ständig entfällt. 

Wenn Sie CTRL-C drücken, löst der 
Computer aber weiterhin einen Warm- 
start aus. Sie werden dabei bemerken, 
daB das Diskettenlaufwerk nicht 
anläuft, um das BDOS und den CCP 
nachzuladen. Beide Systemteile sind 
unter 3.0 in der Systembank der Spei- 
chererweiterung abgelegt und können 


'bei Bedarf blitzschnell zurückkopiert 


werden. 


Auch CTRL-P erfuhr eine Verbesse- 
rung. Diese Tastenkombination schaltet 
das automatische Mitprotokollieren von 
Bildschirmausgaben auf dem Drucker 
ein und wieder aus. Neu ist, daß ein 
nicht angeschlossener (beziehungs- 
weise nicht empfangsbereiter) Drucker 
nicht mehr zu einem Systemabsturz 
führt. Nach einigen Sekunden er- 
scheint vielmehr in der untersten Bild- 
schirmzeile die Meldung: 

LPT not ready - Retry, 
Ignore or Cancel? 

»R« startet einen neuen Versuch zur 
Druckerausgabe, »I« ignoriert, daß ein 
Zeichen nicht abgesetzt werden 
konnte, und versucht die Ausgabe mit 
dem nächsten Zeichen, und »C« bricht 
die Druckerausgabe ab und setzt das 
CTRL-P-Flag zurück. Weitere Versuche 
mit CTRL-P beachtet der Computer 
dann gar nicht mehr. Dieser Benutzer- 
komfort ist allerdings kein Verdienst von 
DigitalResearch, sondern von Amstrad, 
wo das BIOS entsprechend program- 
miert wurde. 

(Martin Kotulla/hg) 





Transient, resident 
oder was? 


Nicht jeder Befehl unter CP/M 
steht permanent vollständig im 
Speicher. Der Komfort geht auf 
das Konto von Zusatzdateien. 


lle CP/M-Programme besitzen 

neben dem Dateinamen die Ex- 

tension (Erweiterung) ».COM«. 
Besonders wichtige Befehle stehen 
aber ständig im RAM-Speicher - sind 
also »residente« (lat.: residere - verwei- 
len). Dabei handelt es sich beispiels- 
weise um Kommandos zum Anzeigen 
des Disketten-Inhaltsverzeichnisses 
oder zum Löschen von Dateien. Resi- 
dente Kommandos werden blitzschnell 
ausgeführt. Man kann jedoch nicht alle 
Befehle im RAM aufnehmen: deshalb 
stehen die weiteren Kommandos auf 
der Diskette. Diese COM-Dateien hei- 
Ben »transient« (lat.: transire - vorüber- 
gehen), weil sie nur vorübergehend in 
den Speicher geladen werden. 

CP/M Plus kennt eine neue Befehls- 
klasse. Man könnte sie »halb-resident« 
oder »transient-resident« nennen. Gibt 
der Benutzer bei einem residenten 





Befehl Parameter an, die dieser norma- 
lerweise nicht kennt, so lädt der Com- 
puter selbsttätig eine Datei gleichen 
Namens in den Speicher. Diese erwei- 
terten Anweisungen sind leistungsfähi- 
ger als die ursprünglichen residenten 
Befehle. 

Beginnen wir mit den einfachen resi- 
denten Befehlen: 

A: wählt das Laufwerk A als Standard- 
laufwerk. 

B: selektiert das Diskettenlaufwerk B 
als angemeldete Station. 

DIR zeigt das Inhaltsverzeichnis einer 
Diskette auf dem Bildschirm an. Wahl- 
weise kann ein Bereich bestimmter 
Dateien mit den Wildcards (Joker- 
Zeichen) »?« und »*« ausgewählt wer- 
den. Der Computer zeigt dann nur die 
Dateinamen an, die ins vorgegebene 
Muster passen. Ein paar Beispiele für 
DIR finden Sie in Bild 1. 

ERA oder ERASE löscht Dateien von 
der Diskette. Angegeben werden ein- 
oder mehrdeutige Dateinamen, sowie 
wahlweise das zugehörige Disketten- 
laufwerk. Einige Beispiele für ERA fin- 
den Sie in Bild 2. 

REN oder RENAME benennt Dateien 


auf der Diskette um. In der residenten 
Version des Befehls sind nur eindeutige 
Dateinamen gestattet. Als erstes muß 
der neue Dateiname eingetippt werden, 
dann der alte. Beide sind durch ein 
Gleichheitszeichen, ein Komma, ein 
Leerzeichen oder einen Tabulator- 
sprung voneinander getrennt: 

A>REN NEU.TXT=ALT.TXT 

A>RENAME B:NEUER.TXT=ALTER.TXT 
A>REN A,B 

A>RENBA 

A>RENAME A<CTRL-I>B 

Die Erweiterung erlaubt auch das 
gleichzeitige Umbenennen mehrerer 
Dateien: 

A>REN #,TXT=#.BAK 
A>RENAME DATEI.*=%,??1 
A>REN *%.BAK=%*,# 

TYP oder TYPE gibt eine ASCII-Datei 
auf dem Bildschirm aus. Sie läßt sich 
natürlich mit CTRL-P zusätzlich auf dem 
Drucker auflisten. Die Anzeige von 
COM-Files und anderen Nicht-Text- 
Dateien führt meist zu den tollsten 
Resultaten wie blinkenden Farben, Set- 
zen von Windows und ähnlichen über- 
raschenden Dingen. Das liegt daran, 
daß manche Codes mit TYPE als Bild- 





















































schirmsteuerzeichen interpretiert wer- 
den. Sie sollten daher solche Dateien 
besser nicht ausdrucken. Beispiele für 
TYPE: 


A>TYPE DATEIL.TAT 
A>TYP DATEI.TXT 

Die Bildschirmausgabe können Sie 
mit CTRL-S anhalten und mit CTRL-O 
wieder fortsetzen. Abgebrochen wird 
die Anzeige durch CTRL-C. Jedesmal, 
wenn der Bildschirm vollgeschrieben 
ist, erscheint die Systemmeldung 
Press RETURN to Continue 
und der Computer wartet auf einen 
Tastendruck. Dies muß übrigens nicht 
RETURN sein, jede beliebige andere 
Taste eignet sich dazu genauso. Dann 
erscheint allerdings das betreffende 
Zeichen auf dem Bildschirm. 

USER oder USE wechselt den Benut- 
zerbereich. Normalerweise ist die 
Benutzernummer OÖ vorgegeben. 

»USER 5« bedeutet zum Beispiel, daß 
DIR nur diejenigen Dateien auflistet, die 
im Benutzerbereich 5 gespeichert sind. 
Die Dateien aus den anderen Bereichen 
werden nicht angezeigt. Die Befehls- 
syntax sieht so aus: 

USER 4 
USE 0 
USER 15 

Unter CP/M Plus stehen dem Benut- 

zer die Bereiche O bis 15 zur Verfü- 
gung. Ist ein anderer als der User- 
Bereich O gewählt, erscheint die Num- 
mer im CP/M-Prompt: 
A>USER 11 
11A>USER 3 
3A>USER 0 
A> 

Geben Sie nur »USER« ein, so fragt 
Sie der Computer nach der gewünsch- 
ten Benutzernummer: 

A> USER 
Enter User #: 4 
4A> 

Es gibt noch einen einfacheren Weg, 
zwischen den verschiedenen Benut- 
zerbereichen hin- und herzuschalten. 
Diese Methode ähnelt der Umschal- 
tung zwischen einzelnen Laufwerken: 
A>15A: 
15A>TB: 

TB>0: 
B>A: 
A> 

Der Benutzerbereich O unterschei- 
det sich von allen anderen dadurch, daß 
Dateien mit SYS-Attribut (siehe Artikel 
über SET.COM in dieser Ausgabe), die 
in diesem Benutzerbereich stehen, von 
allen anderen Bereichen ebenfalls auf- 
gerufen werden können. Der Benutzer 
0 ist sozusagen ein »Super-User« oder 
»Super-Visor«e. Den anderen Benutzern 
ist es nur gestattet, Daten vom Benut- 
zerbereich O zu lesen und zu laden, 
nicht aber in diesen Bereich zu schrei- 
ben. 





-alle Dateien der angemeldeten Diskettenstation werden ausgegeben. 
-alle Dateien von Laufwerk B werden ausgegeben. 


A>DIR *COM 


A>DIR KEYS.” 
A>DIR FILES.COM 
A>DIR B:??BBC.* 


-alle Dateien mit dem Zusatz ».COM« werden angezeigt. 

-alle Dateien mit dem Namen »KE'Y'S« werden angezeigt. 

-die Datei »FILES.COM« wird angezeigt. 

-alle fünfbuchstabigen Dateien auf Laufwerk B, die »BBC« als dritten bis fünften Buch- 





staben haben, werden angezeigt. 








Bild 1. Das Directory in allen Variationen 





A>ERA FILE.COM 
A>ERA "COM 
A>ERASE "COM 


gelöscht. 
A>ERA *. 
A>ERASE ** 


Bild 2. Löschen mit Komfort 


Scanning Directory... 
Sorting Directory... 


Directory For Drive A: User 8 


Name Bytes Recs Attributes 


-die Datei »FILE.COM« wird gelöscht. 

-alle Dateien mit dem Zusatz ».COM« werden gelöscht. 

-alle Dateien mit dem Zusatz »COM« werden gelöscht. 

A>ERA ArCDEF.’T -alle sechsbuchstabigen Dateien mit einem »A« als ersten und »CDEF« als dritten bis 
sechsten Buchstaben, sowie einem Zusatz mit »T« als letzten Buchstaben, werden 


-alle Dateien werden gelöscht. 
-alle Dateien werden gelöscht. 





Name Bytes Recs Attributes 
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AMSDOS COM ik Dir RW 
BANKMAN BIN 2K i2 Dir RW 
DATE COM 3k 23 Dir RW 
DIR COM 15k Dir RW 
ED COM 12k Dir Ru 
GET COM 7k ii Bir RW 
KEYS WF Ik Dir RW 
| PALETTE COM Dir RW 
FROFILE SUB i Dir Ru 
| RENAME COM Dir RW 
SETZ4K8B COM Dir RW 
SETKEYS COM { Dir Ru 
SETSTO COM Dir RW 
SUBMIT COM : Sys RW 


Total Bytes = 
Total ik Blocks = 


Total Records = 
Used’/Max Dir Entries For Drive A: 29 


BANKMAN BAS ik ?’ Dir RW 
CIGOCFM3 EMS 25k Dir Ru 
DEVICE COM Bk B Dir RW 
DISCKIT3 COM &k Dir 
ERASE COM 4k 

KEYS EEP ik 

LANGUAGE COM 

PIP EOM ?k 

FUT COM 

SET EOM 

SETDEF COM 

SETLST COM 

SHOW COM Fk 

TYPE COM 5k 


iB93 Files Found = 





Bild 3. Ganz schön leistungsfähig, dieses DIR[FULL] 


Nebenbei erwähnt: In CP/M Plus dür- 
fen Sie mehrere Befehle in einer einzi- 
gen Zeile eingeben. Sie werden durch 
Ausrufezeichen voneinander getrennt: 
A>DIR ! ERA FILE.COM ! DIR 

Wenn Sie nun auf die Erläuterung 
des unter CP/M 2.2 residenten SAVE- 
Befehls warten, müssen wir Sie ent- 
täuschen. Dieses Kommando, das Teile 
der TPA auf der Diskette speichert, ist 
unter CP/M Plus nicht mehr resident, 
sondern steht als SAVE.COM auf der 
Diskette. Das erschwert die Arbeit oft 
unnötig, weshalb diese Maßnahme 
wohl seitens der Benutzer keine Begei- 
sterungsstürme auslöst. 

Sozusagen als Ersatz versteht der 
Computer jetzt das Kommando DIRSYS. 
Dieser Befehl zeigt Systemdateien an 
einer Diskette an. Er hat die gleiche 
Syntax wie DIR und kann auch zu DIRS 
abgekürzt werden: 

A>DIRSYS 

A>DIRS 
A>DIRSYS.COM 
A>DIRS ??AAB.COM 

Gehen wir nun zu den »Mischbefeh- 
len« über. Von einem schönen alpha- 
betisch sortierten Directory samt 


Angabe der Dateigrößen und anderer 
Informationen träumt wohl jeder. 

DIR.COM unter CP/M Plus kann das 
auch. Sie erinnern sich: Schwierige 
Aufträge kann ein residenter Befehl 
nicht bearbeiten und reicht sie an das 
transiente Programm weiter. DIR.COM 
(die Erweiterung von DIR) steht beim 
6128 auf der ersten CP/M-Systemdis- 
kette. Geben Sie 
A>DIR [FULL] 
ein und es erscheint die Meldung 
Scanning Directory... 

Sorting Directory... 

Der Computer gibt dann sortiert den 
Disketteninhalt aus und zwar so, wie es 
Bild 3 zeigt. 

Weitere nützliche Fähigkeiten von 
DIR.COM zeigen[DIR], das ausschließ- 
lich Nicht-Systemdateien auflistet, 
[SYS], das nur die Systemfiles ausgibt 
und [NOPAGE], das die Aufforderung 
»Press RETURN to Continue« bei voll- 
geschriebenem Bildschirm unter- 
drückt. 

Die Anweisung [NOSORT] unterläßt 
die alphabetische Sortierung der Datei- 
namen. [RO] zeigt nur schreibge- 
schützte Files (Read/Only Files) an, 
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Stamping Inactive«. 


DRIVE=d 





[RW] hingegen nur solche ohne 
Schreibschutz (Read/Write Files). 
[DATE] gibt die Datums- und Uhrzeit- 
kennung der Dateien mit aus, wenn die 
Diskette mit INITDIR.COM (siehe Artikel 
»Sekundengenau« in dieser Ausgabe) 
entsprechend vorbereitet wurde. [ATT] 
zeigt die vom Benutzer definierbaren 
Dateiattribute F1, F2, F3 und F4 zusätz- 
lich mit an - sofern sie eingeschaltet 
sind. 

Statt der Angabe »DIR B:[Option]« 
können Sie aber auch »DIR [DRIVE= 
B.Option]« eingeben. Hier erkennen 
Sie, wie Sie mehrere Optionen gleich- 
zeitig spezifizieren. Diese werden 
durch Kommas getrennt. 

DIR [DRIVE=A,FULL,NOPAGE,DATE] 

Doch DIR.COM kann noch mehr. Statt 
»DRIVE =d« versteht es auch »DRIVE= 
ALL« und gibt dann das Directory aller 
angeschlossenen Diskettenstationen 
aus. Interessiert der Disketteninhalt von 
mehreren der angeschlossenen Lauf- 
werke, verwendet man den Befehl 
»[DRIVE=(A,B,...)]«. 

[SIZE] sortiert die Dateinamen nicht 
nach dem Alphabet, sondern nach der 
Dateigröße. 

Um die Dateien eines speziellen 
Benutzerbereichs aufzulisten, eignen 
sich zwei Kommandos. Das eine lehnt 
sich an den residenten USER-Befehl 
an, das andere an das Programm 
PIPCOM. [USER=n] entspricht [Gn]. 
A>DIR [USER=5] 

A>DIR [65] 

Der G-Befehl wurde allerdings von 

Digital Research offiziell nicht doku- 
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-Ausgabe der benutzerdefinierten Dateiattribute F1, F2, F3 und FA. 
DATE -Zusätzliche Ausgabe der Datums- und Uhrzeit. Sind die Disketten nicht mit 
INITDIR.COM vorbereitet, erscheint die Fehlermeldung »ERROR: Date and Time 


DIR -Es werden nur diejenigen Dateien gezeigt, die keine Systemfiles sind. 
-Das Directory wird vom angegebenen Laufwerk geholt. 


DRIVE=(di,d2,..) -Das Inhaltsverzeichnis der angegebenen Laufwerke wird angezeigt. 

DRIVE=ALL -Das Inhaltsverzeichnis aller angeschlossenen Laufwerke wird ausgegeben. 

EXGLUDE -Alle angegebenen Dateinamen werden bei der Ausgabe des Inhaltsverzeichnisses 
von DIR.COM unterdrückt. 

FF -Ist der Drucker mit CTRL-P zugeschaltet, wird vor der Ausgabe des Directory ein 
Line-Feed gesendet. Über LENGTH läßt sich die Seitenlänge festlegen. 

FULL -DIR.COM gibt ein vollständiges Inhaltsverzeichnis aus. 


Gn -Zeigt das Inhaltsverzeichnis des angegebenen Benutzerbereichs. 


LENGTH=n -Bestimmt die Seitenlänge, also die Zahl der Zeilen, nach der jeweils ein Form-Feed 
an den Drucker geschickt wird. 

MESSAGE -Sagt dem DIR-Programm, daß alle durchsuchten Laufwerke und Benutzerbereiche 
angezeigt werden sollen. »DIR[USER=ALL MESSAGEI« gibt in allen Benutzerberei- 
chen, in denen keine Dateien gefunden werden, »Directory For Drive d: Usern - No 
File« aus. 

NOPAGE -Unterdrückt die Ausgabe von »Press RETURN to Continue« am Seitenende. 

NOSORT -Verhindert die alphabetische Sortierung der Dateinamen. 

RO -Zeigt nur Dateien mit dem Read/Önly-Attribut. 

RW -Zeigt nur Dateien mit dem Read/Write-Attribut. 

SIZE -Gibt ein vereinfachtes Directory-Listing aus. 

SYS -Zeigt nur Dateien mit dem SYS-Attribut. 

USER=n -Listet die Dateien eines speziellen Benutzerbereichs. 

USER=(0,1....) -Gibt auf dem Bildschirm die Dateien aller angegebenen Benutzerbereiche aus. 

USER=ALL 


-Zeigt das Directory aller Benutzerbereiche. 


Bild 4. Alle Befehlsformen von DIR.COM auf einen Blick 
































mentiert und entsprang wohl einer 
Laune des Programmierers. 

[USER=n] hat eine Zusatzoption - 
und zwar ALL.[USER=ALL]. 
A>DIR [FULL,USER=ALL] 

Ebenso können mehrere Benutzer- 
bereiche gleichzeitig gelistet werden. 
A>DIR [FULL,USER=(0,1,2,3,4)] 

Die Option MESSAGE erlaubt es dem 
Benutzer, die Arbeit von DIR.COM zu 
verfolgen. Das Programm zeigt dann 
ständig an, welches Laufwerk und wel- 
che Benutzer-Nummer gerade unter- 
sucht wird. 

Speziell für die Druckerausgabe sind 
die Anweisungen FF und LENGTH ge- 
dacht. FF weist DIR.COM an, vor der 
Ausgabe einen Blattvorschub (Form- 
Feed) an den Drucker zu senden. 
LENGTH=n setzt die Seitenlänge in 
Druckzeilen fest. 

Zuletzt noch die EXCLUDE-Option. 
Wie der Name schon andeutet, lassen 
sich bestimmte Dateien aus dem 
Inhaltsverzeichnis wieder herausneh- 
men. So druckt 
A>DIR [EXCLUDE] *%.COM 
alle Dateien bis auf die COM-Files aus. 

Eine vollständige Darstellung aller 
DIR-Optionen zeigt Bild 4. 

Erheblich komfortabler als unter 
CP/M 2.2 arbeitet auch ERA.COM. 
Fragt die Version 2.2 nur nach der Ein- 
gabe von »ERA *.*«, ob das Löschen 
der gesamten Diskette wirklich im 


Sinne des Anwenders ist, geschieht 
das unter CP/M Plus bei jedem mehr- 
deutigen Dateinamen, in dem ein Frage- 
zeichen oder Stern vorkommt. 





A>ERA #.* 

ERASE *.% (Y/N)? 
A>ERA F.* 

ERASE F.* (Y/N)? 
A>ERA R??,COM 
ERASE R??.COM (Y/N)? 

Die eigentliche Datei ERA.COM wire 
erst aktiv, wenn Sie »ERA« ohne Parz 
meter eingeben. Das Programm fragf 
dann nach den zu löschenden Files: 











A>ERA 
Enter filename: DATEI 
A: DATEI (Y/N)? X 


Bei mehrdeutigen Dateinamen zeigf 
ERACOM alle in Frage kommender 
Files und gibt dem Benutzer Gelege 
heit anzugeben, ob die Dateie 
gelöscht werden sollen oder nicht. 
A>ERA 
Enter filename: DATEI.* 

A: DATEI (Y/N)? Y 
A: DATEI x (Y/N)? N 

Die Abfrage von mehrdeutigen Datei- 
namen kann auch bei der direkten’ 
Angabe der ERA-Parameter über 
»CONFIRM« erfolgen. 

A>ERA *.COM [CONFIRM] 
A: SUBMIT .COM (Y/N)? N 
A: SETKEYS .COM (Y/N)? Y 
A: LANGUAGE.COM (Y/N)? "C 
*%*%* Aborted by "C *%%* 

Der normale RENAME-Befehl ge- 
stattet weder unter CP/M 2.2 noch 
unter 3.0 die Angabe mehrdeutiger 
Dateinamen. RENAMECOM nun 
macht's möglich. | 
A>REN | 
Enter New Name: *%.CIM | 
Enter Old Name: *%.COM | 

War CP/M 2.2 noch darauf ausgerich- 
tet, daß eine eventuelle Laufwerksbe- 
zeichnung nur beim ersten oder bei bei- 
den Dateinamen (aber dann identisch) ° 
angegeben werden durfte, ist es der 
Version 3.0 »egalk, ob Sie den Lauf- 
werksnamen beim ersten oder zweiten 
Dateinamen nennen. 

Ein ohne Parameter aufgerufenes 
»IYPE« veranlaßt den Computer, 
»TYPE.COM« in den Speicher zu laden 
und die Anfrage »Enter file:« auszu- 
geben: 

A>TYPE 
Enter file: 

Gefällt Ihnen nicht, nach jeweils 24 
oder 25 ausgegebenen Zeilen eine 
Taste drücken zu müssen (»Press 
RETURN to Continue«), können Sie 
diese Funktion mit [NOPAGE] ab- 
schalten: 

A>TYPE TEXT.DAT[NOPAGE] 

Auch die Schreibweise »NO PAGE«, 
also mit einem eingefügten Leerzei- 
chen, ist dem System verständlich. 
A>TYPE TEXT.DAT[NO PAGE] 

Die Option »PAGE« ist ebenso zuläs- 
sig, kann aber wegfallen, weil sie schon 
standardgemäß voreingestellt ist. 

(Martin Kotulla/hg) 

















Der Schneider CPC 6128 wird 
mit verschiedenen, speziell für 
ihn geschriebenen Program- 
men ausgeliefert. Was diese 
alles leisten, das finden Sie 
nicht in Ihrem Handbuch. 


eben den eigentlichen System- 

dateien enthält die CP/M-Dis- 

kette des Schneider CPC 6128 
verschiedene Hilfsprogramme, die die 
Arbeit mit dem Computer komfortabler 
machen. Was fehlt, ist eine ausführliche 
Beschreibung im Handbuch. 

AMSDOS.COM ist eine sehr kurze 
Datei (1 KByte), die die Rückkehr aus 
CP/M ins Basic ermöglicht. Dazu ruft 
das Programm den RSX-Befehl »IBA- 
SIC« auf. Da dabei alle Daten im Spei- 
cher verlorengehen, kann man auch 
einen einfacheren Weg wählen, indem 
man einfach die Tasten CTRL, SHIFT 
und ESC gleichzeitig drückt. 

Bei DISCKIT3.COM handelt es sich 
um ein sehr benutzerfreundliches Pro- 
gramm, mit dem sich Disketten kopie- 
ren, formatieren und verifizieren (die 
Kopie auf Fehler überprüfen) lassen. 
Das Programm ermittelt automatisch 
die Zahl der angeschlossenen Disket- 
tenlaufwerke. Es wird mit den Funktions- 
tasten gesteuert und ist nahezu narren- 
sicher zu bedienen. Diese Sicherheit 
erfordert allerdings auch etwas Auf- 
wand. So muß der Benutzer etwa jede 
Auswahl, die er getroffen hat, bestäti- 
gen, und beim Kopieren von Disketten 
diese zwingend aus dem Laufwerk ent- 
fernen, um anschließend eine Taste 





drücken zu können. Das Programm 
überprüft sogar, ob das Laufwerk dann 
auch wirklich leer ist. 

Das Hauptmenü von DISCKIT3 stellt 
die Wahl frei zwischen »Copy« (sekto- 
renweises Kopieren von Disketten), 
»Format« (Formatieren der Disketten), 
»Verify« (Überprüfung von Disketten) 
sowie »Exit from program«, das die 
Bearbeitung des Programms abbricht. 

LANGUAGE.COM schaltet zwischen 
verschiedenen nationalen Zeichensät- 
zen um. Das betrifft aber leider nur die 
Bildschirmausgabe und nicht die 
Tastaturbelegung. Letztere erfordert 
die Umstellung mit SETKEYS.COM. 
Language benutzt folgende Parameter: 


A>LANGUAGE 0 - 
US-amerikanische Zeichen 
A>LANGUAGE 1 - 
Französische Zeichen 
A>LANGUAGE 2 - 
Deutsche Zeichen 
A>LANGUAGE 3 - 
Britische Zeichen 
A>LANGUAGE 4 - 
Dänische Zeichen 
A>LANGUAGE 5 - 
schwedische Zeichen 
A>LANGUAGE 6 - 
Italienische Zeichen 
A>LANGUAGE 7 - 
Spanische Zeichen 


Bei dieser Gelegenheit wollen wir 
auch darauf hinweisen, daß CP/M 3.0 
auf dem Schneider einen völlig anderen 
Zeichensatz benutzt als CP/M 2.2. Das 
betrifft vor allem die Grafikzeichen, die 
vollständig durch andere Symbole und 








eine Reihe nationaler Zeichen mit den 
verschiedensten Akzenten und Tilden 
ersetzt wurden. Aber auch bei den 
Buchstaben »O«, »O« und der »O« (Null) 
änderte sich die Definition. Aufgrund 
dieser Änderungen sind viele pro- 
fessionelle Anwenderprogramme be- 
fähigt, ohne Schwierigkeiten auf die 
verschiedensten Zeichensätze zuzu- 
greifen. Allerdings läuft CP/M 
2.2-Software nicht mehr korrekt, wenn 
sie auf Grafikzeichen angewiesen ist. 

Das Programm PALETTE.COM paßt 
Bildschirm- und Zeichenfarben an. Der 
Aufruf erfolgt mit 
A>PALETTE Schirm-, Schriftfarbe 

Für schwarze Schrift auf leuchtend 
weißem Grund mit leuchtend weißem 
Bildschirmrand geben Sie beispiels- 
weise 
A>PALETTE 63,0 
ein. Auch die hexadezimale Darstellung 
der Zahlen für die Farben ist zulässig: 
A>PALETTE &3F,&00 

Eine getrennte Festlegung der Hin- 
tergrund- und der Randfarbe - sowie 
Blinken - läßt sich mit PALETTE nicht 
einstellen. 

Wenn Sie unter CP/M im Modus 1 
oder O arbeiten wollen, können Sie wei- 
tere Farben festlegen. Dazu fügen Sie 
bei PALETTE die Werte für die Farbregi- 
ster O bis 15 hinzu. Allerdings verläuft 
dann der Bildschirmaufbau vieler Pro- 
gramme, die jameist mit 80 Zeichen pro 
Zeile arbeiten, nicht korrekt. 
A>PALETTE Farbel Farbeil Farbe2 
Farbe3 Farbe4 Farbe5 Farbe6 
Farbe Farbeß Farbe9 FarbelO 
Farbeiil Farbeil2 Farbe13 Farbei4 
Farbe15 

Natürlich dürfen Sie auch einige der 
Register frei lassen. Um beispielsweise 
nur fünf Farben (0 bis 4) zu definieren, 
tippen Sie: 

A>PALETTE 01023 
Unter Basic ginge das mit: 
10 INK 0,0 

20 INK 1,1 

30 INK 2,0 

40 INK 3,2 

50 INK 4,3 

Die Farbnummern entsprechen nicht 
denen des Basic-Interpreters, sondern 
sind sehr trickreich codiert. Alle Werte 
dürfen im Bereich zwischen O und 63 
liegen. Größere Werte als 27 werden 
logisch verknüpft, bis ein passender 
Wert herauskommt. 

Die Zahlen von O bis 63 lassen sich in 
sechs Bit darstellen. Je zwei Bit der 
Zahl geben die Intensität einer der drei 
Grundfarben Rot, Grün und Blau an. Bit 
OÖ und 1 spezifizieren die Intensität des 
Blau-Anteils, Bit 2 und 3 des roten und 
Bit 4 und 5 des grünen Anteils. 

Mit zwei Bit lassen sich 2°, also vier 
verschiedene Intensitäten darstellen. In 
allen Kombinationen ergibt das mehr 
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Farben, als der Video-Chip wiederge- 
ben kann. Deshalb werden die Intensi- 


täten intern auf drei verschiedene 
Werte beschränkt. 
- Intensität OO bin (O dez) entspricht 

Intensität O. 

- Intensität 01 bin (1 dez) entspricht 

Intensität 1. 

- Intensität 10 bin (2 dez) entspricht 

Intensität 1. 

- Intensität 11 bin (3 dez) entspricht 

Intensität 2. 

Somit ist es ohne Bedeutung, ob Sie 
als Intensität O1 oder 10 bin angeben. 

Die Farbwerte für PALETTE.COM im 
Vergleich mit den Werten für den Basic- 
Befehl INK finden Sie in Bild 1. 

Durch den Aufruf von SET24X80. 
COM kann man zwischen 24 und 25 
Bildschirmzeilen hin- und herschalten. 
Das ist deshalb notwendig, weil der 
Schneider-Computer mit 25 Zeilen pro 
Bildschirmseite, einige CP/M-Program- 
me aber nur mit einer 24zeiligen Dar- 
stellung korrekt arbeiten. 

A>SET24X80 ON 
A>SET24X80 OFF 

Denn bei einigen Versionen des 
Schneider CPC 6128 läuft dieses Pro- 
gramm nicht perfekt. Also kann leider 
nicht jeder Schneider-Fan CP/M auf 24 
Zeilen verteilt bestaunen. 


Tastatur mit Komfort 





SETKEYS.COM definiert die Tastatur 
um. Die Routine entspricht damit den 
Basic-Befehlen KEY und KEY DEF. Auf 
der Systemdiskette 1 befinden sich 
zwei bereits für bestimmte Zwecke vor- 
bereitete Dateien - nämlich KEYS.CCP 
und KEYS.WP. Die erste Datei paßt die 
Sondertasten des Computers zur 
Arbeit im CCP (Console Command Pro- 
cessor) an. Die KEYS.WP-Datei eignet 
sich zur Benutzung von Textverarbei- 
tungs-Programmen. »WP« steht dabei 
für »Word-Processore: 

A>SETKEYS KEYS.CCP 
A>SETKEYS KEYS.WP 

Auf der dritten Seite der Systemdis- 
ketten stoßen Sie noch auf KEYS.DRL, 
eine spezielle Tastaturbelegung für Dr 
Logo. 

A>SETKEYS KEYS.DRL 
A>1L0G03 

Um eine solche Datei selbst zusam- 
menzubauen, benötigen Sie einen Text- 
editor, beispielsweise Wordstar im N- 
Modus (»Non-Document« - Bearbeiten 
einer Programmdatei) oder auch »PIP 
KEYS.DAT=CON:«. PIP erfordert am 
Zeilenende allerdings ein RETURN und 
CTRL-J, am Ende der Datei dann CTRL- 
Z. Tippfehler dürfen Sie sich dabei nicht 
erlauben. Ansonsten eignet sich jeder 
Editor, der reine ASCII-Files erzeugt. 


10 OPENOUT "KEYS.DAT” 
20 PRINT #9 


90 CLOSEOUT 

In der neuen Datei definiert jede Zeile 
eine Taste um. Dazu brauchen Sie den 
Code der Taste. Das ist der gleiche, der 
auch für den Befehl KEY DEF benutzt 
wird. Dieser ist im Handbuch - aber 
auch auf der Oberseite der eingebau- 
ten Diskettenstation des CPC 6128 - 
abgedruckt. Um beispielsweise ein Zei- 
chen auf die Z-Taste zu legen, müssen 
Sie den Code 71 angeben. Die nächste 
Eingabe bezieht sich auf die Tastatur- 
ebene, die umdefiniert werden soll. »N« 
steht dabei für »Normalk, »S« für 
»SHIFT« und »C« für die CTRL-Ebene. 

Die deutsche DIN-Tastatur hat gegen- 
über der amerikanischen Norm »Z« und 
»Y« vertauscht. Wollen wir nun das »Y« 
auf die Normalebene der Z-Taste legen, 
so müssen wir eingeben: 
7ıN 20 

Um alle drei Ebenen der Z- und der Y- 
Taste zu vertauschen (was der deut- 
schen Norm entspricht), schreiben wir 
folgende Befehle in die Datei: 

a Mn 
128%” 
Ze 
43 N "z” 
43,8 "7 
430.72” 

Control-Codes, deren ASCIl-Wert 
zwischen O und 31 liegt, lassen sich 
also durch einen vorhergehenden Pfeil 
nach oben eingeben. Die Beschrei- 
bung der Control-Funktionen finden Sie 
in dem Artikel »CP/M mit Nachbrenner« 
in diesem Heft. 

Soll auf alle drei Tastenebenen der- 
selbe Code gelegt werden, können Sie 
sich etwas Arbeit sparen: 

TEN SE 

Die Z-Taste ist jetzt in allen drei Ebe- 
nen mit dem Leerzeichen belegt. Statt 
des gewünschten Zeichens selbst darf 
auch der entsprechende ASCIl-Wert 
eingesetzt werden. Dieser wird mit »” '« 
eingeleitet und mit »'« abgeschlossen. 

Die Tabelle 
TLN * tı2ıı" 

718.7 189** 

7160: r251* 

43 N "122! 

435 "991" 

430 "ı26'* 

vertauscht auch die Z- mit der \Y-Taste. 

Hexadezimalen Zahlen stellt man ein 

Doppelkreuz voran. 
TLN "ıgmgır 
71.5.7: 591" 
71C "1419!" 
43N Tı7'" 
B3S "it 

a3 0C "rerat* 





Wahlweise wird auch das kaufmänni- 
sche Und-Zeichen als Kennung für 
hexadezimale Werte akzeptiert. 
7ıNn "ıg7g9'" 

715 "ıgsgı® 
71:0. "ragt" 
43 N "tIR7aı" 
435 "Tips" 
43:5 FAR“ 

Sogar die Namen der Steuercodes 
wie beispielsweise »CR«, »FF« und 
»ESC« sind erlaubt. Sie müssen nur 
dem ASCIl-Standard entsprechen. 

47 5 "FF!" 
47 GC.” IESCı" 

Eine vollständige Tabelle der ver- 
schiedenen Darstellungen für die Steu- 
ercodes im Bereich zwischen O und 31 
finden Sie im Bild 2. 

Bei der hier besprochenen Routine 
dürfen am Ende jeder Zeile Kommen- 
tare eingefügt werden. 

71 N ”'#79'” verwende y statt z 

Auch die Belegung der Funktions- 
tasten geschieht mit Hilfe von 
SETKEYS.COM. Die Befehlszeilen 
dafür leitet ein »E« (für »Expansion 
String«) ein. Es folgt der Erweiterungs- 
code und dann der Funktionsstring. Um 
beispielsweise die Taste FO mit DIR zu 
belegen, schreibt man 
E 128 "DIR’M” 

Die Angabe »"M« sorgt dafür, daß ein 
Carriage-Return mit in den String auf- 
genommen wird, so daß sich nach Betä- 
tigen der Funktionstaste FO die 
RETURN-Taste erübrigt. 

Die Nummer des Erweiterungscodes 
darf wieder in hexadezimaler Schreib- 
weise eingefügt werden - auch hier mit 
dem kaufmännischen Und-Symbol »&« 
oder dem Nummernzeichen »#«: 

E &80 ”"DIR”M” 
E #81 "AMSDOS”M” 


 Druckersteuerung 
mit Leichtigkeit 


Eine ähnliche Datei wie SETKEYS. 
COM verwendet auch SETLST.COM. 
Dieses CP/M-Programm versorgt den 
Drucker (»List Device«) mit Steuer- 
codes. Wollen Sie zum Beispiel den 
NLQ401 von Schneider oder den bau- 
gleichen Drucker M-1009 von Brother 
auf Briefqualität (Near Letter Quality) 
umschalten, geben Sie unter Basic 
PRINT #8,CHR$(27) ;CHR$(73); 
CHR$(3) 
ein. Unter CP/M Plus brauchen Sie 
dazu eine Datei mit folgendem Ausse- 
hen: 

"ıESC! 
e nz 
21803" 

Wenn Sie diese Datei mit dem Namen 

»NLQ« speichern, dann können Sie 

















unter CP/M auf die NLO-Briefqualität mit 
»SETLST NLQ« umschalten. Aber auch 
der umgekehrte Weg ist möglich. Die 
Datei NLOOFF schaltet wieder auf die 
normale Matrixdrucker-Schrift um. 
"IESC! 

I 

"A 

Da die verschiedenen Darstellungs- 
arten mit denen von SETKEYS.COM 
identisch sind, zeigt Bild 2 auch die 
erlaubten Druckercodes. 

Wer Besitzer einer seriellen Schnitt- 
stelle ist, kann diese unter CP/M Plus 
mit SETSIO.COM ansteuern. Das von 
Schneider angebotene Interface arbei- 
tet allerdings nicht mit SETSIO zusam- 
men. Sie müssen auf die RS232-Erwei- 
terung von Amstrad zurückgreifen. 
Deshalb nämlich, da Schneider seine 
Eigenentwicklung zu einem möglichst 
günstigen Preis unter die Leute bringen 
wollte. So baute man in das Interface 
einen Z80-STI-Chip (»Serial Timer and 
Interface«) ein, anstelle der ICs 
Z80-SIO (»Serial Input/Output«) und 
Intel-8255. Das ist zwar billiger, aber 
die Kompatibilität fehlt. 

Der einfache SETSIO-Befehl testet, 
ob überhaupt eine serielle Schnittstelle 
angeschlossen ist: 

A>SETSIO 
SIO not found 

Diverse Parameter stellen die Schnitt- 
stelle ein. So legt RX die Übertragungs- 
geschwindigkeit in Baud für den Emp- 
fang (TX für das Senden) fest. »BITS n« 





Bild 1. Reiche Auswahl - 
alle Farben von PALETTE.COM 











bestimmt die Zahl der Datenbit und 
»STOP n« die der Stopbit. 

Um beispielsweise die Geschwindig- 
keit beim Empfang auf 4800 Baud fest- 
zulegen, geben Sie 
A>SETSIO RX 4800 
ein. Soll die Geschwindigkeit für Sen- 
den und Empfangen den gleichen Wert 
aufweisen, so bewirkt das 
A>SETSIO RX 9600, TX 9600 
Einfacher wird es mit 
A>SETSIO 9600 

Mehrere Parameter dürfen gleichzei- 
tig angegeben werden, müssen aber 
durch Kommas getrennt sein. 
A>SETSIO RX 19200, STOP 2, 

BITS 6 


Hexadezimal (1) 








Die komplette Liste aller Anweisun- 
gen finden Sie in Bild 3. 

Damit haben wir Ihnen alle Pro- 
gramme vorgestellt, die es nur bei 
Schneider-Computern unter CP/M Plus 
gibt und die gleichzeitig unmittelbar mit 
dem Betriebssystem zusammenhän- 
gen. Nicht direkt zu CP/M Plus gehört 
der Logo-Interpreter, der auf der dritten 
Seite der Systemdisketten in den 
Dateien LOGO3.COM und LOGO3.SUB 
enthalten ist. Eine Einführung in Logo 
finden Sie im 2. Schneider-Sonderheft 
(Sonderheft 1/86 von Happy-Computer). 


(Martin Kotulla/hg) 
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Bild 2. Die Steuercodes für SETKEYS.COM und SETLSTCOM 











Bild 3. Freie Auswahl - die Optionen von SETSIO.COM 
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Eines der wichtigsten System- 
Programme unter CPIM ist 
PIPCOM. Es überträgt Daten und 
Dateien zwischen allen Periphe- 
riegeräten, die das Betriebssy- 
stem ansprechen kann. 


IPCOM ist die Abkürzung für 
»Peripheral Interchange Pro- 
gram« - auf Deutsch »Pro- 
gramm zum Austausch von Daten zwi- 
schen Peripheriegerätene. Um das 
Betriebssystem zu verstehen, muß man 
zwei Gruppen von Peripheriegeräten 
unterscheiden, die unter CP/M grund- 
sätzlich verschieden behandelt wer- 
den. Zu der einen Gruppe zählen 
Disketten- und Festplattendateien - in 
der anderen sind die zeichenorientier- 
ten Geräte wie der Bildschirm, die 
Tastatur und der Drucker zu Hause. 

PIPCOM erlaubt das Kopieren von 
Diskettendateien mit folgendem Befehl: 
A>PIP KOPIE.DAT=ORIGINAL.DAT 

Allgemeiner läßt sich die Anweisung 
mit 
A>PIP d:ziel.typ=d:quelle.typ 
ausdrücken. Soll die Zieldatei densel- 
ben Namen tragen wie die Quelldatei, 
so erspart man sich etwas Arbeit, indem 
man den Zielnamen wegläßt und nur die 
Laufwerksbezeichnung angibt. 

A>PIP d:=ä:quelle.typ 
Ein Beispiel: 
A>PIP B:=A:DATEI 

Stimmt die Laufwerksbezeichnung in 
einem Dateinamen mit der im CP/M- 
Prompt überein - steht die Datei also 
auf der Diskette in dem gerade aktiven 
Laufwerk -, kann sie wegfallen. 
A>PIP B:=DATEI 

Gegenüber PIPCOM unter CP/M 2.2 
dürfen Sie bei CP/M 3.0 die Reihen- 
folge - ähnlich wie bei RENAME - ver- 
drehen. Völlig gleichwertig mit dem 
gezeigten Aufruf von PIPCOM steht 
A>PIP B:DATEI=A: 

In den meisten Fällen wird PIPCOM 
beim Kopieren einer Datei von einer 
Diskette auf eine andere benötigt. Dafür 
braucht man aber zwei Diskettenlauf- 
werke, wenn man sich nicht die Fähig- 
keit des CPC 6128 zunutze macht, das 
zweite Laufwerk zu simulieren. 

PIPCOM kann auch mehrere Dateien 
auf einmal kopieren. Dies geschieht 
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‚durch Angabe mehrdeutiger Dateina- 


men. Um etwa den gesamten Disketten- 
inhalt von Laufwerk A auf die Diskette in 
Laufwerk B zu übertragen, benutzen Sie 
A>PIP B:=A:#*,* 

Will man ausschließlich COM-Files 
kopieren, deren erster Buchstabe ein 
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PIP.COM kopiert alles 


»A« ist, empfiehlt sich unter PIP folgen- 
der Aufruf: 
A>PIP B:=A:A*.COM 

Mit den Wildcards »* « und »?« sind die 
verschiedensten Anweisungen mög- 
lich. 

Oft möchte man bestimmte Pro- 
gramme in einen anderen Benutzerbe- 
reich kopieren. Dazu müssen Sie bei 
der Zieldatei den gewünschten Benut- 
zerbereich zusammen mit einem »G« in 
eckigen Klammern hinter dem Namen 
angeben. 

A>PIP BENUTZ5[G5]=BENUTZER.O 

Lassen Sie die G-Öption (»Go to user 
area«) weg, kopiert PIPCOM immer nur 
Dateien im aktuellen Benutzerbereich. 

Die G-Option kann aber auch bei der 
Quelldatei hinzugefügt werden. Dort 
bestimmt sie, aus welchem Benutzer- 
bereich sie geholt werden soll (»Get 
from Usere). Eine Datei »BENUTZER.9« 
aus dem Bereich 9 kann so beispiels- 
weise nach O (den aktiven User-Be- 
reich) als »BENUTZER.O« übertragen 
werden: 

A>PIP BENUTZER.O=BENUTZER.10[G9] 

Aber auch zwischen verschiedenen 
Benutzerbereichen läßt sich kopieren. 
Dabei ist nur bei beiden Dateinamen die 
betreffende G-Option ([Gn]) angege- 
ben. 

A>PIP PROG5[G5]=PROG12[G12] 

Während »G« bei der Zieldatei die ein- 
zige erlaubte Option ist, gibt es für die 
Quelldateien eine Reihe zusätzlicher 
Anweisungen, die noch zur Sprache 
kommen. 

Mehrere Dateien vermag PIPCOM zu 
einer einzigen zusammenzufassen. 


Befehle en masse 


Dazu listet man die einzelnen Namen 
der Quelldateien durch Kommas 
getrennt auf. Haben Sie zum Beispiel 
ein Buch geschrieben, das aus den Arti- 
keln 1 bis 5 besteht, können Sie diese 
in der Datei »BUCH« vereinigen. 
A>PIP BUCH=TEXT1,TEXT2,TEXT3, 
TEXT4,TEXT5 

Soweit der Übertrag zwischen den 
diskettenorientierten Geräten. 

Die zeichenorientierten Geräte hei- 
Ben unter CP/M 2.2 »CON:«, »LST:«, 
»RDR:« und »PUN:«. »CON:« und »LST:« 
stehen auch unter CP/M Plus weiterhin 
zur Verfügung. »CON:« (für »Console«) 
bezeichnet sowohl den Bildschirm als 
auch die Tastatur. Die Unterscheidung 
trifft das Betriebssystem dadurch, daß 










Zeichen von der Tastatur nur gelesen 
und auf den Bildschirm nur geschrie- 
ben werden können. 

Wollen Sie beispielsweise eine Datei 
von der Diskette lesen und auf dem 
Bildschirm auflisten (entsprechend 
dem TYPE-Befehl), gilt »CON:« als Ziel- 
gerät und wird somit als Bildschirm 
identifiziert. 

PIP CON:=KEYS.CCP 

In einem anderen Artikel dieser Aus- 
gabe (»Spezialitäten«) sollten Sie 
PIPCOM als »Mini-Editor«e benutzen. 
Dort stand »CON:« auf der rechten Seite 
des Gleichheitszeichens und bezeich- 
nete damit die Tastatur: 

PIFP DATEI=CON: 

Es werden so lange Zeichen von der 
Tastatur entgegengenommen und in die 
Datei »DATEI« geschrieben, bis Sie mit 
CTRL-Z unterbrechen. Um in eine neue 
Zeile zu gelangen, drücken Sie RETURN 
und CTRL-J. 

Weniger kompliziert verläuft die 
Zuordnung von »LST:« zum Drucker. 
Denn ein Drucker kann immer nur ein 
Zielgerät sein. Die Ausgabe einer Datei 
auf dem Drucker erfolgt normalerweise 
mit CTAL-P und TYPE. Doch PIPCOM 
übernimmt auch dies. 

PIP LST:=DATEI 

Eine sehr einfache »Schreibma- 
schine« erhält man durch Zuordnung 
der Tastaturabfrage zur Druckeraus- 
gabe: 

PIP LST:=CON: 

Wie auf einer »echten« mechani- 
schen Schreibmaschine ist aber die 
Korrektur des geschriebenes Textes 
unmöglich. | 

Auch die Bildschirmausgabe der 
Texteingabe ist erlaubt, doch wohl 
kaum sinnvoll. 

PIP CON:=CON: 

Das linke »CON:« steht für den Bild- 
schirm, das rechte für die Tastatur. 

Unter CP/M 2.2 gibt es zwei zusätzli- 
che Datengeräte, die ebenso über 
PIPCOM angesprochen werden kön- ° 
nen. Sie stammen sozusagen aus der 
Computer-»Steinzeit«. »RDR:« bezeich- 
net den Lochstreifenleser (»Reader«) 
und »PUN« den dazugehörigen Stanzer 
(»Punchere). Unter CP/M Plus entfallen 
diese Abkürzungen. Da die Routinen 
fast ausschließlich zur Steuerung 
serieller Schnittstellen benutzt werden, 
ging man von den speziellen Namen 
weg und wählte die allgemeingültige 
Bezeichnung »AUX:« für »Auxiliary 
Device« (auf Deutsch »Hilfseingang« 
beziehungsweise »Hilfsausgange). 
Ähnlich wie bei »CON:« wird die Unter- 
scheidung zwischen der Ein- und Aus- 











gabe getroffen. Beim Schneider sind 
die AUX:-Geräte bisher nicht belegt - 
also noch frei für eigene Programme. 

Neben diesen Geräten, die in der 
CP/M-Terminologie »logische Geräte« 
heißen, können noch einige spezielle 
Geräte nur von PIPCOM angesprochen 
werden. 

So darf anstelle von »LST:« auch 
»PRN:« stehen. Die beiden Bezeich- 
nungen gleichen sich darin, daß sie 
die Druckerausgabe steuern. »PRN:« 
numeriert aber automatisch die Zeilen, 
setzt Haltepunkte für den Tabulator in 
jeder achten Spalte und erzeugt alle 60 
Zeilen einen Seitenvorschub (Form- 
Feed). 


| kommando-Modus 


Speziell für Lochstreifenleser ge- 
dacht ist »NUL:«. 40 vorangehende 
hexadezimale Nullen werden von 
PIPCOM überlesen. 

Eine weitere Eingabeeinheit heißt 
»EOF:«. Sie entspricht »AUX:«, sendet 
aber als Textende-Markierung den 
ASCII-Code 26 (CTRL-Z). 

Bleiben noch zwei Geräte übrig. Von 
diesen läßt Digital Research in der 
CP/M-Plus-Dokumentation absolut 
nichts verlauten. Es handelt sich um die 
benutzerdefinierbaren Einheiten »INP:« 
und »OUT:«. Sie sind aber auch nicht zur 
Änderung durch den Anwender vorge- 
sehen - höchstens durch versierte Pro- 
grammierer. Denn dazu muß PIPCOM 
gepatcht werden. Damit läßt sich bei- 
spielsweise eine RAM-Disk in das 
CP/M-Betriebssystem integrieren. 

Das etwas seltsame Wort »Mehr- 
fachkommando-Modus« stammt aus 
der Original-Dokumentation von Digital 
Research und ist ein typisches Beispiel 
für eine manchmal etwas holprige Über- 
setzung. Im englischen Originaltext lau- 
tet der Ausdruck »Multiple Command 
Mode«. Er besagt ganz einfach, daß Sie 


| Herrn 
| Arnold Schneider 
| Triumphstraße 464 


| 6128 Amstradam 
| Sehr geehrter Herr Schneider, 


| Textverarbeitungsprogramnms. 
| viel Spaß damit. 


| Mit freundlichen Grüßen 
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ı anbei erhalten Sie die neueste Version unseres 
Wir wünschen Ihnen 


PIPCOM nicht jedesmal neu laden müs- 
sen, wenn Sie eine ganze Reihe von 
Dateien zu kopieren haben. Völlig über- 
flüssig (und vor allem langwierig) ist bei- 
spielsweise die Befehlsfolge: 

A>PIP CON:=FILE 

A>PIP LST:=DATEI 

A>PIP DATEI=B: FILE 

A>PIP LST:=CON: 

Der Computer muß hierbei den Pro- 
grammcode von PIPCOM insgesamt 
viermal in den Speicher laden. Dabei 
erübrigt sich dies völlig, denn PIP befin- 
det sich nach jedem Aufruf weiterhin im 
RAM. 

Bedeutend einfacher macht es der 
»Multiple Command Mode«. Er wird auf- 
gerufen, indem Sie PIP ohne einen ein- 
zigen Parameter eingeben. Sobald PIP 
geladen ist, erscheint die Bereit- 
schaftsmeldung, und Sie können die 
Befehle eingeben. Das Nachladen von 
PIPCOM entfällt. Abgebrochen wird 
PIP mit CTRL-C oder durch Drücken der 
RETURN-Taste. 

A>PIP 

CP/M 3 PIP VERSION 3.0 
*CON:=FILE 

*LST:=DATEI 

*DATEI=B: FILE 
*LST:=CON: 

*C 

Wie Sie sicher wissen, arbeiten die 
Programme unter CP/M 3.0 oft mit ver- 
schiedensten Optionen. Denken Sie 
zum Beispiel an DIRCOM. Auch 
PIPCOM kennt eine Reihe von einbuch- 
stabigen Befehlen, die das Übertragen 
der Dateien beeinflussen. Manche 
Optionen von PIP unter CP/M 2.2 ent- 
fielen. Sie kommen auch in der Doku- 
mentation von Digital Research nicht 
mehr zur Sprache. 

Weiterhin vorhanden sind [Dn] 
(löscht alle Zeichen ab der Spalte n), [E] 
(Echo aller übertragenen Texte auf der 
Konsole) und [F], das die Ausgabe von 
Form-Feed unterdrückt. Ebenso wird 
[H] (Überprüfung von Intel-Hex-Dateien 
auf korrekten Aufbau) und [I] (alle 
:00-Datensätze in _|Intel-Hex-Files 





Sehr geehrter Herr Schneider, 


anbei erhalten Sie die neueste Version unseres 
Textverarbeitungsprogramms. 
viel 5pal damit. 


»Sehr« 





Mit freundlichen 


Bild 2. Die Ausgabe der Datei ARNOLD.TXT nach dem Wort | 


Bild 1. Die Datei »ARNOLD.TXT« 







































unterdrückt) unterstützt. [L]wandeltde 
Großbuchstaben einer Datei in keine 
um. [U] macht das Gegenteil. Mit [N] 
schreibt PIPCOM vor jede Zeile eine 
Zeilennummer. Eine Abwandlungdavon 
ist der [N2]-Befehl, der vor de Zelen- 
nummer führende Nullen setzt. 

Sollen Objektcode-Dateien von 
Maschinenprogrammen mit PIPCOM 
verkettet werden, darf der Computer 
das Dateiende nicht mit Hilfe von CTRL- 
Z abfragen. Denn dieses Zeichen 
kommt in ganz normalen Maschinen- 
code-Programmen vor - LD A,(DE) im 
Z80-Code beziehungsweise LDAX D 
als 8080-Mnemonic. Damit die Ver- 
knüpfung dennoch klappt, muß der 
Befehl [O] (»Object file transfer for 
machine code«) hinzugefügt werden. 

Die Page-Option [Pn] führt alle n Zei- 
len einen Seitenvorschub aus. [Tn] 
weist den Computer an, alle Tabulator- 
Zeichen (CTRL-I) durch die entspre- 
chende Anzahl von Leerzeichen zu 
ersetzen. [R] erlaubt es, SYS-Dateien 
zu lesen. | 

Um nur bestimmte Teile einer Datei zu 
extrahieren, finden [Q] und [S] Verwen- 
dung. »Q« steht für »Quit copying after 
string found« und »S« für »Start copying 
from string«. Stellen Sie sich vor, in der 
Datei ARNOLDTXT stünde der Text von 
Bild 1. 





Textkomfort durch 
viele Befehle 


Wollen Sie die Adresse von Arnold 
Schneider in eine Kundendatei einer 
Firma aufnehmen, können Sie diese mit 
PIPCOM aus ARNOLDTXT »heraus- 
schneiden«. 

CP/M wandelt Texte in der Komman- 
dozeile grundsätzlich in Großbuchsta- 
ben um. Als letztes zu übernehmendes 
Wort suchen wir aber nicht »AMSTRA- 
DAM«, sondern »Amstradam«. Deshalb 
greifen wir auf einen kleinen Trick 
zurück und verwenden den Direkt- 







Wir wünschen Ihnen 










Grüßen 
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eingabe-Modus, der Klein- und Groß 
buchstaben akzeptiert. 
A>PIP 
*CON:=ARNOLD.TXT[QAmstradam” 2] 
Herrn 
Arnold Schneider 
Triumphstraße 464 


6128 Amstradam 
*”Cc 


Der String muß also mit CTRL-Z abge- 
schlossen werden. Das giltauch bei ISk 
Dieses kopiert den Text beginnend rn 
der Stelle, an der der String gefunde 
wird. Um beispielsweise allein den 
Brief, diesmal ohne Adresse, zu zeigen, 
kann man nach dem Wörtchen »Sehr« 
suchen. 

A>PIP 
*CON:=ARNOLD. TXT[SSehr | 2] 

Die Ausgabe finden Sie in Bild 2. PIP 
verlassen wir mit CTRL-C. 

Durch eine Kombination der S- und 
der Q-Option können dann aus einer 
Datei einzelne Datensätze herausgezo- 
gen werden. h 

[V] (Verify) gestattet die Überprüfung 
von Daten nach dem Übertrag. Dies ist 
aber nur möglich, wenn das Ziel eine 
Diskettendatei ist. 

[W] Überschreibt schreibgeschützte 
Dateien (R/O-Files) ohne Anfrage an 
den Benutzer und [Z] setzt das siebte 
Bit aller Zeichen auf Null. Diese Option 
wird vor allem für Wordstar-Dateien 
benutzt, bei denen das höchstwertige 
Bit eines Zeichens als Kennung für das 
Ende eines Wortes steht. 


Kombinations- 
möglichkeiten 


Selbstverständlich lassen sich die 
Optionen - soweit sinnvoll - miteinan- 
der kombinieren. Um beispielsweise in 
einer Wordstar-Datei das siebte Bit zu 
löschen, alle Kleinbuchstaben in große 
zu wandeln und die Aufzeichnung zu 
überprüfen, muß man 
A>PIP DATEI=WSTAR.DAT[ZUV] 
eingeben. | 
Neu unter CP/M-3.0 ist [C] - die 
Confirm-Option - die bei jedem Datei- 
namen, der auf die Eingabe paßt, erst 
einmal eine Sicherheitsfrage an den 
Benutzer richtet, ob die Datei über- 
haupt kopiert werden soll. Ebenso gibt 
es jetzt das Archiv-Attribut [A], das es. 
erlaubt, nur diejenigen Dateien zu 
kopieren, die seit dem letzten Backup 
verändert wurden - das Festplatten- 
Backup läßt grüßen. Es funktioniert 
aber nur, wenn das Archiv-Bit im Datei- 
namen von SET.COM (siehe »STAl« 
ade!« in diesem Heft) beeinflußt wurde. 


. Was PIP alles kann, zeigt Bild 3. 


(Martin Kotulla/hg) 
















elcher CP/M-Freak kennt 
es nicht - STAT.COM, ein 
Universalprogramm für fast 


jeden Zweck. Nun ging es den Wegaaller 
überholten Software und wurde ausran- 
giert. Es hätte aber auch einige Schwie- 
rigkeiten gehabt, mit den neuen Routi- 
nen von CP/M Plus zurechtzukommen. 
Bevor Sie jetzt dem Programm nach- 
trauern: Die Nachfolgeprogramme 
DEVICE.COM, SET. COM und SHOW. 
- COM sind erheblich leistungsfähiger 
- geworden und ersetzen STAT.COM 
angemessen. 

Beginnen wir mit SET.COM. Es be- 
sitzt eine Reihe von Befehlen, die ein- 
zelne Dateien oder ganze Disketten mit 
Attributen versehen. Es können Paß- 
wörter vereinbart und Disketten 
© benannt werden. So legt »SET d'file- 
name.typ [Attributslistele eines oder 
mehrere der folgenden Attribute für 
eine Einzeldatei oder eine Dateigruppe 
fest. 

- SET DATEI [SYS] versieht das Feld 
»DATEI« mit dem SYS-Attribut. Solche 
Felder werden nicht mehr mit DIR, son- 
dern nur mit DIRSYS gelistet. Ist eine 
SYS-Datei im Userbereich O gespei- 
chert, kann sie von allen anderen 
Benutzerbereichen direkt aufgerufen 
werden: 

A>SET PIP.COM [SYS] 
A:PIP.COM set to system (SYS), 
Read Write (RW) 

A>USER 9 

SA>PIP 

CP/M 3 PIP VERSION 3.0 

E 


- Im Gegenzug schaltet SET DATEI 
[DIR] das SYS-Kennzeichen ab. Die 
Datei erscheint wieder im Directory, ist 
aber auch nicht mehr von fremden 
Userbereichen aufzurufen. 

- SET DATEI [RO] versieht die ange- 
gebene Datei mit einem Schreibschutz. 
Die Datei ändert sich zu »Read-Only« 
und kann nur noch gelesen werden. 
A>SET PIP [RO] 

A:PIP.COM set to system (SYS), 
Read Only (RO) 

- SET DATEI [RW] macht die letzte 
Anweisung wieder rückgängig. Um bei- 
spielsweise bei PIPCOM beide Attri- 
bute (RO und SYS) abzuschalten, müs- 
sen die beiden Bezeichnungen kombi- 
niert werden. 

A>SET PIP.COM [RW,DIR] 


_A>SET [NAME=CPM3SYS.DSK] 


Label for drive A: 


Passwds Stamp 
Regd 


Directory 
Label 


(ME ver Hmm HMM COMME FEN: HABE EN HAAS HE: SHE DEE: Ham: SEE. GE En GE SEE GE EB: —— un zu u GE — 


off 
Bild 1. Taufen Sie Ihre Diskette 


A:CPM3SYS .DSK off 


LOMNPUTERE 
ee ae Fa, = EL. 


Stamp 
Create Access 








beliebte 
gramm STAT.COM von CPIM 2.2 
gehört nicht zum Lieferpaket 
CPIM Plus. Es wurde durch die 


Das Allzweck-Pro- 


erheblich leistungsfähigeren 
Programme DEVICE.COM, SET. 
COM und SHOW.COM ersetzt. 


A:PIP.COM set to directory (DIR), 
Read Write (RW) 

- Die Archiv-Option von PIPCOM ist 
auch über SET zu steuern. Dateien mit 
dem Merkmal [ARCHIVE=ÖFF] ko- 
piert PIPCOM bei der A-Option, die mit 
[ARCHIVE=ON] nicht. PIP setzt nach 
einem erfolgreichen Kopiervorgang 
das Archiv-Bit auf ARCHIVE=ON. 

- Es gibt vier benutzerdefinierbare 
Dateiattribute. Sie tragen die Namen F1, 
F2, F3 und F4. Der Benutzer kann sie 
nach eigenem Gutdünken verwenden. 
Sinnvoll ist das aber nur, wenn ein Pro- 
gramm speziell für CP/M 3.0 geschrie- 
ben ist und darauf zurückgreift. Die 
Attribute werden gesetzt mit [Ffn=ON] 
und gelöscht mit [Ffn=OFF]. 

A>SET PIP.COM [Fi1=OFF,F2=0N, 
F3=0OFF,F4=0N] 

A:PIP.COM set to directory (DIR), 
Read Write (RW) 24 

Sie erkennen an der Zahl »24«, daß 
das F2- und das F4-Attribut angeschal- 
tet sind, F1 und F3 hingegen nicht. 

Auch Laufwerksattribute dürfen ver- 
einbart werden. So lassen sich Disket- 
tenlaufwerke mit [RO] auf »Read-Only« 
setzen. Damit sind alle schreibenden 
Diskettenzugriffe zum Scheitern verur- 
teilt. Abgeschaltet wird der Schutz mit 
[RW]. Er ist übrigens stets bis zum 
nächsten Warmstart, zum Beispiel mit 
CTRL-C, wirksam. 

A>SET [RO] 


Stamp 
Update 


Directory 


off 





A:CPM3SYS .DSK 
Bild 2. Programmschutz gewünscht? 


Drive A: set to Read Only (RO) 
A>SET B: [RW] 
Drive B: set to Read Write (RW) 

Eine weitere Routine von SET.COM 
ist relativ unbekannt. SET erlaubt es, 
der Diskette einen Namen (ein »Label«) 
zuzuordnen (siehe Bild 1). 

Mit SHOW [LABEL] kann der Name 
später wieder abgefragt werden. 

Falls Sie besonders wertvolle und 
schutzwürdige Informationen besitzen, 
etwa die Liste aller Ihrer Freundinnen, 
können Sie ein Paßwort vereinbaren, 
das wahlweise für einzelne Dateien 
oder die ganze Diskette gilt. Zuerst der 
Schutz der kompletten Diskette. Mit 
A>SET [PASSWORD=SECRET] 
teilen Sie dem SET.COM-Programm 
mit, daß es auf der Diskette einen Ver- 
merk mit diesem Paßwort anbringen 
soll. Versucht ein anderer Benutzer, 
Attribute der Diskette mit SET.COM zu 
verändern, ist er gezwungen, das Paß- 
wort einzugeben. Beispielsweise ist 
das Umbenennen der Diskette ohne 
Paßwort unmöglich, wie folgender Dia- 
log mit dem Computer beweist: 
A>SET [PASSWORD=SECRET] 

Password = SECRET 

A>SET [NAME=NEUER NAME.DSK] 
Directory Label 

Password? DONTKNOW 

ERROR: Wrong Password 


A> 
Die Eingabe des Paßworts bei der 
Sicherheitsabfrage geschieht im 


»Blindfluge. Sie sehen also nicht, was 
Sie eingeben. So kann Ihnen weder 
jemand über die Schultern schauen, 
noch mit dem Protokoll (mit Hilfe von 
CTRL-P) etwas anfangen. 

Ist eine Datei auch vor dem Laden 
geschützt, hängt man das Paßwort an 
den Dateinamen - durch einen Strich- 
punkt von diesem getrennt. 
A>PIP;SECRET 

Das Geheimwort kann man natürlich 
auch wieder aufheben. Dazu geben Sie 
nach »PASSWORD=« einfach RETURN 
oder ENTER ein. Der Computer fragt 
dann das Paßwort ab. Isteskorrekt, wird 
der Schutz aufgehoben. 

A>SET [PASSWORD= 
Directory Label 
Password? SECRET 

Auch einzelne Dateien lassen sich 
schützen, und zwar wahlweise vor dem 
Lesen, Schreiben oder Löschen. Bevor 


_ A>SET [PROTECT=ON] 


Label for drive A: 


Passwds Stamp Stamp Stamp 
Create Access Update 
































Sie das angehen, müssen Sie zuerst 
dem Betriebssystem mitteilen, daß ein 
Programmschutz gewünscht ist. Diese 
Information übernimmt [PROTECT= 
ON] (Bild 2). 

Sie sehen die Veränderung in der 


Spalte »Passwords required«. Dort 
steht jetzt »on«. 
[PROTECT=OFF] schaltet diese 


Schutzvorbereitung wieder ab. War 
bereits vorher ein Schutzwort für die 
gesamte Diskette vereinbart, so muß 
dieses bei beiden PROTECT-Anweisun- 
gen dem System mitgeteilt werden. Der 
Computer fragt gegebenenfalls da- 
nach. 

»PROTECT=ON« aktiviert den 
Schutz für alle Dateien. Dazu geben Sie 
den (ein- oder mehrdeutigen) Dateina- 
men und das Paßwort ein (Bild 3). 





A>>SET *.COM [PASSWORD=COM] 





Password: ........ 
A:PIP.COM Not erased, 
Password Error 
A> 

Wie fragwürdig diese ganze »Schüt- 
zerei« jedoch ist, werden Sie bemer- 
ken, wenn Sie Basic aufrufen, um von 
dort aus mit Hilfe von IERA die Datei zu 
löschen. 
a$="PIP.COM”:IERA, @A$ 
Ready 

Unter Basic ist der Schutz nicht wirk- 
sam, da Amsdos Byte für Byte bei allen 
drei Schneider-Computern überein- 
stimmt und mit CP/M 2.2 abgestimmt 
ist. Und dieses Betriebssystem kennt 
noch keine Paßwörter. Wenn Sie aber 
nur unter CP/M Plus arbeiten, dann 
haben die Paßwörter Sinn. 

Eine Spezifikation kam noch nicht zur 







B: RW, Space: Ik 
SHOW [LABEL] eröffnet Ihnen auch. 

welchen Namen die Diskette besitzt 

Die Zuweisung des Namens übernimmf 

SET. 

A>SET [NAME=CPM3SYS.DSK] 

A>SHOW [LABEL] 

Directory Label: CPM35YS.DSK 

Bei dieser Gelegenheit gib 
SHOW.COM noch weitere Informatio- 
nen über die Diskette aus: | 

- »Passwds Reqd« (»Passwords 
required«e) gibt an, ob die Dateien mit 
Kennwörtern geschützt sind. 

- »Stamp Create« und »Stamp 
Update« sind für die Datumsangabe 
vorgesehen und zeigen an, ob diese 
aktiv ist. 

- »Label Created« gibt das Datum und 
die Uhrzeit des Zeitpunkts aus, an dem 
die Diskette den Namen erhielt. Da die 
Uhr beim Schneider nicht akku- oder 
batteriegepuffert ist, setzt der Compu- 


A:SUBMIT .COM Protection=READ, 
A:SETKEYS .COM Protection=READ, 
A:LANGUAGE.COM Protection=READ, 
A:SET24X80.C0OM Protecetion=READ, 


Password=COM 
Password=COM 
Password=COM 
Password=COM 


ter jedesmal den 15. Dezember 1982, 
00:00 Uhr Mitternacht ein, sofern die 
Uhr nicht mit DATE.COM eingestellt 
wird. 


Bild 3. Alle Dateien 
hören auf »COMa 


Dieser Befehl schützt alle Komman- 
dodateien der Diskette mit dem Paßwort 
»COM«. Sehen Sie sich aber bei der 
Anwendung vor, denn wenn Sie 
SET. COM ebenfalls schützen, stehen 
Sie auch als rechtmäßiger Benutzer vor 
verschlossenen Türen und können den 
Schutz der Programme nicht mehr auf- 


heben. Also alle Versuche nur an einer ° 


Kopie vornehmen! 

Es lassen sich verschiedene Arten 
des Dateischutzes angeben: READ 
verbietet das Lesen, Beschreiben, 
Löschen und Umbennenen einer Datei. 
WRITE entspricht READ, Lesen ist jetzt 
erlaubt. DELETE verhindert lediglich 
das unbefugte Löschen und Umbenen- 
nen von Dateien. NONE hebt den 
Schutz wieder vollständig auf. Soll bei- 
spielsweise bei PIPCOM nur das 
Löschen verhindert werden, müssen 
Sie folgendermaßen vorgehen: 

A>SET [PROTECT=ON] 

A>SET PIP.COM [PASSWORD=PIPCOM] 
A:PIP.COM Protection = READ, 
Password = PIPCOM 

A>SET PIP.COM [PROTECT=DELETE ] 
A:PIP.COM 

Password? PIPCOM 

A:PIP.COM Protection = DELETE 

Danach kann PIPCOM ganz normal 
geladen und gestartet werden. 
A>PIP 
CP/M 3 PIP VERSION 3.0 
#6 

Nur das Löschen, beispielsweise mit 

ERA, ist jetzt unmöglich. 
A>ERA PIP.COM 
A:PIP.COM Not erased, 

Password Error 


mm 
132 





Sprache und zwar [DEFAULT=pass- 
word]. Damit lassen sich all die Dateien 
schützen, denen nicht ausdrücklich ein 
eigenes Kennwort zugewiesen wurde. 
A>SET [DEFAULT=GEHEIM] 

Default password = GEHEIM 

SET.COM kennt auch die Datums- 
und Zeitmarkierung von Dateien. Wie, 
das lesen Sie in dem Artikel »Sekunden- 
genau« in dieser Ausgabe. 

Was Sie von STÄT.COM unter CP/M 
2.2 noch gewohnt sind, was aber bei 
SET.COM fehlt, das finden Sie fast alles 
in SHOWCOM wieder. SHOW.COM 
dient als »Anzeigeprogramm«. Es offen- 
bart diverse Daten über die Disketten 
beziehungsweise die Laufwerke. So 
gibt SHOW [SPACE] den noch freien 
Speicherplatz des angemeldeten Lauf- 
werks und den Diskettenstatus an. 
A>SHOW [SPACE] 

A: RW, Space: 18k 

Zusätzlich darf vor der eckigen Klam- 
mer ein Laufwerksname spezifiziert 
werden. 

A>SHOW A: [SPACE] 
A>SHOW B: [SPACE] 

Die Kennung [SPACE] kann aber 
auch wegfallen, da es die Standardform 
von SHOW.COM ist. 

A> 5HOW 
A: RW, Space: 18K 

Mit Anweisung zeigt SHOW den 
freien Speicherplatz aller Laufwerke, 
sofern seit dem Systemstart minde- 
stens ein Zugriff darauf folgte. 

A>EB: 
B>A: 


A> SHOW 
A: RW, Space: 18k 





- Ähnliches gilt für »Label Updated«, 
das den Zeitpunkt der letzten Anderung 
des Namens angibt. 

SHOW [DRIVE] listet wie bei © STAT 
DSK: unter CP/M 2.2 das Format der 
Diskette auf. Hinzugekommen ist noch 
die Angabe »Bytes/Physical Recorde. 
Bild 4 zeigt einen Ausdruck. 

SHOW [DIR] gibt an, wieviele Ein- 
träge im Inhaltsverzeichnis der Diskette 
noch frei sind. 

A>SHOW [DIR] 
A: Number of free directory 
entries: 30 

Mit SHOW [USERS] erfahren Sie 
alles, was mit den verschiedenen 
Benutzerbereichen zusammenhängt, 
in welchen Bereichen Dateien stehen, 
wieviele das im einzelnen sind und 
zusätzlich die Zahl der freien Directory- 
Einträge im Gesamtverzeichnis. 
A>SHOW [USERS] 





A: Active User : 0 
A: Active Files: A. = 
A: # of files : 238 1 


A: Number of free directory 
entries: 33 

Aus dieser Ausgabe können Sie fol- 
gende Schlüsse ziehen: Der augen- 
blicklich aktive Benutzerbereich ist O 
(»Active User«e). Dateien stehen im 
Bereich O und User 6 (»Active Files«). 
Unter User O befinden sich 28 Ver- 
zeichniseinträge, im Bereich 6 nur einer 
(»# of files« heißt »number of filese«). 
Das Inhaltsverzeichnis kann noch 33 
Einträge aufnehmen (»Number of free 
directory entries«). 

Doch STAT.COM leistet noch mehr. 
Es weist auch den logischen Periphe- 
riegeräten physikalische zu und zeigt 
diese an. So läßt sich etwa der logische 








A>SHOW [DRIVE] 


















Bild 4. So zeigt sich die Diskette von 





LST:-Kanal auf ein serielles Interface 
umlenken. 

Das erledigt unter CP/M Plus 
DEVICE.COM. »DEVICE« (ohne Para- 
meter aufgerufen) listet die aktuellen 
Zuweisungen auf. Und da hat sich eini- 
ges geändert - sowohl auf Benutzer- 
als auch auf Programmiererebene. Eine 
Ausgabe von DEVICE finden Sie im 
Bild 5. 

DEVICE. COM versteht mehrere 
Namen für jedes logische Gerät, was 
die Eingabe neuer Namen sehr erleich- 
tert. Die »CON:«-Konsole teilt sich in 
»CONIN:« (für die Tastaturabfrage) und 
»CONOUT:« (für die Bildschirmaus- 
gabe). Dennoch kann »CON:« auch wei- 

- terhin allein benutzt werden - ebenso 
»CONSOLE:«. »CONIN:« läßt sich auch 
mit »KEYBOARD:« aufrufen. »AUX:« 
wird auf Wunsch zu »AUXILIARY:«, 
»AUXIN:« und »AUXOUT:«. Das »LST:«- 
Gerät wird mit »PRINTER:« angespro- 
chen. 

Die Liste der physikalischen Geräte 
ist nicht starr festgelegt, sondern vom 
jeweiligen System abhängig. Der nicht 
ausgebaute CPC 6128 besitzt deshalb 
nur »LPT« (»Line Printer«, über eine 
parallele Schnittstelle angeschlosse- 
ner Drucker) und »CRT« (»Cathode Ray 
Tube«, Bildschirm). Beachten Sie bitte, 
daß CP/M Plus (anders als CP/M 2.2) 
die Geräte ohne Doppelpunkt be- 
‚schreibt. 

Um dem logischen Gerät »LST:« das 
‚physikalische »CRT« zuzuweisen, ge- 
‚ben Sie 
A>DEVICE LST:=CRT 
ein. Damit werden alle Ausgaben zum 
Drucker auf den Bildschirm geschrie- 
‚ben. Der Drucker leidet dann allerdings 
an mangelnder Arbeitsauslastung. 
"Schalten Sie ihn jedoch mit CTRL-P an 
und geben Sie »DIR« ein. Sie werden 
eine Überraschung erleben. Gott sei 
Dank verschwindet dieser Spuk durch 
ein weiteres CTRL-P schnell wieder. 
Ein besonderes Gerät ist das »Null- 
Device«. Wenn zum Beispiel ein CP/M- 
re Texte an den Drucker 
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A: Drive Characteristics CRT NONE ID LFT NONE DO 
1,368: 128 Byte Record Capacity 
171: Kilobyte Drive Capacity Current Assignments: 
64: 352 Byte Directory Entries CONIN: = CRT 
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schickt und es ist keiner angeschlos- 
sen, so läßt sich die Druckerausgabe 
damit abschalten. Der Computer wartet 
nicht mehr, bis er das einzelne Zeichen 
abgesetzt hat. 

A>DEVICE LST:=NULL 

Der Aufruf CTRL-P ist nun völlig wir- 
kungslos. 

Diese Technik benutzt auch das 
Schneider-BIOS, nachdem es festge- 
stellt hat, daß überhaupt kein Drucker 
vorhanden ist. Geben Sie nämlich 
»DEVICE« ein, so steht dort unter 
anderem: 

L5ST: = LPT 

Drücken Sie jetzt CTRL-P, geschieht 
gar nichts mehr, weil der Computer ver- 
sucht, ein Zeichen an den Drucker 
abzuschicken. Gelingt ihm das nicht, 
erscheint nach einigen Sekunden in der 
untersten Bildschirmzeile eine Fehler- 
meldung: 

LPT not ready - Retry, 
Ignore, Cancel 

Nach »C« für »Cancelk ist jeder CTRL- 
P-Befehl unwirksam. Schauen Sie sich 
mit DEVICE.COM wieder die Zuwei- 
sungstabelle an, erfahren Sie auch 
wieso. 

LST: = Null Device 

Das Betriebssystem hat damit den 
Drucker automatisch als nicht-existent 
eingestuft. 

Dieses Wissen läßt sich sinnvoll aus- 
nutzen. Haben Sie beispielsweise ver- 
sehentlich bei der Fehlermeldung »C« 
für »Cancel« gedrückt, können Sie mit 
DEVICE den Drucker wieder empfangs- 
bereit machen und die alte Zuweisung 
wiederherstellen. 

A>DEVICE LST:=LPT 

DEVICE.COM leistet aber noch mehr. 
So erfahren Sie beispielsweise mit 
»DEVICE NAMES« die Namen der phy- 
sikalischen Geräte. 

»DEVICE VALUES« zeigt die Zuwei- 
sung der logischen und physikalischen 
Geräte. 

Auch die Charakteristika einzelner 
logischer und physikalischer Geräte 
können Sie ausgeben lassen. 
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Bild 5. Logische und physikalische Geräte unter CP/M Plus | 








Qutput ,S=Serial ,‚X=Xon-Xoff | 5 

















A>DEVICE CON: 

Die physikalischen Peripherie-Gerä- 
te, hauptsächlich serielle und parallele 
Schnittstellen, können mit DEVICE an- 
gepaßt werden. So schaltet DEVICE 
LPT [XON] das XON/XOFF-Protokoll ein 


und »NOXON« wieder ab. Die Baudrate 


läßt sich mit DEVICE.COM verändern. 
Gerade hierzu sollte man aber das 
Schneider-spezifische Programm SET- 
SIO.COM vorziehen, weil solche Ein- 
stellungen primär von der Hardware 
abhängen. 

Das Bildschirmformat kann DEVICE. 
COM ebenfalls anzeigen und verän- 
dern. Wieviele Spalten und Zeilen der 
Computer adressiert, zeigt »PAGE«. 
A>DEVICE CONSOLE [PAGE] 

Console width set to 79 eolumns 
Console page set to 24 lines 

Mit einem anderen DEVICE-Befehl 
läßt sich unter CP/M Plus ein »Bild- 
schirmfenster« setzen: 

A>DEVICE CONSOLE [COLUMN=40, 
LINES=12] 

Allerdings funktioniert das nicht kor- 
rekt, weil ab und zu auch einmal die 
rechte Fenstergrenze überschrieben 
wird. Dieser Fall tritt ein, wenn Sie eine 
Eingabezeile mit beliebigen Buchsta- 
ben vollschreiben und der Computer 
diese Eingabe als Fehlermeldung mit 
einem Fragezeichen wiederholt. 

Auch fällt die »Lines«-Grenze anders 
aus, als der Befehl WINDOW im Schnei- 
der-Basic. Denn der außerhalb des Win- 
dows liegende Text wird mitgescrollt. 
Nur die Meldung »Press RETURN to 
Continue« erscheint entsprechend 
häufiger. 

Durchaus sinnvoll ist aber der fol- 
gende DEVICE-Aufruf: | 
A>DEVICE CONSOLE [COLUMN=80] 

Aus unerklärlichen Gründen werden 
normalerweise im 6128-CP/M nur 79 
statt 80 Zeichen jeder Zeile ausge- 
nutzt. Damit passen aber bei DIR nur 
jeweils vier Dateinamen in jede Bild- 


schirmzeile. Nach diesem DEVICE 
Aufruf sind es immerhin fünf. BF: 
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Befehlsfolge eingeben. 





Gegen die Routine 


Gewisse Routineaufgaben fallen 
bei der Programmierung immer 
wieder an. CP/M Plus kann sol- 
che Aufgaben für Sie erledigen. 


ollen Sie beispielsweise 
von bestimmten Dateien im 
Laufwerk A eine Sicher- 


heitskopie auf B anlegen, so müssen 
Sie folgende Befehle eingeben: 
A>PIP B:=ADRESS.DAT 


_ A>PIP B:=FAKTURA.COM 
BR >PIP B: 


=* ,W5 
A>DIR A: 
A>DIR B: 

Sollen Ihre Daten nach jeder Bearbei- 
tung aktuell gesichert werden, dann 
müssen Sie jedesmal vor dem Aus- 
schalten des Computers die gleiche 
Und jeder 
 Computerfan sinnt bei solchen Routi- 
neaufgaben natürlich nach Arbeitser- 
leichterung. Man brauchteine Datei, die 
dem Computer die Tastatureingabe 
»vormacht«. SUBMIT.COM kann das. 

Legen Sie sich mit einem Texteditor 
zur Übung eine Datei mit dem Namen 
KOPIE.SUB und dem gerade angege- 
benen Inhalt an. Die Namensendung 
»SUB« ist unerläßlich, da sonst die 
ganze Sache nicht funktioniert. Weiter 
geben Sie 
A>SUBMIT KOPIE 
ein. Der Console Command Processor 
(CCP) holt sich nun seine Eingaben 
nicht von der Tastatur, sondern von der 
Diskette. Unser Problem ist gelöst. 

Was macht man nun aber bei Dateina- 
men, die sich immer wieder ändern, bei- 
spielsweise wenn ein Programm (oder 
eine Anweisung) gemeinsam mit einer 
Datei (ein Beispiel: ERA Datei) aufgeru- 
fen wird? Dazu kennt SUBMIT.COM bis 
zu neun Stringvariable. Diese tragen die 
Namen $1 bis $9. 

Sie geben dazu nach »SUBMIT 

KOPIE« mehrere Dateinamen an, bei- 
spielsweise »SUBMIT KOPIE WS.COM 
WSOVLY1.OVR WSMSGS.OVR PIP. 
COM«. Ihre zugehörige Submit-Datei 
sieht dann so aus: 
FIiP B:=$1 
PIP B:=$2 
FIP B:=$3 
PIP B:=$4 
DIR B: 

Das Submit-Programm legt beim Auf- 
ruf auf der Diskette eine Zwischendatei 
mit der Extension ».$$$« an, in der die 
Variablen durch die gewünschten 
Namen ersetzt sind. 

PIP B:=W5.COM 
PIP B:=WSOVLY1.OVR 


_ PIP B:=WSMSCS.OVR 


PIP B:=PIP.COM 


Zu diesen neun Stringvariablen 
kommtnoch $0. $0 hat eine besondere 
Funktion. Diese Variable enthält den 
Namen der eigentlichen ».SUB«-Datei. 
Damit läßt sich in einer sehr kurzen 
Datei eine Endlosschleife aufbauen. 
$0 
ist der gesamte Inhalt der Datei »END 
LOS.SUB«. Durch »SUBMIT ENDLOS« 
nimmt das Unheil seinen Lauf, denn die 
Datei ENDLOS ruft sich immer wieder 
selbst auf. Abbrechen kann man die 
Schleife nur mit CTRL-C. Sie müssen 
aber unter Umständen die Taste län- 
gere Zeit drücken, bevor Ihr Auftrag 
Beachtung findet, da die Tastaturab- 
frage teilweise abgeschaltet ist. 

Wenn weniger Namen angegeben 
sind, als Stringvariablen im Submit-File 
stehen, werden die überzähligen Varia- 
blen mit Leerstrings angefüllt. Geben 
Sie mehr Namen an als benötigt, so 
werden die überzähligen ignoriert. 

Stehen in der ».SUB«-Datei echte Dol- 
larzeichen, sind diese zur Unterschei- 
dung von den Stringvariablen durch 
zwei Dollarsymbole zu ersetzen. Wer 
sich zum Beispiel partout nurtemporäre 
(vorläufige) Dateien ansehen will, hat 
DIR *.$$55$$$ 
für 
DIR *%.$$$ 
einzugeben. 

Schwierigkeiten treten auf, wenn Sie 
Steuerzeichen in die Submit-Datei auf- 
nehmen wollen. Mit einem Texteditor 
geht das nicht problemlos. Es gibt eine 
ganz einfache Lösung. Setzen Sie bei- 
spielsweise für CTRL-P das Potenzie- 
rungszeichen und ein »P« ein, so daß in 
der Datei die beiden Buchstaben »"P« 
stehen. Diese interpretiert dann SUB- 
MIT.COM als CTRL-P. Echte Potenzie- 
rungssymbole erkennt man wieder an 
der Verdoppelung. 

SUBMIT.COM kann nur Tastaturein- 
gaben in der CCP-Kommandoebene 
simulieren. In laufenden Programmen 
ist das leider nicht möglich. Unter CP/M 
2.2 existiert das Programm XSUB. COM 
(»Extended Submit«), das in die erste 
Zeile der ».SUB«-Datei geschrieben 
wird. Es hat den Nachteil, sich ebenfalls 
auf der zu bearbeitenden Diskette zu 
befinden und belegt dort sowohl einen 
Directory-Eintrag als auch 1 KByte 
Speicherplatz. Unter CP/M Plus gibt es 
XSUB.COM nicht mehr. Simulierten Ein- 
gaben für ein laufendes Programm 
steht ein »< « voran. Um beispielsweise 
PIPCOM im »Multiple Command Mode« 
(Modus, bei dem PIP ständig im Spei- 
cher steht und nicht permanent nach- 
geladen werden muß) zu benutzen, 
beschreiben Sie die ».SUB«-Datei mit 


=A:WS.COM 
:=WS0OVLY1.0OVR 
:=WSMSGS5.OVR 


Das Textverarbeitungsprogramm 
Wordstar widersetzt sich leider der 
Automatisierung mit SUBMIT.COM. Es 
beachtet die Eingaben nicht und stellt 
sich tot. Das liegt daran, daß das Pro- 
gramm neben der Tastaturabfrage auch 
den Tastaturstatus untersucht. Und die- 
sen beeinflußt SUBMIT.COM nicht. 
Wenn Sie aber während der Bearbei- 
tung der Submit-Datei beliebige Tasten 
drücken, dann erkennt Wordstar bei der 
Statusabfrage der Tastatur diese als’ 
aktiv, und die Zeichen der Submit-Datei 
erscheinen auf dem Bildschirm. 

Auch den Aufruf von SUBMIT.COM 
können Sie sich erleichtern. Und zwar 
auf zwei verschiedene Arten. Bei der 
ersten geben Sie 
A> SUBMIT 
ohne weitere Parameter ein. Das 
Betriebssystem lädt in diesem Fall das 
Programm in den Speicher und fragt 
CP/M 3 SUBMIT Version 3.0 
Enter File to SUBMIT: 

Jetzt geben Sie den Namen der. 
» SUB«-Datei und die Parameter ein. 

Der zweite Weg ist noch einfacher. 
Sie dürfen nämlich auch den Pro- 
grammnamen »SUBMIT einfach‘ 
weglassen, müssen dann aber unbe- 
dingt die Extension ».SUB« an den‘ 
Namen der Datei anfügen. | 
A>DATEI.SUB | 

SETDEFCOM - (ausführliche Be- 
schreibung ebenfalls in diesem Heft) 
hebt aber auch diese Einschränkung 
auf: 

A>SETDEF [ORDER= (COM,SUB)] 
A>DATEI 

Nur müssen Sie jetzt beachten, daß 
die Diskette kein Programm mit dem 
Namen »DATEI.COM« enthält. Das ist 
deshalb wichtig, da sonst dieses 
anstelle der Submit-Datei gestartet 
wird. 

Was bei vielen anderen Betriebs- 
systemen häufig als Hilfsmittel zum 
Kopierschutz gedacht ist, kann dem 
CP/M-Benutzer unnötige Arbeit abneh- 
men: der Autostart. 

Schauen Sie sich einmal mit »DIR« 
das Inhaltsverzeichnis Ihrer Systemdis- 
kette an. Dort finden Sie die Datei 
»PROFILE.ENG«. Nennen Sie diese mit 
»RENAME PROFILE.SUB=PROFILE. 
ENG« um. Wenn Sie nun nach dem 
Zurücksetzen des Computers CP/M 
Plus neu starten, wird die Datei automa- 
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tisch aufgerufen. Sie beinhaltet zwei 
Befehle, die die Tastatur und den Zei- 
chensatz an das Betriebssystem 
anpassen. 
SETKEYS KEYS.CCP 
LANGUAGE 3 

Sie können sich natürlich unter dem 
Namen »PROFILE.SUB« eine beliebige 
andere Datei anlegen. Denkbar wäre 
etwa der Autostart einer Textverarbei- 
tung oder eines anderen Anwenderpro- 
gramms. Damit machen Sie Computer- 
Unkundigen das Einarbeiten leichter. 


GET&PUT 


Unter CP/M 2.2 erfahren die zeichen- 
orientierten Peripheriegeräte wie LST: 
und CON: eine völlig andere Behand- 
lung als die Diskettendateien. So kön- 
nen Sie zwar mit CTRL-P die Drucker- 
ausgabe einschalten und den Bild- 
schirminhalt auf den Drucker lenken, 
aber es existiert keine Tastenkombina- 
tion und kein Hilfsprogramm, das die 
Bildschirmausgabe in eine Disketten- 
datei umleitet. 

Völlig gleichrangig, wie beispiels- 
weise unter MS-DOS, sind die verschie- 
denen Geräte unter CP/M Plus zwar 
immer noch nicht, sie sind aber einan- 
der »ähnlicher« geworden. 

Das CP/M-Programm GET.COM nutzt 
dies aus und simuliert die Tastaturein- 
gabe, indem es sich die Daten aus einer 
Diskettendatei holt. Das hat fast den 
gleichen Effekt, wie oben mit SUB 
MITCOM. Aber die Lösung mit 
GET.COM ist weniger leistungsfähig, da 
keine Variablen benutzt werden kön- 
nen. 

GET besitzt aber den unschätzbaren 
Vorteil, auch mit Programmen wie bei- 
spielsweise Wordstar zusammenzuar- 
beiten. So findet es beim Aufruf der 
automatisierten Textverarbeitung Ver- 
wendung. Ein Beispiel: Sie haben eine 
Datei, in der jede Zeile 65 Zeichen lang 
ist. Um die Länge auf 40 Zeichen umzu- 
formatieren, müssen Sie sich normaler- 
weise durch den ganzen Text mit CTRL- 
B hindurcharbeiten. Mit GET.COM kann 
das der Computer, ohne Ihre Hilfe, allein 
machen. 

Die Anweisung an das Programm 
GET.COM erfolgt schon fast in engli- 
scher Umgangssprache: 

A>GET CONSOLE INPUT FROM FILE d: 
filename.typ 

Wem das zuviel zu schreiben ist, der 
kann auch verkürzt 
A>GET FILE d:filename.typ 
eingeben. Alle Daten für das laufende 
Programm holt der Computer jetzt von 
der Diskettenstation. 

Im CCP - also bei der Direkteingabe 
- arbeitet GET.COM nicht. Das muß 
durch den Befehl »SYSTEM« gesondert 





verlangt werden. [SYSTEM] »sagt« dem 
CCP also, er soll seine Eingaben aus 
der Datei holen. 

Ein kleines Beispiel für einen 
Wordstar-Brief, der vom Computer 
geschrieben wird, finden Sie im folgen- 
den. Beachten Sie, daß die CTRL- 
Codes über CTRL-P mit dem betreffen- 
den Buchstaben im Wordstar-Editor 
angegeben werden. Steht im Listing 
beispielsweise »’K«, müssen Sie CTRL- 
P und »K« drücken. Tippen Sie zu Test- 
zwecken die folgende Datei im N- 
Modus (»Bearbeiten einer Programm- 
datei«) ein. 
ws 
DBRIEF 
Sehr geehrte Damen und Herren, 
bitte senden Sie uns 30 Computer 
des Typs CPC 6128. 

Mit freundlichen Grüßen 
"KD 

P"R 

<RETURN> 

< KETURN> 

< RETURN > 

<RETURN> 

< RETURN > 

< RETURN > 

<RETURN> 

X 

Geben Sie dann 

A>GET CONSOLE INPUT FROM FILE 
AUTO.WS[SYSTEM] 

oder 

A>GET FILE AUTO.WS[LSYSTEM] 
ein. 

Wordstar »regt sich zwar ganz fürch- 
terlich über die Geschwindigkeit auf«, 
mit der die Zeichen von der Diskette 
geliefert werden und druckt haufen- 
weise Ausrufezeichen aus, die den 
Anwender auffordern sollen, langsamer 
zu tippen, aber es gehen - zumindest 
bei diesem Text - keine Zeichen ver- 
loren. Dies beweist der selbsttätig 
erfolgte Ausdruck. 

Neben »SYSTEM« gibt es noch wei- 
tere Steuerbefehle für die Bildschirm- 
ausgabe. »ECHO« fordert GET auf, alle 
Zeichen von der Diskette nicht nur an 
das Programm zu übergeben, sondern 
zusätzlich auch auf den Bildschirm zu 
schreiben. »NO ECHO« unterbindet 
dieses. »ECHO« ist der vorgegebene 
Standardwert. > 

Es gibt zwei Fälle, in denen die Über- 
tragung von der Diskette abgebrochen 
wird. Entweder wurde die Datei bis zum 
Ende gelesen oder in der Dateistehtein 
Rückstellbefehl: »GET CONSOLE 
INPUT FROM CONSOLE« oder »GET 
CONSOLE«. 


Das Gegenstück zu GET heißt 
»PUT.COM«. Mit diesem Programm lei- 
tet man die Ausgabe auf folgende Peri- 
pheriegeräte um. 

A>PUT CONSOLE OUTPUT TO FILE d: 
filename.typ 





A>PUT CONSOLE FILE d: 
filename.typ 

Das veranlaßt den Computer, die Bild- 
schirmausgabe in die angegebene 
Datei zu schreiben. 
A>PUT CONSOLE OUTPUT TO CONSOLE 
A>PUT CONSOLE CONSOLE 

Diese Befehle weisen das Betriebs- 
system an, die Übertragung der Bild- 
schirmausgabe in die Datei zu been- 
den. Der Computer verhält sich 
anschließend wieder normal. 
A>PUT PRINTER OUTPUT TO FILE d: 
filename.typ 
A>PUT PRINTER FILE &: 
filename.typ 

Der Computer schreibt jetzt alle 
Druckerausgaben in die angeführte 
Datei. Zurückgesetzt wird die Drucker- 
ausgabe mit 
A>PUT PRINTER OUTPUT TO PRINTER 
A>PUT PRINTER PRINTER 


Wie bei GET gibt es auch hier 
Befehle, die in eckigen Klammern hinter 
dem Befehlsaufruf stehen und die 
Datenübertragung beeinflussen. 

Mit »FILTER« können Sie PUT.COM 
anweisen, die Control-Codes in der 
Zieldatei zu unterdrücken. Soll bei- 
spielsweise der ASCII-Code 3 ausge- 
geben werden, wandelt »FILTER« die- 
sen in die beiden Buchstaben »"« und 
»C« um. In der Zieldatei steht dann »"Ce«. 
Besonders bei Ausgabe von Wordstar- 
Dateien auf dem Drucker ist »FILTER« 
nützlich. Das Gegenstück zu »FILTER« 
ist »NO FILTER« (Standardvorgabe). 

»SYSTEM« veranlaßt, daß die Ausga- 
ben des Betriebssystems und der 
Anwenderprogramme in die Zieldatei 
geschrieben werden, bis die Anwei- 
sung mit » PUT CONSOLE CONSOLE« 
widerrufen wird. 

PUT.COM arbeitet aber leider nicht 
fehlerfrei. Angenommen Sie wollen ein 
sortiertes Directory der Systemdiskette 
1 in eine Diskettendatei übertragen. 
Damit die erzeugte Datei nicht noch 
zusätzlich im gespeicherten Directory 
auftaucht, soll es auf das B-Laufwerk 
geschrieben werden. 

A>PUT CONSOLE OUTPUT TO FILE B: 
XYZ Putting Console Output to 
File B:XY2 

A>DIR[FULL] 

A>PUT CONSOLE OUTPUT TO CONSOLE 
A>TYPE B:XY2 

Arbeiten Sie mit zwei Diskettenstatio- 
nen, gibt es keine Probleme. Benutzen 
Sie aber den Simulator des CPC 6128 
für das B-Laufwerk (und wechseln ent- 
sprechend oft die Disketten), kann es 
passieren, daß die Datei nur einen Teil 
des Directory enthält. Das muß jedoch 
nicht immer der Fall sein. 

Wahrscheinlich steckt der Fehler tief 
im BIOS. Wer hiervon mehr weiß, der 
schreibe doch bitte an die Redaktion. 

(Martin Kotulla/hg) 
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Über Umwege 


Bildschirmausgabe, Disketten- 
und Dateifunktionen sind die 
Merkmale von »SETDEF.COM«. 


aben Sie sich auch schon über 

Bm die Aufforderung »Press 

Ba RETURN to Continue« geär- 
gert, die jedesmal auftaucht, sobald 
eine Bildschirmseite vollgeschrieben 
ist. Dabei sind solche Meldungen ganz 
einfach zu unterdrücken. Dazu hält das 
Programm SETDEF.COM die Funktio- 
nen [NOPAGE] oder [NO PAGE] bereit. 





_ A>SEIDEF [NOPAGE] 


Console Page Mode - Off 

Die gegenteilige Wirkung bewirkt 
[PAGE], das den »Seiten-Modus« wie- 
der aktiviert. 
A>SETDEF [PAGE] 
Console Page Mode - On 

Eine weitere interessante, normaler- 
weise nicht eingeschaltete Routine ist 
der »System Display Mode«. Diese Rou- 
tine zeigt beim Laden eines Programms 


3 den vollständigen Dateinamen noch- 


mals an. Eingeschaltet wird sie mit 
[DISPLAY] und ausgeschaltet mit [NO 
DISPLAY]. 

A>SETDEF [DISPLAY] 

Program Name Display - On 

A>pip 


A:PIP COM 


-  _ CP/M 3 PIP VERSION 3.0 


G 

Willkommen ist diese Routine immer 
dann, wenn eine COM-Datei mit SYS- 
Attribut, die im Userbereich 0 steht, von 
einem anderen Benutzerbereich aus 
"geladen werden soll. Dann enthält die 
Kennzeile nämlich noch die Zusatzin- 
formation »User O«: 

A>SET PIP.COM [5YS5] 

A:PIP.COM set to directory (DIR), 
Read Write (RW) 

A>SETDEF [DISPLAY] 

Program Name Display - On 
A>USER 9 

9A>pip 

‚A:PIP COM (User 0) 

CP/M 3 PIP VERSION 3.0 

*C 

Alle anderen Funktionen von SET- 
DEFCOM befassen sich direkt mit Dis- 
ketten und Dateien. 

Eine Funktion definiert das Laufwerk, 
das für temporäre Dateien vorgesehen 
ist. Dabei handelt es sich um Zwischen- 
dateien, die nur kurzzeitig angelegt 
werden. Das sind die Dateien, die meist 
die Kennung ».$$$« tragen. Normaler- 


weise unsichtbar, werden sie beim 


nächsten Warmstart sofort wieder 
gelöscht. Aber nach einem Systemab- 


‚sturz legt ein DIR-Befehl sie offen. 





In der Regel werden sie immer auf 
dem aktuellen Laufwerk angelegt. 
Aktuell ist das Laufwerk, das im CCP- 
Prompt angegeben ist, beim Schneider 
also entweder A oder B. Ist der Platz auf 
dieser Diskette aber bereits ausge- 
schöpft, kann man den Zugriff mit SET- 
DEF auf ein anderes Laufwerk legen. 
Eine RAM-Disk kann auch dazu dienen. 
Der Aufruf lautet [TEMPORARY=d:]. 
Sollen die Dateien beispielsweise auf B 
abgelegt werden, schreiben Sie 
A>SETDEF [TEMPORARY=B:] 
Temporary Drive - B: 

Um wieder zum angemeldeten 
(aktuellen) Laufwerk für die temporären 
Dateien zu gelangen, ersetzt ein Stern 
den Laufwerksnamen. 

A>SETDEF [TEMPORARY=*] 
Temporary Drive - Default 

Ebenso wie der nächste Befehl ergibt 
die Anwendung »Temporary« nur bei 
mindestens zwei Laufwerken einen 
Sinn. Von der Simulation des Zweitlauf- 
werks auf dem CPC 6128 raten wir in 
diesem Zusammenhang aber ab, da Sie 
sonst 90 Prozent Ihrer Zeit für das 
Wechseln der Disketten vergeuden. 

Mit SETDEF.COM können Sie einen 
sogenannten »Suchpfad« (»Search 
Patch«) vereinbaren. Anhand dieses 
»Pfades« werden ».COM«- und ».SUB«- 
Dateien gesucht. Haben Sie beispiels- 
weise Ihre CP/M-Systemdiskette mit 
den Hilfsprogrammen im Laufwerk B, 
eine Datendiskette in A und benutzen A 
als aktuelles Laufwerk, so müssen Sie 
beim Aufruf von COM-Dateien dem 
Dateinamen immer »B:« voranstellen. 
Das ersparen Sie sich, wenn Sie den 
Suchpfad gleich auf B legen. 
A>SETDEF B: 

Drive Search Path: 
ist Drive - B: 
Wollen Sie viele Hilfsprogramme im 


- direkten Zugriff behalten, legen Sie übli- 


cherweise die Systemdiskette in Lauf- 
werk A und eine andere in B. Meist 
suchen Sie dann die gewünschte Datei 
auf dem falschen Laufwerk. Mit SET- 
DEF können Sie aber auch größere 
Suchpfade definieren. Zum Beispiel 
sagen Sie dem Computer: Suche alle 


A>SETDEF 


Drive Search Path: 

ist Drive - As 
nd Drive - Bi 
ärd Drive Cı 
Default 


- COM, 
Default 
On 


4th Drive 


Search Order 
Temporary Drive 
Console Fage Mode 
Program Name Display 





SETDEF.COM über sich selbst 


SUB 


COM- und SUB-Dateien zuerst in A 
Wenn du sie dort nicht findest, frage 
das Laufwerk B ab. Das sieht dann so 
aus: 
A>SETDEF A:,B: 
Drive Search Path 
ist Drive - A: 
2nd Drive - B: 

Der Stern »*« symbolisiert wieder das 


‚aktuelle Laufwerk. Arbeiten Sie mit 


einer RAM-Disk als Laufwerk C, emp- 
fiehlt sich folgende Zuordnung. | 
C>SETDEF %,A:,B: 

Drive Search Path: 

ist Drive - Default 

2nd Drive - A: | 

3rd Drive - B: 

Bis zu vier Laufwerke können in den 
Suchpfad eingegeben werden. Keine 
echte Beschränkung also bei den maxi- 
mal zwei Diskettenlaufwerken, die das 
BIOS verwalten kann. 

Zum Schluß noch einmal die schon 
bei SUBMITCOM angesprochene 
Suchreihenfolge für Dateitypen. Sie gill 
auch bei SETDEFCOM. Anders als 
unter CP/M 2.2 darf bei CP/M 3.0 auch 
bei »COM«-Dateien ausdrücklich die 
Extension ».COM« angegeben werden. 
So sieht der folgende Aufruf korrekt 
durchgeführt aus: 

A>SHOW.COM 
A: RW, Space: 11k 
Daß Submit-Dateien mit der Exten- 


sion >.SUB« gestartet werden dürfen, 


wissen Sie bereits aus dem Artikel über 
SUBMIT.COM in diesem Heft. Wichtig 
sind diese Kenntnisse für die Definition 
des Suchpfades nach Extensions. 
Denn standardmäßig gilt unter CP/M 
Plus folgender Suchpfad als vereinbart: 
A>SETDEF [ORDER=COM] 

Search Order - COM 

Wollen Sie die Submit-Dateien ohne, 
dafür die COM-Dateien mit Extension 
starten, geben Sie 
A>SETDEF [ORDER=SUB] 
ein. Und da liegt die Tücke Ihrer CP/M- 
Version. Denn dieses Kommando 
unterstützt die gegenwärtige CP/M 
Plus-Version leider nicht. 

Invalid ORDER specification 
So müssen Sie dann auf 
A>SETDEF [ORDER=(SUB,COM) ] 
Search Order - SUB, COM 
oder 

A>SETDEF [ORDER=(COM,SUB)] 
Search Order - COM, SUB 
ausweichen. 

Bekommt der Computer einen Datei- 
namen ohne Extension zur Ausführung, 
sucht er im ersten Fall zuerst nach der 
»SUB«-Datei und dann nach der 
»COM«-Datei, im zweiten Fallhingegen 
verhält es sich umgekehrt. | 

Rufen Sie SETDEF.COM ohne Para- 
meter auf, so werden die aktuellen 
Suchpfade und Zuweisungen ange- 
zeigt. (Martin Kotulla/hg) 





; du: 2 
nn... reizen TE — ralladaı 
. HM. f 1} 5 va } — —— = | "7 = a rn — 5„; r E—— _—— f AL ITE DO 
a F un 5 07 “ Ki Pi 5 ie la ui Er . Öse EEE nei ab Ei u EEE S— E u . > Y i sGelälrin ERS 

|. ua. — Bien Zu Ka Ze i & Ar Fu a8 mn nl == —_ eo... “ te, be et rn. 
a a röre "rn FIWETENSERBETTRTENT EDER A re Tr iD are Ze a Eee 
. € - . e ni . -y » na Ar u - ur y- BER ’ , FPEFRP vr nn, pP, P” ä u ru 











Nutzen Sie die eingebaute Uhr, 
um Dateien und Programme zu 
kennzeichnen. Dann wissen Sie 
immer, welche Daten Sie wann 


bearbeitet haben. 
D gebaute Uhr, genauer gesagt 
sogar vier unabhängige Zeit- 
geber. Doch leider ist keiner von ihnen 
akku- oder batteriegepuffert. So muß 
die Uhr nach jedem Einschalten neu 
gestellt werden. Da die Timer (Zeit- 
geber) interruptgesteuert (also soft- 
waremäßig) arbeiten, stoppt die Uhr bei 
allen Diskettenzugriffen und Drucker- 
ausgaben sowie in Maschinencode- 
Programmen nach dem Befehl »Di« 
(Disable Interrupts). 

Leidliich genau geht sie aber trotz- 
dem. Mit dem Hilfsprogramm DATE. 
COM können sofort nach dem System- 
start die Uhrzeit und das Datum einge- 
geben werden. 

Dazu rufen Sie das Programm mit 


er Schneider besitzt eine ein- 





A>DATE SET 

Enter today's date (MM/DD/YY): 
05/01/86 

Enter the time (HH:MM:SS): 
16:35:00 


Press any key to set time 

auf. Beachten Sie bitte die amerikani- 
sche Schreibweise des Datums: Zuerst 
kommt der Monat und dann der Tag. 

Da »DATE SETe« auf einen Tastendruck 
wartet, bevor die Uhr zu laufen beginnt, 
können Sie die Zeit sekundengenau 
einstellen. 

Wenn Sie die Zeit und das Datum 
regelmäßig benötigen, sollten Sie den 
Befehl »DATE SET« in die Datei PRO- 
FILE.SUB aufnehmen, so daß Sie beim 
Systemstart gezwungen sind, die Zeit 
und das Datum einzugeben. 

Eine Kurzform der Eingabe ist eben- 
falls möglich. Bei dieser schreiben Sie 
Datum und Uhrzeit direkt in die Befehls- 
zelle hinter den Programmnamen 
»DATE«: 

A>DATE 05/01/86 16:35:00 
Strike key to set time 

Der Aufruf von »DATE« ohne Para- 
meter hat die Ausgabe des Datums und 
der Uhrzeit zur Folge: 

A>DATE 
Thu 05/01/86 16:37:50 

Der Wochentag wird vom Computer 
automatisch berechnet und entspricht 
den amerikanischen Abkürzungen: 


Mon - Montag 
Tue - Dienstag 
Wed - Mittwoch 





| Total Bytes 
| Total 1k Blocks 





Thu - Donnerstag 
Fi - Freitag 

Sat - Samstag 
Sun - Sonntag 


Eine Digitaluhr können Sie mit »DATE 
CONTINUOUS« auf dem Bildschirm dar- 
stellen. 

A>DATE CONTINUOUS 

Wed 05/07/86 16:44:30 
Wed 05/07/86 16:44:31 
Wed 05/07/86 16:45:32 

Durch Drücken einer beliebigen Taste 
kehrt der Computer wieder zum CCP- 
Prompt A> (oder B>) zurück. Sie dür- 
fen »Set« mit »S« und »Continuous« mit 
»C« abkürzen. 

Rufen Sie mit DATE sofort nach dem 
Systemstart die Uhrzeit ab; ohne vorher 
die Zeit und das Datum eingegeben zu 
haben, wird stets der 15.12.1982, 
00:00:00 Uhr angegeben. 

CP/M Plus unterstützt die Verwaltung 
von Uhrzeit- und Datumseinträgen bei 
Dateien. So schreibt das Betriebs- 


scanning Directory... 
sorting Directory... 
Directory For Drive A: User 0 


| com 





146k Total Records = 


Sekundengenau 


system auf Wunsch bei jedem Dateizu- 
griff das Datum und die Uhrzeit ins 
Directory. Über DIR[FULL] erhalten Sie 
dann ein sehr informatives Inhaltsver- 
zeichnis, aus dem Sie ersehen können, 
wann eine Datei erzeugt wurde und zu 
welchem Zeitpunkt Sie das letzte Mal 
auf welche Datei zugegriffen haben. 

Allerdings gibt es zwei Einschränkun- 
gen. Erstens können Disketten, die auf 
die Zeitkennung vorbereitet sind, kei- 
nesfalls mehr unter Amsdos oder CP/M 
2.2 benutzt werden, weil beide Be- 
triebssysteme mit den zusätzlichen Ein- 
trägen nichts anfangen können. Zwei- 
tens reduziert sich die Zahl der vorhan- 
denen Directory-Einträge. Für jeweils 
drei Dateien wird ein zusätzlicher Ein- 
trag im Inhaltsverzeichnis reserviert. 

Wenn Sie sich trotz dieser beiden 
negativen Auswirkungen für die Kenn- 
zeichnung entscheiden, belohnt Sie ein 
bedeutend leistungsfähigeres Be- 
triebssystem. 


ite | Access 


| 04/04/86 00:32 
zZ 04/03/86 23:10 
| 94/04/86 00:35 
| | 04/03/86 23:26 
| 04/03/86 23:26 
| 04/03/86 23:09 
04/03/86 23:26 
| 04/04/86 00:32 
04/03/86 22:53 
Tl 04/04/86 00:33 
| 04/03/86 23:09 
er 04/03/86 23:26 
| 04/04/86 00:32 
| 04/04/86 00:35 
= 04/03/86 23:09 
= 04/03/86 23:10 | 
ZZ 04/04/86 00:34 
| 04/04/86 00:34 | 
04/04/86 00:33 
U] 04/04/86 00:34 
| 94/03/86 23:09 
04/03/86 23:26 | 
Tl 04/04/86 00:33 | 
= 04/03/86 22:52 


1093 Files Found = 28 


146 Used/Max Dir Entries For Drive A: 64/28 
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Dazu muß eine Diskette ausdrücklich 
für das »Time- and Date-Stamping« vor- 
bereitet werden. Diese Aufgabe über- 
nimmt das Programm INITDIR.COM. Es 
wird zusammen mit der Bezeichnung 
des Laufwerks aufgerufen, in dem sich 
die umzuformatierende Diskette befin- 


den muß. 
A>INITDIR A: 
INITDIR will activate time 
stamps for specified drive. 
Do you want to re-format the 
direetory on drive: A (Y/N)? Y 
A> 
Mit einem erneuten Aufruf von INIT- 


DIR bei einer bereits umformatierten 


h 


- 
4 
> ZVn 


Diskette kann das Datum wieder ent- 
fernt werden. 


»HELPCOM« und »ED.COM« - 
Programme, die aus zwei total 
verschiedenen CP/M-Epochen 
stammen. Nirgendwo werden 
die Kontraste innerhalb CP/M 
Plus so deutlich wie hier. 


‚P/M Plus ist ein Betriebssystem 
| mit Widersprüchen. Auf der 

einen Seite erhebt es den 
Anspruch, ein modernes und profes- 
sionell einsetzbares System zu sein. 
Auf der anderen Seite besitzt es aber 
Eigenheiten, die noch aus den allerer- 
sten Versionen von CP/M herrühren, 
und keinesfalls mehr der heutigen Zeit 
entsprechen. 

Ein besonders ärgerliches Fossil aus 

»alten« Zeiten ist der Editor »ED.COM«. 
Die CP/M-Fan-Gemeinde wünscht sich 
schon seit Jahren, daß man ihn durch 
einen bildschirmorientierten Editor 
ersetzt. Daß Digital Research mit dieser 
Sparpolitik aber nicht allein auf weiter 
(Computer-)Flur steht, hat Microsoft mit 
dem MS-DOS-Editor »EDLIN« bewie- 
sen, der genauso umständlich zu 
bedienen ist. 
Viele Benutzer von CP/M sind des- 
halb schon seit langem auf andere Edi- 
toren umgestiegen. So bietet sich bei- 
spielsweise Wordstar (unter dem 
Menüpunkt »N«) an, das eine sehr kom- 
fortable Programmbearbeitung erlaubt. 
Wer Turbo-Pascal besitzt, der findet 
dort auch einen sehr komfortablen 
Editor. 

Es erübrigt sich deshalb, den Zeilen- 
editor ED.COM ausführlich zu erklären. 
Wenn Sie aber gewisse selbstquäleri- 
sche Züge an sich entdecken und ihn 
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A>INITDIR A: 
INITDIR will activate time stamps 
for specified drive. 
Do you want to re-format the 
direetory on drive: A (Y/N)? Y 
Directory already re-formatted. 
Do you want to recover time/date 
directory space (Y/N)? Y 
Nach dieser Prozedur ist der belegte 
Platz im Directory wieder frei. 
Nehmen wir aber an, Sie wollen die 
Kennung beibehalten. Dazu muß diese 
mit SET.COM aktiviert und in den 
gewünschten Modus gebracht werden. 
Es gibt drei verschiedene Modi: 
»CREATE«, »UPDATE« und »ACCESS«. 
»CREATE« und »ACCESS« schließen 
einander aus. 





trotzdem benutzen wollen, so finden 
Sie im Bild 1 sämtliche Befehle von 
ED.COM. Der Aufruf ist einfach. 

A>ED DATEI 

Ein repräsentativeres Aushänge- 
schild für ein professionelles Betriebs- 
system stellt das Programm »HELP. 
COM:« dar. Sie finden es auf der dritten 
Seite der Systemdisketten Ihres CPC 
6128. Dieses Programm ersetzt fast 
ein Handbuch. Über das hierarchisch 
aufgebaute System erhält man 
Informationen über die Funktionen und 
die Bedienung der einzelnen CP/M- 
Dienstprogramme. 

HELP.COM startet durch Eingabe 
von »HELP«. 

A>HELP 

Die Bildschirmausgabe ändert sich auf 

das in Bild 2 gezeigte Format. 
HELPCOM benutzt ein eigenes Auf- 

forderungszeichen (Prompt). 

HELP> 

Angenommen Sie wissen nicht mehr, 
wie DATE.COM funktioniert und das 
Handbuch ist an den Freund ausgelie- 
hen - also nicht greifbar. 

Es interessiert Sie aber brennend, 
was sich mit DATE.COM alles anstellen 
läßt. Dazu laden Sie HELPCOM, warten 
auf die Eingabeaufforderung und tip- 
pen: 

HELP> DATE 

Das Diskettenlaufwerk läuft kurz an, 
und der Computer lädt die Datei mit den 
passenden Hilfstexten nach. 

DATE 


Syntax: 
DATE [CONTINUOUS] 


DATE [time-specification] 
DATE SET 





A>SET [CREATE=ON] schreibt 
dem Computer vor, beim Einrichten 
einer Datei die Zeit und das Datum zu 
notieren. 

A>SET [ACCESS=ON] erzeugt 
Zeit- und Datumseinträge bei jedem Zu 
griff auf eine Datei. 

A>SET [UPDATE=ON] trägt das 
Datum und die Uhrzeit der jeweils leiz- 
ten Änderung einer Datei ins Directon 
ein. 

Nach dem SET-Kommando hat sich 
das Aussehen des Inhaltsverzeichnis- 
ses bei DIR[FULL] erheblich verändert 
Das Bild zeigt, wie das Directory der 
Systemdiskette 1 jetzt aufgebaut ist. 


(Martin Kotulla/hg? 
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Explanation: 

The DATE command lets you display 
and set the date and time of day. 
ENTER .subtopice FOR INFORMATION 
ON THE FOLLOWING SUBTOPICS: 
EXAMPLES 


HELP> 

Nun sind Sie umfassend informiert. 
Die Befehlssyntax ist klar. DATE.COM 
kann laut Angaben von HELPCOM mit 
A>DATE 
A>DATE CONTINUOUS 
A>DATE mm/tt/jj ss:ımm:ss 
A>DATE SET 
aufgerufen werden. Alle Texte, die bei 
der Syntaxdefinition in Klammern ange- 
geben sind, sind optional und dürfen 
auch weggelassen werden. Optionen 
bei anderen Befehlen, die ein senk- 
rechter Strich (»I«) trennt, dürfen wahl- 
weise benutzt werden. Solche Optio- 
nen schließen sich gegenseitig aus -— 
beispielsweise [PAGE INOPAGE]. 

Unter »Explanation« finden Sie stets 
eine - mehr oder weniger ausführliche 
- .englischsprachige Beschreibung 
dessen, was die Routine leistet. 

Oft helfen solche Angaben allerdings 
nicht sehr viel weiter. Man will schließ- 
lich Beispiele oder eine genauere 
Beschreibung abrufen. Dazu sind die 
»Subtopics« gedacht - sozusagen 
Unterüberschriften. Wenn nach den 
Informationen über DATE.COM wieder 
der HELP>-Prompt erscheint, finden 
Sie darin eine Liste der Unterthemen. 
Bei DATE.COM fällt nur ein einziges 
Thema an - nämlich »Examples«. 
Geben Sie dann das Wort »EXAM- 
PLES« mit einem vorangestellten Punkt 
ein. 

HELP> .EXAMPLES 

KrINPPYFE 
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Hole n Zeilen aus der Datei in den RAM- 


Speicher. | 
Hole Zeilen aus der Datei, bis der RAM- | 


. Speicher halbvoll ist. 


Hole Zeilen aus der Datei, bis der RAM- | 


Speicher voll ist. 


Setze Cursor an den Anfang des Textes im | 


RAM-Speicher. 


| -B Setze Cursor an das Ende des Textes im | 


Br. RAM-Speicher. 

 nc Bewege den Cursor n Zeichen nach unten. 

| -nC Bewege den Cursor n Zeichen nach oben. 

I nD Lösche n Zeichen ab der Cursorposition. 

| -nD Lösche n Zeichen vor dem Cursor. 

"E Speichere Datei ab und kehre in den CCP 

| zurück. 

Ftext CTRL-Z Suche die Zeichenfolge »text«. 

H Speichere die Datei im RAM und nehme Edi- 

| tieren wieder auf. 

A Gehe in den Texteinfügemodus (wird durch 
CTRL-Z beendet). 

| Itext CTRL-Z Füge die Zeichenkette stext« an der Cursor- 

| position ein, 

Jsearch string’ Zinsert 

Nach dem »search string« wird der »insert 
stringe eingesetzt, alle Zeichen bis zum 
»delete-to string« werden gelöscht, 
Lösche n Zeilen nach der Cursorposition. 
Lösche n Zeilen vor dem Cursor. 
Bewege den Cursor n Zeilen nach unten. 
Bewege den Cursor n Zeilen nach oben. 
Wiederhole das folgende Kommando n Mal. 
Bewege den Cursor n Zeilen nach unten. 
Bewege den Cursor n Zeilen nach oben. 
Bewege den Cursor in die Zeile n. 

| :ncommand Führe ein Kommando bis zur Zeile n aus. 

Ntext CTRL-Z Erweiterte Suche nach der Zeichenkette 
»texte, 


lo Mache alle Änderungen an dem Textim RAM 


rückgängig. 
np Bewege den Cursor n Zeilen nach unten und 
| zeige diese an, 
| -nP Bewege den Cursor n Zeilen zurück und 
zeige diese an, 

Q Breche Bearbeitung ab, ohne die Datei zu 

speichern. 

R Lese die Zwischendatei X$$$$$$$.LIB in 
den RAM-Speicher. 
Lese die Datei mit dem Namen »text« in den 
-Soldstring CTRL-Z newstring CTRL-Z 

Ersetze »oldstring« durch s»newstringe. 

MM Gebe n Zeilen unterhalb der Cursorposition 


aus. 
m Gebe n Zeilen oberhalb der Cursorposition 


aus. 
U Wandle in Großbuchstaben um (vorwärts). 
U Wandle in Großbuchstaben um (rückwärts). 
WV Schalte Zeilennumerierung ein. 
Y Schalte Zeilennumerierung aus. 
V Zeige den freien Speicherplatz im RAM. 
nW Schreibe n Zeilen in die neue Datei. 
Schreibe/füge n Zeilen an X$$$$$$$.LIB 


an, 
Schreibe n Zeilen in die Datei mit dem Namen 
texte, 

Lösche die Zwischendatei X$$$$$$$.LIB. 
Lösche die Datei mit dem Namen »text«. 
Warte n Sekunden bis zur Ausführung des 
nächsten Befehls. 


41. 
ier r finden Sie den gesamten Befehls- 
satz ‚des Brene ED.COM | 


HELP UTILITY V1.1 
At "HELP>" 
EXAMPLE: HELP> DIR BUILT-IN 
Topics available: 

COMMANDS 


DATE 
DISCKIT3 


enter topic [subtopic]... 


COPYSYS 


PIP (Copy) 
RMAC 
SET24X80 
SETLST 
SID 

USER 


Bild 2. Hilfe vom System - die Help-Utility 


Der Computer gibt dann folgenden 
Text aus. 
DATE 

EXAMPLES 


A>DATE 
Displays the current date 
and time. 


A>DATE C 
Display the date 
and time continuously. 


A>DATE 08/14/82 10:30:0 
Sets the date and time. 


A>DATE SET 
Prompts for date 
and time entries. 


HELP> 

Manche rassnmbaschröibungen 
enthalten weitere Subtopics. Sie wer- 
den ebenfalls mit einem vorangestellten 
Punkt aufgerufen. 

Wollen Sie wieder ins Hauptmenü 
zurückkehren, das alle vorhandenen 
Programmbeschreibungen auflistet, 
drücken Sie beim Erscheinen des 
HELP >-Zeichens »?«. 

HELP> ? 


Es erscheint folgende Liste: 
Topics available 


COMMANDS CNTRLCHARS COPYSYS DATE 
DISCKIT3 DUMP ED ERASE 
GSX HELP HEXCOM 


DEVICE DIR 
FILESPEC GENCOM 
INITDIR 


Erinnern Sie sich noch an PIPCOM 
und den schönen Begriff »Multi Com- = 
mand Mode«? Das ist genau das, womit 2 
Sie bis jetzt bei HELPCOM gearbeitet 
haben. Sie können aber auch schon in 
der Aufrufzeile die gewünschten The- R 
mengebiete spezifizieren. > 
A>HELP DIR 
A>HELP HEAXCOM 
A>HELP GSX 

Auch die Subtopics lassen sich direkt 
angeben. 

A>HELP DIR BUILT-IN 

Eine Stufe in der Hierarchie nach 
unten, und die Sache sieht so aus: 
A>HELP DIR BUILT-IN EXAMPLES 

Bis zu neun hierarchische Stufen ver- 
arbeitet HELPCOM, die Hauptstufe und 
acht Subtopics. Dafür, daß Sie bei 
HELP immer das Richtige in ausrei- = 
chendem Umfang finden, sorgt die = 
Datei HELP.HLP mit einer Längevon 75 
KByte. v7 

HELPCOM sieht zwei Funktionen 3 
vor: [NOPAGE] und [LIST]. Während Sie = & 
die Erklärung von »NOPAGE« schon 
von den anderen in diesem Heft 
beschriebenen Programmen her ken- ei 
nen, tritt »LIST« hier zum ersten Mal auf. 

Es dient dazu, bei der Druckerausgabe 
mit CTRL-P Papier zu sparen. Es wer- 
den nämlich einige der zahlreichen = 
Leerzeilen aus dem Ausdruck entfernt. 

HELPCOM besitzt aber noch en Ei, 

sehr nützliche Eigenschaft. Sieköonnen 





///2PROFILE.SUB 

Everytime you power up or reset your computer, CP/M Plus looks for a spe- 
cial SUBmit file named PROFILE.SUB to execute. If it does not exist, CP/M 
Plus resumes normal operation. If the PROFILE.SUB file exists, the system 
executes the commands in the file. This file is convenient to use if you regu- 
larly execute a set of commands before you do your regular session on the 
computer. 


///ıTURBO 

Syntax: TURBO 

Funktion: Turbo-Pascal ist einer der erfolgreichsten Pascal-Compiler mit 
einer integrierten Editor-, Compiler- und Laufzeitumgebung. 


///2BEISPIELE 

A>TURBO 

Include error messages? \Y 

Bindet die Fehlermeldungen in den Compiler ein. Dadurch sinkt der verfüg- 
bare Speicherplatz um ca. zwei KByte. 

Inelude error messages? N 

Weist Turbo-Pascal an, TURBO.MSG aus dem Compiler herauszuhalten und 
ist bei knappem Speicherplatz zu empfehlen. 


///2PRODUKTE 

Die Herstellerfirma bietet eine ganze Reihe von Erweiterungen für Turbo- 
Pascal an. Auch andere Softwarefirmen versuchen, sich an den Erfolg von 
Turbo-Pascal mit Programmsammlungen und ”Toolkits”anzuhängen. Be- 
achten Sie, daß viele der Programme nur unter MS-DOS laufen. 


///3BEISPIELE 
Turbo Tutor, Turbo Toolbox, Turbo Graphix Toolbox, Turbo Lader, Turbo Data- 


base, Turbo Gameworks, Turbo Editor 


///ıTYPE 
Syntax: 


Bild 3. Informationen für Turbo-Pascal 


A>HELP TURBO 
A>HELP TURBO BEISPIELE 
A>HELP TURBO PRODUKTE 


A>HELP TURBO PRODUKTE BEISPIELE 


TYPE [ filespec [ [PAGE | NOPAGE ]} ] 


Bild 4. So ruft man die Daten für Turbo-Pascal in HELPCOM ab. 


es mit eigenen Texten erweitern, und 
somit in das Programm eigene Texte 
und eigene Beschreibungen aufneh- 
men oder auch die englischen Texte ins 
Deutsche übersetzen. 

Die in der Datei HELP.HLP stehenden 
Texte sind speziell codiert und lassen 
sich deshalb nicht ohne weiteres bear- 
beiten. Sie müssen HELPCOM erst 
ausdrücklich anweisen, die Datei in 
Klartext zu verwandeln. Dazu benutzen 
Sie den Befehl [EXTRACT]. 

HELPHLP hat, wie schon erwähnt, 
eine Länge von 75 KByte Mit 
»EXTRACT« erzeugt der Computer eine 
Datei HELPDAT mit wiederum 74 
KByte. Dies bedeutet, daß Sie außer 


De HELPCOM und HELPHLP alle anderen 


Dateien und Programme von der Dis- 


kette löschen müssen. Denn sonst 
steht nicht genug Platz zur Verfügung, 
um die neue Datei anzulegen. Nach der 
Löschaktion verbleiben noch freie 96 
KByte auf der Diskette. 

Weisen Sie nun den Computer an, die 
Datei umzuschichten: 

A>HELP [EXTRACT] 
Extracting data.... 

Gedulden Sie sich aber dabei etwas, 
denn es ist für den Computer kein Kin- 
derspiel, mit so einer Riesendatei zu 
hantieren. Das Ende erkennen Sie an 
HELP.DAT created 

Und »DIR« zeigt an, daß eine neue 
Datei im Inhaltsverzeichnis steht. 
A>DIR 


A: HELP DAT : HELP COM : 


Mit sTYPE HELP.DAT« und eventuell& 
Druckerausgabe können Sie sich 
diese Datei ansehen und den Aufb 
studieren. 

Mit Hilfe eines Textprogramms wire 
HELP.DAT editiert. Nach der Anderung 
ist die Datei HELP.DAT wieder zu codie- 
ren, was mit Hilfe von [CREATE 
geschieht. 


_ A>HELP [CREATE] 


Creating HELP.HLF.... 

Auch hier dauert es wieder einige 
Zeit, bis der Computer die Date 
HELPHLP fertiggestellt hat und folk 
gende Meldung erscheint: 

HELP.HLP created 

Sie können nun HELPCOM starter 
und sich die veränderten Texte 
anschauen.’ 

Falls sich unerklärlicherweise in die 
Texte Grafikzeichen eingeschlichen 
haben, die Sie niemals eingegeben 
haben, benutzt der Editor das siebte Bit 
der Zeichen zur Kennzeichnung be 
stimmter Formatierungen. Sie müssen 
dann diese Bits mit Hilfe von PIPCOM 
mit der Z(ero)-Option entfernen. 
A>PIP HELP2=HELP.DAT[Z] 

A>ERA HELP.DAT 
A>REN HELP.DAT=HELP2 

Schwieriger wird es, wenn Sie 
HELPCOM mit eigenen Texten erwei- 
tern wollen. Dazu gibt es nämlich einige 
Vorschriften zu beachten. 

Jede Überschrift eines Befehls oder 
eines Subtopics leiten drei Divieios S- 
striche »///« ein. Darauf folgt eine 2 
die die gewünschte hierarchisch 
Ebene angibt. »1« steht für die Haupt- 
ebene, die Werte »2« bis »9« für die ver- 
schiedenen Unterebenen. An diese 
Zahl hängen Sie den Namen des Pro- 
gramms oder den Titel des Untermenüs‘ 
an. Es folgt ein Carriage Return. 
///}Turbo-Pascal <CRh> 

Die Hauptmenüs müssen alphabe- 
tisch geordnet sein. Also kommt »Turbo- 
Pascal« vor »Wordstar«, und »dBASE Il« 
hinter »CBASIC«. | 

Die Unterbegriffe sollen ebenfalls 
innerhalb einer Hauptgruppe eine 
alphabetische Reihenfolge einhalten. 
»Optionen« steht demnach hinter »Bei- 
spiele«, und zwischen beide wird die 
Rubrik »Fehlermeldungen« angelegt. 

Um beispielsweise »Turbo-Pascal« zu 
beschreiben, hat sich die Anordnung 
aus Bild 3 bewährt. 

Auch diese Anpassung von HELP 
COM bindet [CREATE] in die HELP- 
Utility ein. Bild 4 zeigt, wie man die 
Daten über Turbo-Pascal aufruft. 
A>HELP [CREATE] 

Das läßt wieder einmal spüren, wie 
angenehm man mit CP/M Plus arbeiten 
kann und wie weit Digital Research die- 
ses Betriebssystem für zukünftige Ver- 
besserungen vorbereitet hat. | 

(Martin a 


BMAPPyY® 
RER 


















ährend beim Schneider 
CPC das CP/M-Betriebs- 
system sozusagen eine 


kostenlose Dreingabe ist, gehört es 
beim Joyce CP/M Plus zum festen 
Inventar und ist für diesen Computer 
lebenswichtig. Denn ohne CP/M laufen 
außer Locoscript keinerlei Programme. 

Im Gegensatz zu den CPCs lädt der 
Joyce das Betriebssystem automatisch 
beim Einschalten des Computers. Je 
nachdem, welche Seite der Diskette 
eingelegt ist, startet entweder das Text- 
verarbeitungssystem Locoscript oder 
das CP/M Plus-Betriebssystem. Sie 
können CP/M aber auch durch gleich- 
zeitiges Drücken von »EXTRAe, »SHIF T« 
und »EXIT« starten - vorausgesetzt, die 
CP/M Plus-Systemdiskette ist richtig 
herum eingelegt. 

Nach einigen Sekunden erscheint 
folgende Startmeldung: 
CP/M Plus Amstrad Consumer 
Electronies ple v 1.2, 61K TPA, 
1 Laufwerk, 112K Laufwerk M: 

Dieses Titelbild sagt schon einiges 
aus: Die TPA (Transient Program Area), 
der Bereich, in den CP/M-Programme 
und Daten geladen werden, hat einen 
Umfang von 61 KByte, und ist damit 
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CP/M Plus für Joyce 


Auch der Joyce besitzt, wie der 
CPC 6128, das Betriebssystem 
CPIM Plus. Hier erfahren Sie 
Gemeinsamkeiten und Unter- 
schiede der beiden Versionen. 


genausogroß wie beim CPC 6128. Fra- 
gen Sie sich jetzt, was man mit den übri- 
gen 256-61=195 KByte beim PCW 
8256 beziehungsweise 512-61= 451 
KByte beim »Fat Joyce« anstellen kann? 
112 beziehungsweise 368 KByte sind 
als RAM-Disk verfügbar. »RAM-Disks« 
sind einfach Speicherbereiche, die sich 
so verhalten, als wären sie eine zusätzli- 
che Disketten-Station. Das Betriebssy- 
stem verwaltet sie so geschickt, daß 
jedes Anwenderprogramm glaubt, es 
wäre ein mechanisches Laufwerk mehr 
im System vorhanden. 

Der Vorteil der RAM-Disk liegt in der 
vielfach höheren Geschwindigkeit. 
Diese angenehme Eigenschaft wird 
allerdings mit einem Nachteil erkauft. 
Die RAM-Disk kann nur so lange Daten 
speichern, wie der Computer einge- 
schaltet ist. Um den Inhalt dauerhaft zu 
sichern, müssen Sie die Daten am Ende 
der Arbeit auf eine Diskette kopieren. 
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Bei einem Stromausfall sind alle Daten 
verloren. Die RAM-Disk hört beim 
Joyce auf den Namen »M«. Dieser 
Name steht für »Memory Disk«. Geben 
Sie, direkt nach dem Hochfahren des 
Betriebssystems (»Booten«), den 
Befehl: 

A>DIR M: 

ein. Da die RAM-Disk noch leer ist, 
erscheint die Meldung: No File. 

Wenn Sie die Geschwindigkeit von 
CP/M Plus erhöhen wollen, kopieren 
Sie einfach alle Dateien und Programme 
der Systemdiskette nach M und wählen 
M als Default-Laufwerk: 

A>FIP M:=#,* 
A>M: 
M> 


Kleine Unterschiede 
een 


Sowohl der CPC 6128 als auch der 
Joyce verwenden CP/M Plus. Dennoch 
kann nicht alles, was für den CPC 6128 
gilt, ohne weiteres auf den Joyce über- 
tragen werden. So ist eine - übrigens 
äußerst angenehme - Eigenschaft von 
Joyce, daß der größte Teil des Benut- 
zerdialogs in deutscher Sprache ab- 
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Bild. Der Inhalt der Joyce-Systemdiskette 


läuft. Unser Bild zeigt das Directory der 
Systemdiskette (Seite 2) vom Joyce. 
Betrachten wir zuerst die Standard- 
programme, die sowohl beim Joyce als 
auch beim Schneider CPC 6128 auf 
Diskette mitgeliefert werden. Sie wer- 


den in anderen Artikeln in diesem Heft: 


ausführlich besprochen. 


- = DIR.COM (Seite 2) 


Ausgabe des Inhaltsverzeichnisses 
einer Diskette 
- ED.COM (Seite 2) 

Ein einfacher Editor 
- ERASE.COM (Seite 2) 

Programm zum Löschen von Dateien 
auf der Diskette 
- PIP.COM (Seite 2) 

Universelles Programm zum Kopie- 
ren von Dateien 
- RENAME.COM (Seite 2) 

Programm zum Umbenennen von 
Diskettendateien 
- SET.COM (Seite 2) 

System-Programm zum Festlegen 
von Datei- und Disketten-Parametern 
- SETDEF.COM (Seite 2) 

Bestimmung eines Suchpfads für 
Dateien und des Laufwerks für tempo- 
räre Dateien 
- SHOW.COM (Seite 2) 

Anzeige spezieller Disketten- und 
Laufwerks-Parameter 
- SUBMIT.COM (Seite 2) 

Automatisierte Bearbeitung von 
Befehlen aus einer Diskettendatei 
- TYPE.COM (Seite 2) 

Ausgabe von ASCiIli-Textdateien auf 
dem Bildschirm 
- GET.COM (Seite 3) 

Eingabeumleitung aus einer Disket- 
tendatei 
- PUT.COM (Seite 3) 

Ausgabeumleitung in eine Datei auf 
der Diskette 
- INITDIR.COM (Seite 3) 

Vorbereitung des Directory für Zeit- 
und Datumseinträge 
- DATE.COM (Seite 3) 

Setzen und Auslesen der Uhrzeit und 
des Datums 
- DEVICE.COM (Seite 3) 

Anzeige und Abänderung der Zuord- 
nung von logischen und physikalischen 
Geräten 
- HELPCOM (Seite 4) 

Hilfsprogramm, das Informationen 
über andere CP/M-Programme ausgibt. 

Einige Programme haben ähnliche 
oder gleiche Namen wie ihre Pendants 
beim CPC 6128, dennoch fallen kleine 
Unterschiede auf. 


142 — 


LANGUAGE.COM 

Dieses Programm stellt den Zeichen- 
satz für die Bildschirmausgabe ein. 
Identisch mit dem 6128-Programm 
LANGUAGE.COM. 

PALETTE.COM = 

PALETTE erlaubt die Anderung der 
Bildschirmfarben. Nachdem der Joyce- 
Bildschirm und der Video-Chip nur Grün 
und Schwarz darstellen können, ist das 
Programm nicht mit dem gleichnamigen 
PALETTE.COM des CPC 6128 iden- 
tisch. Es gibt in der Joyce-Version sinn- 
vollerweise nur zwei Farbkombinatio- 
nen. 

A>PALETTE 1 0 
A>PALETTE 0 1 

»1 O« wählt schwarze Schrift auf grü- 
nem Untergrund (Inversdarstellung), »O 
1« hingegen grün auf schwarz (normale 
Arbeitsweise). 

SET24X80.COM 

Der Unterschied zum CPC 6128 
besteht beim Joyce darin, daß dieser 
Computer 31 Zeilen je 90 Zeichen dar- 
stellen kann. Auch das wirft Probleme 
auf, da manche CP/M-Programme auf 
einen 24zeiligen Bildschirm bestehen. 
A> SET24X80 
A>SET24X80 ON 

Beide Anweisungen sind gleichwer- 
tig und schalten den verkleinerten Bild- 
schirm ein. Abgeschaltet wird er mit: 
A> SET24X80 OFF 
SETKEYS.COM 

Dieses Hilfsprogramm stellt genau 
wie beim CPC 6128 die Tastaturbele- 
gung ein. Hier gelten folgende Bezeich- 
nungen: 

- »N« für Normal. 

- »S« für Shift. 

- »A« für die ALT-Ebene. 

- »E« für die EXTRA-Ebene. 
- »SA« für SHIFT / ALT. 

Es können mehrere Tastaturebenen 
auf einmal angegeben werden. Sie 
müssen deren Bezeichner aber mit 
einem Leerzeichen trennen. Schreiben 
Sie also nicht »NSE«, sondern »N S E«. 

Erweiterungszeichen (beim Joyce 
können auch die Funktionstasten 
belegt werden) definieren Sie, indem 
Sie der Zeile in der Belegungsdatei ein 
»E« voranstellen: 

E # 80 "DIR'M” 

»E« steht für »Expansion Key«. Ver- 
wechseln Sie das aber bitte nicht mit 
dem Umbelegen der EXTRA-Taste: 

32 EA” 

Die Tastaturnummern entsprechen in 

weiten Zügen denen der anderen 


Schneider-Computer. Eine komplette 
Liste finden Sie in Ihrem Benutzerhand- 
buch (Buch 1, Anhang 1, Seite 7). 
SETLST.COM 5 

SETLST dient der Übergabe von 
Steuersequenzen an den Drucker. 
Abgesehen davon, daß die Control- 
Taste beim Joyce ALT heißt, und damit 
die Control-Codes »Alternate-Codes« 
heißen müssen, gibt es keine weiteren 
Unterschiede. Positiv fällt beim Joyce 
auf, daß der Drucker ins System inte- 
griert ist, so daß die Drucker-Steuer- 
zeichen für alle Joyce-Besitzer gleich 
sind. Welche Steuercodes die jeweils 
gewünschten Druckerfunktionen auf- 
rufen, entnehmen Sie bitte dem Anhang 
2 des Benutzerhandbuchs 1. 
SETSIO.COM 

Dieses Programm stellt die serielle 
Schnittstelle auf bestimmte Parameter 
ein. Baudrate, Bitzahl, Zahl der Stop- 
Bits, Parität, UÜbertragungsprotokoll und 
so weiter können festgelegt werden. 
DISCKIT.COM 

Der Dialog mit diesem Programm, das 
Disketten formatiert, kopiert und über- 
prüft, ist vollständig in Deutsch gehal- 
ten. Als Zwischenspeicher beim Kopie- 
ren kompletter Disketten dient automa- 
tisch die RAM-Disk. Das spart Zeit und 
istkomfortabler als das ständige Disket- 
tenwechseln beim 6128-Programm 
DISCKIT3.COM beziehungsweise sei- 
nem CP/M 2.2-Bruder DISCKIT2.COM. 
Ist ein zweites Laufwerk angeschlos- 
sen, erkennt DISCKIT.COM es automa- 
tisch und bietet weitere Menüs, mit 
denen Sie das Quell- und Ziellaufwerk 
festlegen können. 


Wenig Joyce- 
spezifise 1es 


Ansonsten gibt es nur wenige Pro- 
gramme und Dateien, die nicht zum 
CP/M Plus-Standard gehören. Zu nen- 
nen sind allenfalls BASICCOM und 
PAPER.COM, sowie die nicht direkt zu 
den CGP/M-Programmen gehörenden 
Dateien J12CPM3.EMS, ‚RPED.BAS, 
RPED.SUB und PROFILE.GER. 

Beginnen wir mit der EMS-Datei. Kei- 
ner der CP/M Plus-Computer vermag 
das Betriebssystem wie bei der Version 
2.2 in den Systemspuren der Diskette 
abzulegen. Deshalb steht es in einer 
EMS-Datei. Heißt diese beim CPC 
6128 »C10CPM3.EMS«, wird sie beim 


























Joyce »J12CPM3.EMS« genannt. Ne- 
benbei bemerkt, ist letztere ein ganzes 
Stück größer: CIOCPM3.EMS ist 25 
KByte lang, J12CPM3.EMS immerhin 
40 KByte. Das EMS-File muß auch 
beim Joyce nicht auf jeder ins Laufwerk 
eingelegten CP/M-Diskette vorhanden 
sein, sondern wird nur ein einziges Mal 
beim Systemstart benötigt. 
PROFILE.GER sollten Sie sofort bei 
der ersten Inbetriebnahme Ihres Com- 
puters in PROFILE.SUB umbenennen. 
Dann stellt Ihnen Joyce nach dem 
Systemstart stets die deutsche Tasten- 
belegung und die deutschen Sonder- 
zeichen zur Verfügung. 
A>REN PROFILE.SUB=PROFILE.GER 
»GER« steht für »German«, während 
die Extension der 6128-Datei PRO- 
FILE.ENG die englische Tastaturbele- 
gung repräsentiert. Die Eingabe des 
Schlüsselworts »BASIC« beauftragt das 
CP/M-Betriebssystem, den Basic- 
Interpreter zu laden: 
A>BASIC 
Mallard-80 BASIC with Jetsanm 
(ec) Copyright 1984 Locomotive 
Software Ltd. All rights reserved 
Danach können Sie den Joyce wie 
jeden handelsüblichen Heim- oder Per- 
sonal Computer in Basic programmie- 
ren. Das Mallard-Basic ist übrigens sehr 
leistungsfähig und besitzt ausgezeich- 
nete Befehle zur Verwaltung von Dis- 
kettendateien. Leider stehen von den 
maximal vorhandenen 512-KByte-RAM 
des Joyce unter Basic nur etwa 30 
KByte für ein Programm zur Verfügung. 
Aber keine Sorge: Die RAM-Disk M 
kann man auch von Mallard-Basic aus 
ansprechen. Zusammen mit den lei- 
stungsfähigen Kommandos CHAIN und 
CHAIN MERGE lassen sich mit etwas 
Überlegung sehr umfangreiche verket- 
tete Programmsysteme entwickeln. 
Von Mallard-Basic aus gelangen Sie 
durch Eingabe des Befehls »SYSTEM« 
wieder in den Console Command Pro- 
cessor (CCP) des CP/M-Betriebssy- 
stems zurück. 

Beim Basic-Start dürfen einige Para- 
meter angegeben werden. So können 
Sie den Computer anweisen, ein Basic- 
Programm zu laden und sofort zu star- 
ten: 

A>BASIC PACMAN 

Mit »/F:n« wird die Zahl der Dateien 
(»Files«) angegeben, die unter Basic 
gleichzeitig geöffnet sein dürfen. »n« 
darf von O bis 255 alle Werte anneh- 
men. Vorgegeben sind drei Dateipuffer. 
Wollen Sie zum Beispiel 10 Dateien öff- 
nen, schreiben Sie: 
A>BASIC /F:10 

»/M:n« bestimmt die Obergrenze 
(»High Memory«) des für Mallard-Basic 
freigegebenen RAM-Speichers. Dieser 
Parameter ist nützlich, wenn Sie gleich- 
zeitig Maschinencode-Routinen an das 


obere Speicherende legen wollen. Der 
Wert für »/M:n« muß als vorzeichenlose 
Integerzahl (O bis 65535), als Hexade- 
zimalzahl (&0000 bis &FFFF) oder als 
oktale Zahl (&O0000 bis &0177777) 
eingegeben werden. Ist keine Begren- 
zung angegeben, holt sich Mallard- 
Basic die Startadresse des BDOS aus 
der RAM-Adresse 6 und wertet sie als 
Obergrenze des Speichers. Natürlich 
kann für »/M:n« keine Zahl stehen, die 
größer ist, als es das System überhaupt 
gestattet. 

Der letzte Parameter heißt »/S:n« und 
bestimmt, wie viele frei adressierbare 
Sätze maximal verwendet werden dür- 
fen. Ohne den S-Parameter liegt dieser 
Wert bei 128. 

Der bildschirmorientierte Texteditor 
RPED.BAS zählt ebenfalls zu den Basic- 
Programmen. Er verwaltet einen Text- 
puffer von etwa 20000 Zeichen und 
kann direkt von der CCP-Kommando- 
ebene des Betriebssystems mit Hilfe 
der Datei RPED.SUB gestartet werden: 
A>RPED.SUB 
Oder: 

A>SUBMIT RPED 

Voraussetzung ist natürlich, daß sich 
die Datei SUBMIT.COM auf der Arbeits- 
diskette befindet. Sonst tippen Sie 
A>TYPE RPED.SUB 
und geben die aufgelisteten Befehle 
von Hand ein. 


Drucker Derfekt 
integriert 


Eine bisher nahezu unmöglich 
erscheinende Einbindung eines 
Druckers in das Betriebssystem reali- 
sierten inzwischen die Ingenieure von 
Amstrad. Nachdem der Drucker zum 
Lieferumfang gehört, ließen sie einen 
großen Teil seiner Elektronik einfach 
weg. Statt dessen steuert der Compu- 
ter die Druckfunktionen. Während Sie 
sich bei Verwendung der Locoscript- 
Textverarbeitung darüber nicht den 
Kopf zerbrechen müssen, können Sie 
den Drucker unter CP/M Plus individuell 
nach Ihren Wünschen konfigurieren. 
Dazu dient das CP/M-Programm 
PAPER.COM. 

Gestartet wird PAPERCOM durch 
Eingabe des Schlüsselworts »PAPER«, 
gefolgt von diversen Parametern. Diese 
lauten: 

- FORM LENGTH n 

»Form Length« (Länge des Formulars) 
legt die Zahl der Zeilen pro Seite fest. 
Gestattet sind Werte zwischen 6 und 
99. Außerdem wird der Zeilenabstand 
automatisch auf sechs Zeichen pro Zoll 
eingestellt. Zwischen zwei Seiten 
erscheinen ab sofort keine Leerzeilen 
mehr. 

- GAP LENGTH n 


»Gap Length« (Länge des Abstands) 
bestimmt, wie viele Zeilen am unteren 
Rand der Seite freigehalten werden. 
Der Wert darf zwischen O und 99 lie- 
gen. 

- LINE PITCH n 

»Line Pitch« (Punktabstand zwischen 
den Zeilen) setzt die Zahl der Zeilen pro 
Zoll fest. Hier sind nur die Werte 6 und 
8 gestattet. 

- SINGLE SHEET 

»Single Sheet« (Einzelblatt) schaltet 
auf Einzelblattbetrieb um. 

- CONTINUOUS STATIONARY 

»Continuous Stationary« (Endlospa- 


pier) sagt dem Drucker, daß Endlospa- 


pier vorliegt. 
- PAPER OUT DEFEAT ON 

PAPER OUT DEFEAT OFF 

»Paper Out Defeat« (Papierende- 
Meldung) legt fest, ob der Drucker das 
Papierende melden soll oder nicht. 

Wer in der englischen Sprache nicht 
so bewandert ist, wird sich oft über die 
Schreibung einzelner Befehle nicht 
ganz sicher sein: Heißt es jetzt eigent- 
lich »CONTINUOUS« oder »CONTI- 
NOUS«? Kürzen Sie dann doch einfach 
die Befehle ab! PAPER.COM versteht 
folgende Kurzbezeichnungen: 

- »F« für »FORM LENGTH« 

- »G« für »GAP LENGTH« 

- »L« für »LINE PITCH« 

- »S« für »SINGLE SHEET« 

- »C« für »CONTINUOUS 
STATIONARY« 

- »P« für »PAPER OUT DEFEAT 

Um die Druckersteuerung möglichst 
nicht in Rechnerei ausärten zu lassen, 
gibt es zwei vorgegebene Standard- 
blätter für die Papierformate DIN A4 und 
DIN AS: 

A> PAPER A4 

Der Computer bedruckt das Papier 
nun als Einzelblatt des Formats DIN A4. 
Auf eine Seite passen 70 Zeilen, am 
unteren Rand werden drei Zeilen freige- 
halten. 

A> PAPER A5 

Der Joyce nimmt nun DIN-A5-Papier 
an: 50 Zeilen pro Seite und drei Leerzei- 
len am unteren Blattrand. 

Ein zusätzlicher PAPER-Parameter 
gilt für Endlospapier. Wenn nur eine 
Zahl zwischen 1 und 17 genannt wird, 
nimmt der Computer folgende Bedin- 
gungen an: 

- Es werden Endlosblätter verwendet. 

- Die Seitenlänge beträgt »n« Zoll. 

- Der Zeilenabstand liegt bei sechs Zei- 
len pro Zoll. 

- Am unteren Blattrand werden keine 

Zeilen freigehalten. 

- Das Papierende wird dem Computer 
mitgeteilt. 

Wir hoffen, Ihnen fällt der Umgang mit 
dem Joyce durch unseren kleinen 
Überblick jetzt ein wenig leichter. 


(Martin Kotulla/Udo Reetz) 
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MAC und RMAC -— 
zwei ungleiche Brüder 


Wer in Maschinensprache pro- 
grammieren will, benötigt einen 
leistungsstarken Assembler und 
Hilfsprogramme. Beim CP/M 3.0 
sind sie »kostenlos« dabei. 


P/M war bereits seit seiner Ent- 

stehung hauptsächlich als 

Betriebssystem für Programmie- 
rer gedacht. Die Version 3.0 fiel vor 
allem erheblich bedienungsfreundli- 
cher aus und zeigte sich nachsichtiger 
gegenüber Nicht-Fachleuten. Dabei 
blieben die guten Hilfen zur Program- 
mierung nicht nur erhalten, sondern 
erfuhren sogar noch weitere Verbesse- 
rungen. 

Innäherem oder weiterem Sinn gehö- 
ren folgende Programme unter CP/M 
Plus in die »Abteilung Programmier- 
tools« und werden von Schneider beim 
CPC 6128 und beim Joyce PCW 8256/ 
8512 mitgeliefert. Als erstes sind wohl 
MAC.COM, der CP/M Plus- Standardas- 
sembler, und RMAC.COM, sein »Bru- 
der relokalisierbaren Code 
erzeugt, erwähnenswert. 

HEXCOM.COM übersetzt die von 
MAC.COM erzeugten HEX-Files in 
direkt ausführbare COM-Dateien. 
Link-80 (auf der Diskette unter dem 


Dateinamen LINKCOM zu finden) 


macht etwas ähnliches für RMAC- 
Dateien, die die Extension ».REL« besit- 
zen. 

XREF.COM formt aus der Druckdatei 


und der Symboltabelle von mit MAC 


oder RMAC übersetzten Programmen 
ein Listing mit Querverweisen (»cross 
references«). Dieses Listing ist eine 
große Hilfe bei der Programmdokumen- 
tation. 

Bei SID.COM (»Symbolic Instruction 


- Debugger«) handelt es sich um einen 


sehr komfortablen Maschinensprache- 


Monitor und Programm-Debugger. Er 
arbeitet im Gegensatz zu DDT.COM von 
CP/M 2.2 (»Dynamic Debugging Toole«) 
auch mit den vom Assembler erzeugten 
Symboltabellen. Zu SID. COM gehören 
die Utility-Programme TRACE.UTL und 
HIST.UTL, die beim Testen von Soft- 
ware oft recht nützlich sind. 

LIB.COM ist ein »Library«-Programm. 
Wenn Sie viel in Maschinensprache 
oder anderen Compilersprachen (zum 
Beispiel PL/I-80, Pascal/MT+ oder 


CBASIC) unter CP/M programmieren, 
können Sie wichtige und häufig benö- 


tigte Unterprogramme in Objektcode- 
Form als Programmbibliotheken anle- 
gen. LIB.COM verwaltet diese Libraries. 

Die vier verbleibenden Programme 
braucht man seltener: DUMPCOM 
listet Diskettendateien auf dem Bild- 
schirm in hexadezimaler Form auf. Dar- 
stellbare ASCII-Zeichen werden direkt 
gezeigt. 

GENCOM.COM dient zur Anbindung 
von RSX-Modulen an COM-Files. 
»RSX« steht für »Resident System 
Extension«, genau wie die RSX-Befehle 
im Schneider-Basic. Beide »RS%«- 
Systeme haben aber absolut nichts mit- 
einander zu tun. Die RSX unter CP/M ist 
vielmehr eine Betriebssystem-Erwei- 
terung, die über den BDOS-Einsprung 
aufgerufen werden. Sie binden sich in 
die BDOS-Kette ein und merken auto- 
matisch, wann sie angesprochen wer- 
den sollen. »RSXen« erfordern aber 
sehr spezielle Programmierkenntnisse, 
die einiges an Erfahrung mit dem CP/M- 
Betriebssystem voraussetzen. 

SAVE.COM ersetzt den vormals in der 
CP/M-Version 2.2 residenten Befehl 
SAVE, der Teile der TPA auf der Diskette 
abspeichert. SAVE.COM arbeitet mit 
SID.COM zusammen; Sie lernen dieses 
Programm später noch ausführlicher 
kennen. 

PATCH.COM vermerkt im Kopf einer 
Datei eine Nummer zwischen O und 31. 
PATCH dient dazu, Dateien mit Ver- 
sionsnummern zu bezeichnen. 


Betrifft: Assembler 





Die beiden Assembler MAC. COM und 
RMAC.COM haben einen großen Nach- 
teil: Sie verarbeiten nur den mnemoni- 
schen Code des 8080/8085-Mikro- 
prozessors. Z80-Programmierer müs- 
sen also umdenken. Ansonsten bieten 
die beiden alles, was man sich nur wün- 
schen kann. Vor allem - daher rührt 
auch ihr Name - sind sie makrofähig. 
Makros sind Befehlsgruppen, die unter 
einem bestimmten Namen zusammen- 
gefaßt und später anhand dieses 
Namens wieder aufgerufen werden 
können. 

MAC und RMAC sind aufwärts- 
kompatibel zum Standardassembler 
ASM.COM, der zum Lieferumfang von 
CP/M 2.2 gehört. Das bedeutet, daß sie 
alle Programme, die ASM übersetzt, 


auch verarbeiten. Ändersherum geht 
es natürlich nicht. Man kann ASM keine 
Programme vorsetzen, die spezielle 
Fähigkeiten von MAC oder RMAC aus- 
nutzen. 


Dochalles der Reihe nach. Gehen wir 
zuerst einmal auf die Grundlagen von 
MAC und RMAC ein. 

Dem Assembler geben Sie eine Dis- 
kettendatei vor, die den Quellcode im 
Klartext enthält. »Klartext« heißt, daß 
die Datei keine Sonderzeichen oder 
spezielle Codierungen aufwärts. Word- 
star ist im normalen D-Modus dafür 
also herzlich ungeeignet. Verwenden 
Sie dieses Textprogramm bei der 
Erstellung von Maschinencode- 
Programmen (wie übrigens auch bei 
allen anderen Programmdateien) 
grundsätzlich nur im N-Modus. Dann 
weiß Wordstar nämlich, daß Sie eine 
Quellcode-Datei erstellen und erzeugt 
reine ASCII-Files. Wer keinen geeigne- 
ten Texteditor besitzt, kann auf die 
Basic-»Simpel«e-Lösung zurückgreifen: 


10 OPENOUT "PROG.ASM” 

20 PRINT #9, "START MVI A,9” 

30 PRINT #9,” MOV C,A” 

40 PRINT #9,” LXI D,STR$” 
>0 PRINT #9,” CALL 5” 

60 PRINT #9,” JMP 0” 

70 PRINT #9, "STR$ DB 'Hallo!$'” 
80 CLOSEOUT 


Allzu komfortabel ist das natürlich 
nicht. Es handelt sich eben um eine 
Notlösung. 

Eine typische Quellcode-Zeile 
besteht aus einem oder mehreren der 
folgenden Einzelglieder: Zeilennum- 
mer, Label, Befehl, Operanden, Kom- 
mentar. 

Selbstverständlich können Sie die 
Zeilennummer auch weglassen. Der 
Assembler ignoriert sie ohnehin. Sie 
dient nur dazu, Kompatibilität zu mög- 
lichst vielen Texteditoren herzustellen. 

Einige Beispiele für syntaktisch kor- 
rekte Quellcode-Zeilen mit Befehlen 
und Operanden: 


MVI A,3 
ADI 23 
JMP 0 
CGALL 5 
LHLD 30H 


Manche 8080-Befehle benötigen 
überhaupt keine Öperanden. In diesem 
Fall ist das Operandenfeld leer: 

SPHL 
RNZ 
XTHL 











Um in anderen Maschinencode-Be- 
fehlen auf eine Speicheradresse Bezug 
zu nehmen, verwendet man symboli- 
sche Adressen, sogenannten »Labels«. 
Sie können diese jedem beliebigen 
Maschinencode-Befehl voranstellen. 


START MVI A,23 
JMP ENDE 
MVI 0,3 
CALL 5 


ENDE JMP 0 

Das Label, auch »Marke« genannt, 
besitzt dann als Wert die Adresse des 
zugehörigen Maschinenbefehls. Steht 
etwa das obige »MVI A,23« an der 
Adresse 2710 hex, hat »START« den 
Wert 2710 hex. Mit JMP, CALL oder 
LHLD sprechen Sie zusammen mit dem 
Label die Adresse 2710 hex an. 

Eine Marke darf bis zu 16 Buchsta- 
ben lang sein. Dabei sind alle Zeichen 
signifikant, werden also bis zur 16. 
Stelle hin unterschieden. 


* = .. wZ 
Namen frei gewählt 


Bei der Namensgebung sind Sie rela- 
tiv ungebunden. Buchstaben, Zahlen, 
Fragezeichen und der »Klammeraffe« 
sind erlaubt und werden als Stelle 
gezählt. Lediglich das ebenfalls zuge- 
lassene Dollarsymbol (»$«) überliest 
der Assembler und eignet sich dem- 
nach recht gut zur Gliederung langer 
Namen. Die Labels »LANGER$NAME« 
und »LANGERNAME« sowie 
»LSASNSG$ESRSNSASMSE« sehen 
für den Assembler gleich aus. 

Wenn Sie wollen, dürfen Sie hinter die 
Labels einen Doppelpunkt setzen. MAC 
und RMAC verstehen die Zeilen aber 


auch ohne: 

LOAD LXI D,3FACH 
oder 

LOAD: LXI D,3FACH 


Kommentare hängen Sie am besten 
hinter der Programmzeile an. Ein Strich- 
punkt oder ein Stern trennt sie vom übri- 
gen Text ab. Sie dürfen auch allein in 
einer Zeile stehen: 

START LXI SP,0100H ; Stackpointer 
auf TPA 

* Hier beginnt das Hauptprogramm 
; Und hier sind die Daten 

Numerische Konstanten in Aus- 
drücken lassen sich in verschiedenen 
Zahlensystemen angeben: dezimal, 
binär, hexadezimal und sogar oktal! 

Dezimale Konstanten enden wahl- 
weise mit einem »D«: 32767D ent- 
spricht 32767, man kann das D also 
auch weglassen. 

Hexadezimale Werte besitzen als 
Kennung ein »H«: 3FACH, 2710H, 
7FH. Beginnt eine Hexzahl mit einem 
Buchstaben (»A« bis »F«), sollten Sie ihr 
eine Null voranstellen, damit der 


Assembler sie von einem Label unter- 


zakiad r, 
con EEE 


u 


scheiden kann. Statt »FFFFH« schrei- 
ben Sie besser »OFFFFH«. 

Binärzahlen enden mit einem »B« für 
»Binary«. Gerade bei diesen Zahlen- 
»Bandwürmern« empfiehlt es sich, sie 
mit Dollarzeichen zu gliedern. 
»0000111101011010B« ist ein ziemlich 
abschreckendes Beispiel für eine - 
zulässige - Binärkonstante, während 
»0000$1111$0101$1010$B« durch 
die Unterteilung in Nibbles (Halb-Bytes) 
durchaus leserlich ist. 

Oktale Konstanten werden Sie zwar 
kaum jemals benötigen, aber der Voll- 
ständigkeit halber: Sie enden mit einem 
»0« oder »O«, dem Buchstaben, keines- 
falls der Null! Oktalzahlen, lassen sich 
aber auch mit dem weniger mißver- 
ständlichen »Q« oder »q« kennzeich- 
nen: 

33770 = 33770 = 3377Q = 3377gq 

Auch mit Zahlen und Symbolen kann 
man rechnen und in Ausdrücken For- 
meln erstellen. Neben den vier Grund- 
rechenarten (Addition »+«, Subtraktion 
»-«, Multiplikation »*« und der Division 
»/«) stehen auch die sogenannten unä- 
ren Operatoren zur Verfügung: 
+X=X, -X=0-X. 

Während »/« eine Integerdivision 
durchführt, liefert MOD (»modulo«) den 
Rest dieser ganzzahligen Division. 

Der Divisionsrest läßt sich folgender- 
maßen beschreiben: Wenn Sie 13 
durch 4 teilen, erhalten Sie das ganz- 
zahlige Ergebnis 3. »3+4«, also der 
Umkehrschritt, ergibt aber nicht 13, 
sondern 12. Die Differenz zwischen 13 
und 12 ist der Rest, hier die Zahl 1. 

Auch Shift-Befehle verstehen die bei- 
den Assembler. Analog zu den Turbo- 
Pascal-OÖperatoren heißen diese auch 
hier »SHL« (Shift Left) und »SHR« (Shift 
Right«). Beide schieben die Bits in 
einem Byte oder 16-Bit-Wort um eine 
gegebene Anzahl von Stellen nach links 
oder rechts und füllen die freigeworde- 
nen Stellen mit Null-Bits auf, 

Eine Linksverschiebung um eine 
Position entspricht damit der Multiplika- 
tion mit Zwei, ein Ein-Bit-Rechts- 
schieben der Division durch Zwei. 

Deutlicher wird das ganze an zwei 
praktischen Beispielen: 
001101B SHL 1 ergibt 011010B 
001101B SHR 1 ergibt 000110B 

HIGH und LOW berechnen das High- 
beziehungsweise Low-Byte einer 
16-Bit-Zahl. So ergibt »HIGH 3FACH« 
den Wert 3F hex und »LOW 3FACH« die 
Zahl OAC hex. 

Auch einige Logikbefehle, die Sie viel- 
leicht vom Schneider-Basic her ken- 
nen, sind als Operatoren zugelassen. 
»AND«, »OR« und »XOR« verknüpfen 
jeweils zwei Operanden Bit für Bit. 

3 AND 12 
255 OR X 
16000 XOR 16001 


3 OR 4 XOR 23 AND 255 


»NOT« liefert das logische Gegenteil 2 
einer Zahl, denn es dreht alle ihre Bits 
um. Aus Null-Bits werden Einsen, aus 


Eins-Bits Nullen. Haben Sie beispiels- 


weise die Binärzahl O101B, ergibt NOT 


O101B: 1010B. 

Die Wahrheitswerte TRUE (wahr) und 
FALSE (falsch) erhalten Sie von einigen 
Vergleichsoperatoren: 


a EQ b (»check if equal«: prüfe, ba 


gleich b) 


Soliefert 2 EQ 2 STRUE«, 2EQ&3hinge- _ 


gen »FALSE«. 


a NE b (»check if not equal«: prüfe, ob 


a ungleich b) | 
50 NE 49 ergibt »sTRUE«, während 50 


NE 50 der Wahrheitswert »FALSE« ist. 


alLTb (»scheck if less than«: prüfe, ob a 
kleiner b) 


ALT 3 ergibt »FÄLSE«, 3LT 4 im Gegen- R 


satz dazu »TRUE«. 


a LE b (»check if less than or equale«: 


prüfe, ob a kleiner oder gleich b ist) 
3 LE 4 ist TRUE«, 4LE 4 ebenso. 5LE 
2 meldet »FALSE«. 


a GT b (»check if greater than«: prüfe, 


ob a größer als b ist) 


20 GT 21 ergibt den booleschen Wert 2 


»FALSE«, 21 GT 19 liefert das Resultat 
»TRUE«. 


aGEb (»check if greater than or equale«: z 


prüfe, ob a größer oder gleich b ist) 


30 GE 10 ist sTRUE«, ebenso wie 30 
GE 30. Dahingegen zeigt 30 GE40 ° 


den Wahrheitswert »FALSE« an. 
Wem die Lust fehlt, die englischen 


Abkürzungen für die Vergleichsbefehle 
zu erlernen, kann natürlich auch seine 


Mathematikkenntnisse anwenden und 


auf die bekannte »Größer-Kleiner«- E F 


Symbolik zurückgreifen: 

LIT < Kleiner 

LE <= Kleiner oder gleich 
EQ = Gleich 


NE <> Undleich 
GE >= Größer oder gleich 
GI > Größer 


Strings gibt's auch 


Stringkonstanten werden in Apostro- 
phe eingeschlossen. Dabei darf en 
String pro Zeile maximal 64 Buchsta- 


ben enthalten. Ein paar Beispiele für 
gültige Strings: 
N I 


Wollen Sie einen Apostroph im String 
unterbringen, setzen Sie an seiner 


Stelle das Anführungszeichen ein: 


»The lazy dog”s back’ ergibt im 


Objektcode »The lazy dog's back«. 
Bestehen Sie partout auf ein Anfüh- 


rungszeichen im Text, verursacht das 


einige Schwierigkeiten. Geben Sie in 





'CP/M lernen mit Happy-Computer!'! 
| 


diesem Fall den ASCII-Code des Zei 3 


chens an, nämlich 34: 


 34,'Bitte sehr',34,' sagte er' 


€ “ 
De £ 


. „e- 


"IE 
Br 
.- 

e 


»Direktiven«, dieses Wort klingt so 
. nach »Befehl von oben«. Bei den CP/M- 
 Assemblern hat es eine erheblich posi- 
tivere Bedeutung. »Direktiven« sind 
"wohl den meisten eher geläufig als 
»Pseudo-Befehle«. Das sind Komman- 
dos, die in den Quellcode wie normale 
_ Maschinenbefehle eingefügt werden 
und beim Assembler verschiedene 


a Reaktionen auslösen können. Ein Bei- 
spiel dafür ist: 
3 PAGE 53 


MI A,23 
Während der MVI-Befehl ein ganz 
normales Mnemonic ist, handelt es sich 


bei »PAGE« um die besagte Direktive. 


Sie teilt dem Assembler schlicht und 


einfach mit, daß alle Seiten bei der Aus- 


gabe des Druckerlistings 53 Zeilen 


umfassen sollen. 


u 
zz ee = sprpb17722:2::zEEEE 
j zum 8 a Lı 
E ıre ven = nicht 
BeE 


von oben 


Es gibt natürlich auch bedeutendere 


| 3 ‚und häufiger benötigte Direktiven. So 


x > sagt »ORG Adresse« dem Assembler, 
daß er den internen Programmzähler 


 (»Origin«) bei der Übersetzung auf 


einen bestimmten Wert setzen soll. An 
die genannte Adresse wird das Pro- 
gramm dann später bei der Ausführung 


r? . } L 
Ar A { “ 
ash m» 
PIE TESTER 


geladen. Für CP/M-Systeme setzen Sie 


am geeignetsten ausschließlich »ORG 


O0100H« ein, denn 0100 hex ist der 


Beginn des CP/M-Programmspeichers 
der TPA. Diese Feststellung gilt natür- 
lich nur für MAC, nicht für RMAC. Denn 
 RMAC erzeugt verschiebbaren Code, 
und da ist ein fester ORG-Adreßwert ja 
eher hinderlich. 


Abschließen sollten Sie jedes Pro- 


_ gramm mit der »END«-Direktive. Alle 
dem »END« folgenden Befehlszeilen 
überliest der Assembler, das Dateiende 
erkennt er aber auch ohne »END«. Den- 
ken Sie aber unbedingt daran, bei der 
Eingabe in den Editor nach der letzten 
Zeile mindestens einmal ENTER oder 
RETURN zu drücken. Sollten Sie das 


vergessen, kann es sein, daß der 


= Assembler ohne Vorwarnung »aus- 
E- steigt«. 


Sie haben bereits die »Labels« ken- 


_  nengelernt. Mit »EQU« können Sie 

einem Label auch gleich einen festen 

Wert zuweisen. So liegt beispielsweise 

die Warmstart-Adresse von CP/M bei 
0000 hex. Wollen Sie diese etwa 

»WARMBOOT« nennen, schreiben Sie 
diese Zeile: 

_  _ WARMBOOT EQU O0000H 


Um einen Warmstart des Computers 
im Programm auszulösen, geben Sie 
_ wahlweise »JMP O0000H« oder »JMP 
_WARMBOOT« an. So wird es einsichtig, 


daß sich die Verwendung von Labels 


gut eignet, verständliche Programme 
zu schreiben, und damit sehr zu emp- 
fehlen ist. Statt Konstanten sind auch 
Formeln und Berechnungenrechts vom 
»EQU« gestattet. Sogar den Bezug auf 
vorher definierte Labels unterstützen 
MAC und RMAC: 

CONSOLE$PORT EQU OFFDBH 
JOYST$PORT EQU CONSOLE$PORT+5#3 

Ein einmal mit »EQU« definiertes 
Label läßt sich nicht so ohne weiteres 
später im Programm ändern. Legen Sie 
darauf trotzdem Wert, müssen Sie auf 
»SE T« zurückgreifen: 

CONSOLE SET 7BOOH 
IN CONSOLE 
PUSH PSW 
SET 630FH 
OUT CONSOLE 
POP AF 

Zuerst besitzt »CONSOLE« den Wert 
7BO0O hex, später aber 630F hex. Bei 
»IN« wird die erste Adresse ausgewer- 
tet (7BOO hex), bei dem auf das zweite 
»SE Te folgenden »OUT« dagegen 630F 
hex. 

Um Daten direkt in den Quelltext ein- 
zusetzen, bedient man sich der Direk- 
tive »DB«. Das steht für »Define Byte«. 
Der Beginn einer ASCII-Tabelle sieht mit 
»DB« So aus: 

DB 32,33,34,35,36,37,38,39,40 

ASCII-Codes sind in Apostrophe ein- 
zuschließen: 

DB ! Do tt ig ra 

Bis zu 64 Buchstaben und Symbole 
können Sie auch auf einmal angeben: 
DB ' 1 #$%&”()%+,-./01234' 

Der Assembler berechnet die einzel- 
nen Werte oder Formeln und legt sie 
Byte für Byte im Speicher ab. Bei Adreß- 
ausdrücken ist die 8-Bit-Breite von 
»DB« hinderlich. »DW« (»Define Worde«) 
ist da eher angebracht: 

DW 3FACH,16300, 'AB' ,0101101B 
Wollen Sie für einen Datenbereich 
Speicherplatz reservieren, ohne ihn 
gleich mit bestimmten Werten vorzube- 
legen, empfiehlt sich der Pseudobefehl 
»DS« (»Define Space« oder »Define Sto- 
rage«). Um etwa 30 Byte für den Pro- 
zessorstapel bereitzuhalten, wählen 
Sie folgende Formulierung: 
DS 30 

STACK EQU $ 
ORG O100H 
LXI SP,STACK 

MAC und RMAC erstellen auf 
Wunsch bei der Assemblierung eine 
Listdatei, die den Quellcode und die 
erzeugten Bytes in übersichtlicher 
Form darstellt. Mit zwei Assembler- 
Direktiven läßt sich die Ausgabe steu- 
ern. »PAGE« legt fest, mit wievielen Zei- 
len jede Druckseite beschrieben wird, 
bis der Assembler ein Form-Feed (Sei- 
tenvorschub) ausgibt. »PAGE 40« fügt 
zum Beispiel nach jeweils 40 Zeilen 
einen Seitenvorschub ein. 


CONSOLE 


Eine besondere Bedeutung kommt 
noch dem Befehl »PAGE O« zu. Er unter- 
drückt jeglichen Seitenvorschub und 
weist den Assembler an, alle Listingzei- 
len ohne Unterbrechung zu drucken. 
»PAGE« ohne Zahlenparameter löst 
einen unmittelbaren Seitenvorschub 
aus. 

»IITLE« bestimmt die Meldung, die 
am Anfang jeder Listingseite die erste 
Zeile einnimmt. Nach »TITLE« geben Sie 
eine Stringkonstante an, die von Apo- 
strophen umgeben sein sollte: 

TITLE 'Diskmonitor V2.0' 
TITLE 'Mallard-Basic V4 Rev.1i' 

Der Assembler MAC druckt diesen 
String zusammen mit seiner eigenen 
Startmeldung, der Versionsnummer 
des Assemblers und der Seitennummer 
aus: 

CP/M MACRO ASSEM 2.0 

#001 Diskmonitor V2.0 

CP/M MACRO ASSEM 2.0 

#001 Mallard Basic V4 Rev.i 

Etwas anders sieht das bei RMAC 
aus: | 
CP/M RMAC ASSEM 1.1 
#001 Diskmonitor V2.0 
CP/M RMAC ASSEM 1.1 
#001 Mallard Basic V4 Rev.i 

Wer größere Programmpakete unter 
CP/M zu entwickeln beabsichtigt, 
schreibt oft verschiedene Versionen, 
die jeweils an einen speziellen Compu- 
ter angepaßt sind. Um nun nicht für jede 
Version eine eigene Quellcode-Datei 
anlegen zu müssen, kann man den 
Assembler anweisen, Programmteile 
nur dann zu übersetzen, wenn eine 
bestimmte Bedingung zutrifft. Dazu 
schachteln Sie die bedingt zu überset- 
zenden Segmente mit »IF« und 
»ENDIF«. 

Stellen Sie sich etwa vor, Sie wollen 
ein Programm CLS.COM schreiben, 
das beim Schneider CPC und beim 
Joyce den Bildschirm löscht und den 
Cursor in die linke obere Bildschirm- 
ecke setzt. Unter CP/M 2.2 verwenden 
Sie dazu ASCII 12, beiCP/M Plus hinge- 
gen ESC-E/ESC-H. Eine Version für 
CP/M 2.2 sieht so aus: 

BDOS EQU 0005H 
WARM EQU O0000H 
TPA EQU 0100H 
OUTPUT$ EQU 0009H 
ORG O0100H 
LXI SP,TPA 
C,OUTPUT$ 
D,CLS 
BDOS 
WARM 


CLS 12,:3° 


Unter CP/M Plus heißt es dagegen: 
BDOS EQU 0005H 
WARM EQU 0000H 

| EQU 0100H 
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OUTPUT EQU 
ORG 
LXI 


0009H 
O100H 
SP,TPA 
MVI C,OUTPUT$ 
LXI D,CIS 
CALL BDOS 
JMP WARM 
CLS DB  27,'"E',27,'38' 
END 
Und so sieht die Kombination der bei- 
den Listings mit Hilfe der bedingten 
Assemblierungsmöglichkeit aus: 





TRUE EQU  OFFFFH ; wahr 
FALSE EQU NOT TRUE ; unwahr 
CPM3 EQU TRUE ; Oder 
CPM3 | EQU FALSE 
BDOS EQU  0005H 
WARM EQU  0000H 
TPA EQU  O100H 
OUTPUT$ EQU O0009H 
ORG  DO100H 
LXI  SP,TPA 
MVI C,OUTPUT$ 
a 
CALL BDOS 
JMP  WARM 
IF CPM3 
CLS DB 27, 21,27,’ 
ENDIF 
IF NOT CPM3 
CLS DB 12,18! 
ENDIF 
END 


Nun erzeugen Sie ganz einfach eine 
CP/M 3.0- und eine CP/M 2.2-Version. 
Sie brauchen nur 


CPM3 EQU TRUE 
für die CP/M 3.0-Version oder 
CPM3 EQU FALSE 


für die CP/M 2.2-Version einzusetzen. 

Etwas übersichtlicher gestaltet die 
ganze Sache die Konstruktion »IF - 
ELSE - ENDIF«. Das Clearscreen- 
Programm läßt sich mit ELSE so darstel- 
len: 












TRUE EQU _OFFFFH 
FALSE EQU NOT TRUE 
CPM3 EQU TRUE ; Oder 
CPM3 EQU FALSE 
BDOS EQU 0005H 
WARM EQU  O0000H 
TPA EQU 0100H 
OUTPUT$ EQU O0009H 
ORG O0100H 
LIXI SP,TPA 
MVI  C,OUTPUT$ 
IXI D,CILS 
CALL BDOS 
JMP  WARM 
| IF  CPM3 
cs. DB 27,1E1,27,'08° 
e. ELSE 
 c1Ls DB. „12,18! 
| ENDIF 
END 


Doch seien Sie sicher; allzu häufig 
werden Sie auf derartige Finessen nicht 
t Br roekoreiten. 
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Bis jetzt wissen Sie noch gar nicht, 
wie Sie MAC oder RMAC dazu bringen, 
ein Programm in Maschinencode zu 
übersetzen. Gehen wir davon aus, Sie 
haben eines der CLS-Listings abgetippt 
und als CLS.ASM gespeichert. Die 
Extension ».ASM« im Dateinamen ist 
von äußerster Wichtigkeit, denn sonst 
findet der Assembler die Datei nicht. 

Sie können es sich nun einfach 
machen und MAC nur mit dem Dateina- 
men laden: 

A>MAC CLS 

Nach kurzer Wartezeit erscheinen 
einige Meldungen auf dem Bildschirm: 
CP/M MACRO ASSEM 2.0 
0110 
000H USE FACTOR 
END OF ASSEMBLY 

Schauen wir uns die Bedeutung der 
einzelnen Textzeillen an: »CP/M 
MACRO ASSEM 2.0« ist schlicht die 
Startmeldung, die darüber Auskunft 
gibt, daß MAC jetzt aktiv ist. Die Zeile 
»0110« (eventuell bei Ihnen auch 
»0113«) zeigt die letzte vom Programm 
belegte Adresse. Das Maschinencode- 
Programm wird im Speicher also zwi- 
schen 0100 (dem normalen Beginn der 
TPA) und 0110 beziehungsweise 0113 
hex (der Angabe von MAC) liegen. 


HEXCOM 
stellt sich vor 


Der »Use Factor« ist eine Information 
des Assemblers, die die Auslastung des 
Arbeitsspeichers mit der Symboltabelle 
während der Assemblierung im Verhält- 
nis zur Größe des Gesamtspeichers 
beschreibt. Liegt der Auslastungsfaktor 
nahe OFF hex, bedeutet dies, daß der 
Assembler bald nicht mehr in der Lage 
sein wird, das Programm zu überset- 
zen. Bei solchen Miniprogrammen wie 
CLSist der Speicher natürlich praktisch 
kaum belastet. Deshalb ergibt sich für 
den Belegungsfaktor der angegebene 
Wert 0. 

Wenn Sie jetzt das Directory listen, 
entdecken Sie einige neue Dateien. Da 
wäre zuerst einmal CLS.PRN, die 
Listingdatei. Sie läßt sich so auf en 
Bildschirm ausgeben: 

A>TYPE CLS.PRN 

CLS.SYM ist die Symboltabelle. In 
diese Datei schreibt MAC alle Symbole 
zusammen mit ihrem Wert: 

A>TYPE CLS.5YM 
0005 BDOS 
U10E CLS 
0009 OUTPUT 
0100 TPA 
0000 WARM 

Neben der besseren Programmdoku- 
mentation erfüllt sie noch eine weitere 
Aufgabe. Der Debugger SID kann diese 
Tabelle nämlich auch lesen, wodurch 
Sie in diesem Monitorprogramm mit 






symbolischen Adressen arbeiten kön 3 
nen. Doch dazu später mehr. Be. 3 
Nach einem »MAC-Lauf« enthält die Be 
Diskette noch kein startfähiges Pro- 
gramm, nur eine sogenannte »Inte- 
Hex-Datei«. Das sindkryptische Kombi- 
nationen von Hexadezimalzahlen. E: 
CLS.HEX könnte bei Ihnen vielleicht so | 
aussehen: us 
:100100003100010E09110E01CD0500C e 
30000002401 :0000000000 E - 
Dem Menschen erscheinen diese 3 
Dateien unverständichh während ; 
HEXCOM.COM damit ganz ausge- 
zeichnet zurechtkommt. Eserzeugtaus 5 ® 
HEX-Dateien COM-Programmdateien. 
Sie rufen das Konvertierungsprogramm = Be .- 
zusammen mit dem Dateinamen deszu 
übersetzenden Programmes, aber 
ohne Extension auf: Bei: 
A>HEXCOM CLS Va 
Es stellt sich Ihnen kurz vor: E3. 
HEXCOM VERS: 3.00 Be 
und verrichtet dann seine Arbeit. e 
Danach gibt es Informationen über 
CLS.COM aus: Bi. 
FIRST ADDRESS 0100 
LAST ADDRESS 0O10F 
BYTES READ 0010 
RECORDS WRITTEN 01 e- 
Der Programmstart liegt also bei En 
0100 das Programmende bei 0I0OF 
hex. HEXCOM hat 0010 hex (16) Byte 
gelesen und einen 128-Byte-Record. FE 
auf die Diskette geschrieben. Be 
Sie können das Programm CLSCOM 
nun durch Eingabe des Dateinamens 
starten: 2; 
A>CIS ee; 
Nun nehmen wir uns das Programm BE 
RMAC vor. Besonders viel Sinn gibtdas 
hier noch nicht, weil wir nicht mehrere 
Programm-Module zusammen-»lin- S 
ken«. Gerade das ist aber die Spezialität 
von RMAC. Starten läßt sich RMAC auf 
dieselbe Art und Weise, die Sie schon 








































































von MAC kennen: “3 
A>RMAC CLS | hr b 
CP/M RMAC ASSEM 1.1 Rx - 
0110 a. 






0O00H USE FACTOR 
END OF ASSEMBLY a 
RMAC legt- ebenso wieMAC-eine 
SYM- und eine PRN-Datei an. Nur das 2 
».HEX« fehlt. Dafür gibt es »REL«, ein 
sogenanntes »Relocatible File«. Ds 
REL-Format ist Microsoft-kompatibel. 
Das heißt, daß sich RMAC-Programme 
mit Programmen verschiedener Micro 
soft- und Digital-Research-Compiler 
verketten lassen. Link-80 erledigt das a 
für Sie. Geben Sie nur eine einzige Link- g 
ee an, verhältsichLINK fastwieHEX- 
M: 































A>LINK CLS 
LINK 1.31 | 
ABSOLUTE 0000 = - 
CODE SIZE 0110 (0100-020F) 

DATA SIZE 0000 






\ COMMON SIZE 0000 
USE FACTOR 00 


E- - Auch von RMAC und LINK produ- 
zierte Programme werden wie üblich 
. gestartet: 

 A>CLS 
Nun wäre es ja richtig »langweilig«, 
wenn alle Assemblerprogramme immer 
auf genau dieselbe Art übersetzt wür- 


& _ den. MAC und RMAC besitzen deshalb 
eine Reihe von Optionen, die die Über- 
setzung steuern. Diese stehen jeweils 


hinter dem Dateinamen und sind von 


ihm durch ein Dollarsymbol getrennt. 


9 Sie bestehen stets aus zwei Buchsta- 


ben. Eine typische Aufrufzeile sieht so 
Baus: 
-  _A>MAC DATEI $AB PA SB 


 »A« bestimmt das Laufwerk mit der 
_ ASM- Datei. »AB« läßt den Assembler 
_ die Suche also auf dem Laufwerk B 
Besimen. »AA« sucht auf A. »PA« 
schreibt die Listdatei auf das Laufwerk 
A, »SB« die Symboltabelle nach B. 
Einige wichtige Zusätze: 
Ad Diskette (d) für die gelesene ASM- 
Datei 
Hd Diskette (d) für die erzeugte HEX- 
Datei 
 PdDiskette (d) für die Listdatei (».PRN«) 
Sd Diskette (d) für die Symboltabelle 
 (».SYM«) 
Neben den Standardlaufwerken A bis 


: 2 © (beim Schneider nur A und B, allen- 


falls bei RAM-Disks oder Festplatten 
‚gibt es weitere Laufwerksbezeichnun- 
. gen) versteht der Assembler auch 
einige »Scheingeräte«. So fühlt sich bei 
»P« der Drucker (Printer) und bei »X« der 
- Bildschirm angesprochen. Führen Sie 


»2« (Zero Device) auf, unterdrückt dies 


die Ausgabe. Um also keine Hexdatei zu 
erzeugen, die Listdatei auf den Bild- 


_  schirm zu schreiben und die Symbolta- 


belle auf dem Drucker auszugeben, 


ö geben Sie ein: 
A>MAC DATEI $PX HZ SP 


 _ RMAC versteht diese Zusätze eben- 
falls, allerdings gilt statt der Bezeich- 
nung »H« für Hexfiles hier »R« für die 


_  _ RMAC-typischen REL-Dateien. 


Eine komplette Tabelle aller MAC- 


und RMAC-Parameter finden Sie in der 
Tabelle. 


Ein »richtigere Assembler muß 
Makros verarbeiten - so zumindest die 


P Meinung vieler Anwender. So ausneh- 
 __mend wichtig sind sie jedoch bestimmt 
nicht, aber oft ganz nützlich. 


Was sie tun und wie man sie anwen- 
det, verdeutlicht am ehesten ein Bei- 


| = spiel. Will man in CP/M einen String auf 
 _ demBildschirm ausgeben, benutzt man 


die BDOS-Funktion 9: 
LXI D,STRING 
PUSH PSW 
PUSH B 
PUSH D 
PUSH H 





Wenn Sie des öfteren Strings auf dem 
Bildschirm ausgeben müssen, pro- 
grammieren Sie eine Unter-Routine: 
HAUPT LXI D,STRING 

CALL AUSGABE 
LXI D,STRING2 
CALL AUSGABE 
JMP $ 


PUSH PSW 
PUSH B 
PUSH D 
PUSH H 
MVI C,9 
CALL BDOS 
POP H 
POP D 
POP B 
POP PSW 
RET 

Während das natürlich - von der Pro- 
grammlänge her betrachtet - eine opti- 
male Lösung darstellt, schaut es beim 
Geschwindigkeitsverhalten der Rou- 
tine schlechter aus. Denn zum norma- 
len Programmcode kommt noch der 
Unterprogramm-Aufruf und die Rück- 
kehr zum Hauptprogramm. Gerade 
Befehle, die den Z80/8080-Stack 
benötigen und sich zusätzlich noch 
eine 16-Bit-Adresse aus dem Speicher 
holen müssen, sind besonders lang- 
sam. So dauert die Bearbeitung eines 
Befehls wie »LD A,B« (MOV A,B) beim 
Z80 vier Taktzyklen, ein Uhnterpro- 
gramm-Aufruf aber 17. Und der RET- 
Befehl schlägt mit zehn weiteren Takt- 
zyklen zu Buche. Insgesamt also 27 
»unnötige« Zyklen. ; 

Nun könnte man sich mit Blockkopier- 
Operationen des Texteditors die ent- 
sprechenden Programmteile hin- und 
herkopieren, so daß am Schluß bei 
jeder Gelegenheit, bei der ein String 
gedruckt werden soll, der komplette 
Programmcode dasteht. Unter dem 
Gesichtspunkt der Übersichtlichkeit ist 
das aber auf gar keinen Fall zu empfeh- 
len. Diese Lösung, die auf die Makros 
zurückgreift, ist da schon wesentlich 
besser. 

AUSGABE MACRO 
PUSH PSW 
PUSH B 
PUSH D 
PUSH H 
MVI C,9 
CALL BDOS 
POP H 
POP D 
FOP B 
POP PSW 


LXI D,STRING 
AUSGABE 
LXI D,STRING2 
AUSGABE 
JMP $ j 
Der Assembler setzt bei der Überset- 
zung in Maschinencode an allen Stel- 
len, an denen »AUSGABEK« steht, den 
kompletten Programmcode ein, den Sie 
zwischen »AUSGABE MACRO« und 


»ENDM« finden. 


Das ist zwar sehr speicherplatzauf- 
wendig, aber die zeitgünstigste 
Lösung. Ganz allgemein läßt sich 
sagen, daß Makros zu längeren, aber 
schnelleren Programmen führen, wäh- 
rend Unterprogramm-Aufrufe kürzere 
und langsamere Programme bewirken. 
Es gilt, stets einen Kompromiß zwi- 
schen beiden Extremen zu finden. 

Geben Sie bei Makrodefinitionen 


Kommentare an, die mit einem Strich- 
punkt eingeleitet werden, setzt der 
Assembler die Kommentare bei allen 
Makroaufrufen mit ein. Das belastet 
natürlich den Speicher sehr: 

; Zeichenausgabe 


AUSGABE MACRO 
MI cC,2 
CALL BDOS 
ENDM 
Sollen Kommentare nur bei der 
Makrodefinition gelistet werden, nicht 
aber bei allen aufgelösten Makros, 
beginnen Sie mit zwei Strichpunkten: 
AUSGABE MACRO ;; Zeichenausgabe 
MVI C,2 
CALL BDOS 
ENDM 
Wenn Sie innerhalb einer Makrodefi- 
nition Sprungmarken verwenden, istes 
Sinnvoll, diese als lokal zu erklären, um 
Überschneidungen zu vermeiden. 
Listen Sie diese Labels im Kopf des 
Makros zusammen mit dem Schlüssel- 
wort »LOCAL«. 
AUSGABE MACRO 
LOCAL AUFRUF 
MVI C,2 
AUFRUF CALL BDOS 
ENDM 
Damit Sie wirklich etwas von den 
Makros haben, finden Sie hier eine 
kleine Sammlung Z80-ähnlicher Be- 
fehle: 
LDIR MACRO 
DB OEDH, OBOH 
ENDM 
MACRO 
DB OEDH, OB8H 
ENDM 
MACRO 
DB OEDH,OAOH 
ENDM 
MACRO 
DB OEDH,OA8H 
ENDM 
MACRO 
DB OEDH, O44H 
ENDM 









Diskette für das ASM-File 
Diskette für die HEX-Datei (bei RMAC 
statt dessen »R«) 
Diskette für die LIB-Dateien 
Ausgabe der Makros in die PRN-Datei 
Diskette für die PRN-Datei 
Ausgabe der lokalen Symbole 
Diskette für die SYM-Datei 
Listing von Pass 1 
Zeilen aus der Makrobibliothek 
auflisten 
Makrozeilen nicht auflisten 
Symboltabelle an das Ende der PRN- 
Datei schreiben 
Ausgabe der Symboltabelle unter- 
drücken 
Alle Makrozeilen auflisten 
Auflistung von Makrozeilen 
unterbinden 
Auflistung der lokalen Symbole in 
Makros 
Unterdrückung der Auflistung 

+1 Auflistung der Datei während des 
First-pass 

-1] Unterdrückung der Ausgabe 


| Tabelle. Alle Mac- und RMac- 
| Parameter auf einen Blick 


RETN MACRO 
DB OEDH, 045H 
ENDM 
MACRO 
DB OEDH ,O4DH 
ENDM 
MACRO 
DB OEDH, 067H 
ENDM 
MACRO 
DB OEDH, O6FH 
ENDM 
Sie können diese Makros nun wie die 
hang Z80-Befehle verwenden. 
LDIR 
LDDR 
LDI 
LDD 
NEG 
RETN 
RETI 
RRD 
RLD 
Um beispielsweise einen Speicher- 
block in 8080-Assembler zu kopieren, 
_ müssen Sie folgendes programmieren. 


RETI 


RLD 


LXI D,4000H 
LXI H,8000H 
LXI B,O0300H 
LDIR 


Das ist natürlich etwas ungewöhnlich, 
‚aber es klappt. 
 Siekönnen sich auch eine große Pro- 
- grammbibliothek aus Makros aufbauen, 
zum Beispiel mit einer Reihe verschie- 
dener BDOS- und BIOS-Funktionen. 
Das Schöne an den Makros ist ja, daß 











sie nur dann in den Programmcode ein- 
gebunden werden, wenn sie wirklich 
benötigt werden. So müssen Sie aus 
Ihrer Makrobibliothek nicht mühsam die 
entsprechenden Teile extrahieren. 
Makrobibliotheken sollten Sie mit der 
Extension ».LIB« versehen, zum Bei- 
spiel »Z80.LIB«, »DISKUTIL.LIB« oder 
»MCODE.LIB«. Eingebunden werden 
sie in den Quellcode über den Befehl 
»MACLIB«: 

MACLIB Z80 

MACLIB DISKUTIL 

MACLIB MCODE 

Makros ohne Parameter aufzurufen, 
ist eher umständlich. Denn diese müs- 
sen vorher in Register oder Speicher- 
stellen geladen werden - nicht gerade 
ein Muster an Flexibilität. 

Doch die Makros von MAC und 
RMAC sind so leistungsfähig, daß sie 
auch Parameter verarbeiten. Sie geben 
hinter dem Schlüsselwort »MACRO« 
sogenannte formale Parameter an, 
deren Zahl mit der Anzahl der Parameter 
im Makroaufruf übereinstimmen sollte: 


ZEICHEN MACRO N 
MVI 0,2 
MVI E,N 
CALL BDOS 
ENDM 

HAUPT ZEICHEN 72 
ZEICHEN 65 
ZEICHEN 80 
ZEICHEN 80 
ZEICHEN 89 
JMP 0 


Es handelt sich bei Makros um ein- 
faches Einsetzen von Zeichenketten. 
Also können Sie statt der Zahlen auch 
Einzelbuchstaben in Apostrophen ein- 


geben: 

ZEICHEN MACRO N 
MVI 042 
MVI E,N 
CALL BDOS 
ENDM 

HAUPT ZEICHEN 'H' 
ZEICHEN 'A! 
ZEICHEN 'P! 
ZEICHEN 'P! 
ZEICHEN 3 
JMP 0 


Auf diese Art können Sie dem Makro 
eine größere Anzahl von Parametern 
übermitteln. Trennen Sie diese durch 
Kommata ab: 

ZPRINT 'A','B',23, 'TEXT',CR,LF+3 

RMAC besitzt einige zusätzliche 
Direktiven, die zur Unterstützung der 
modularen Programmentwicklung die- 
nen. ASEG weist den Assembler an, 
absoluten Programmcode zu erzeu- 
gen, dessen Adresse ORG festlegt: 
<label> ASEG 

CSEG sagt RMAC.COM, den »Code 
Location Counter« zu verwenden. Die 








Speicheradressen werden dann erst 
vom Programmbinder LINK-80 FA 
(LINK.COM) bestimmt: a; 
<label> CSEG k 
DSEG teilt dem Assembler mit, den 
»Data Location Counter« zu benutzen. 
Die absoluten Speicheradressen legt 
dann der Linker fest: 
<label> DSEG zu 
PUBLIC erklärt ein Label als »allge- 
mein«. Ein solches Label erscheint m 
REL-Code und ist von anderen 
Programm-Modulen über EXTRN zu 
bestimmen: en 
PUBLIC label 
Zum Beispiel: PUBLIC UPCASE, 
LOCASE 
EXTRN definiert eine Sprungmarke in 
der Art, daß der Linker sie aus einem 
anderen Programm-Modul heraus- 
sucht. Dies geschieht nur mit PUBLIC- 
Labels. So steht beispielsweise n 
CODE1.ASM: 4 
START MVI 
RET Be 
PUBLIC START r 
END er 
Und in CODE2.ASM: E 
EXTRN START u 
JMP START | 
Die beiden Dateien werden von 
RMAC getrennt assembliert: E- 
A>RMAC CODE1 ; 
A>RMAC CODE2 TR 
Erst der Linker verbindet sie: 87: 
A>LINK CODE1,CODE2 a 
Der Aufruf erfolgt dann als 
CODE1.COM: Br 
A>CODE1 Be 
Bei der Programmdokumentation | 
besonders wertvoll ist ein detailliertes 
undübersichtlichesListing. X(REF COM 
kann da helfen. Es produziert aus dan 
vonMACundRMAC erzeugtenDateien 
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».PRN« und ».SYM« eine neue mit der 
Extension ».XRF«: Be 
A>MAC CLS - 
A>XREF CLS j 






In der XRF-Datei finden Sie ein Listing Be. 
des Programms, versehen mit Zelen- 
nummern. Am Ende stehen dann ale 
verwendeten Labels und Symbole mit 
ihrem Wert, der Zeile, indersiedefiniertt 
sind, und allen Zeilen, in denensieauf- 
gerufen werden: En 














BDOS 0005 1# 1 
CLS D10E 9 13# 
OUTPUT 0009 4# 8 
TPA 0100 3# 7 
WARM 0000 2# 11 






Das Doppelkreuz bezeichnet de 
Zeile der Definition. Be 
Um die Ausgabe von der Disketteauf 
den Drucker umzulenken, können Sie 
den $P-Schalter angeben: 7 
A>XREF CLS $P ti 
Hier schließen wir unsere Beschrei- 
bung der Assembler und Linkerab. 
(Martin KotuMeeiE 
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Wenn Sie bereits unter CPI/M 2.2 
programmiert haben, wird Ihnen 
der Systemdebugger DDT be- 
kannt sein. Er erfuhr in der CP/M- 
Version 3.0 oder auch CPI/M Plus 
weitere Verbesserungen und 
heißt nun SID.COM. 


f ID steht für »Symbolic Instruction 
Debugger«e. Das stellt auch 
=» schon seine bedeutendste Ei- 
genschaft heraus: Er kann mit Symbo- 
len arbeiten. Doch zuerst zu den »nor- 
malen« Fähigkeiten. Gestartet wird SID 
durch Eingabe der drei Buchstaben 
»SID«, wahlweise mit einem angehäng- 
ten Dateinamen. 

Die Befehle setzen sich stets aus 
einem oder zwei Buchstaben zusam- 
men. Ihnen können verschiedene Zah- 
lenwerte folgen. Zu den normalen Zah- 
len - also solche ohne spezielles Kenn- 
zeichen - zählen bei SID.COM hexade- 
zimale Werte, zum Beispiel 40, 4F, 
SFAC oder FF3E hex. Im Gegensatz zu 
MAC und RMAC verlangt SID bei nicht 
vierstelligen Zahlen keine führenden 
Nullen. Dezimale Zahlen sind ausdrück- 
lich mit einem Doppelkreuz zu kenn- 
zeichnen, etwa #30, #40 oder 
#255. Sogar Zeichensymbole und 
Buchstaben können Sie direkt ange- 
ben, sofern Sie diese mit Apostrophen 
umgeben: 'A, 'BC/, '* =‘, "”. Auch Anfüh- 
rungszeichen in Zeichenketten bleiben 
somit erhalten ('""). 

Die Befehle des SID sind nicht kompli- 
ziert, aber sehr vielseitig. 

»A« startet den eingebauten Zeilen- 
assembler. Dieser versteht alle 
8080-Mnemonics. Direktiven oder 
Makros verarbeitet er nicht. Für kleine 
Codierungsaufgaben und zum Abän- 
dern kurzer Programmteile eignet er 
sich aber ohne weiteres. 

Um beispielsweise ein Programm an 
der Adresse 0100 hex einzugeben, tip- 
pen Sie: 

# A0100 

0100 MVI C,9 
0102 IXI D,0300 
0105 CALL5 

0108 RST 6 

0109 » 

Durch Eingabe eines Punktes - oder 
einer Leerzeile - gelangen Sie ins 
Hauptprogramm zurück. Den Restart 6 
belegt SID in der Weise, daß Sie im 





SID —- der 
freundliche Helfer 


Hauptprogramm weiter arbeiten kön- 
nen. In diesem kleinen Programm hätte 
RET dieselbe Bedeutung. Ist das aufge- 
rufene Programm aber ein Unterpro- 
gramm, führt Sie RET nur an dessen 
übergeordnete Aufrufstelle, nicht aber 
in SID zurück. 

Eine Form des Assembleraufrufs 
erfordert keine Adreßangabe. Der 
Assembler benutzt dann die zuletzt bei 
Trace, Auflistung von Speicheraus- 
zügen oder Assemblereingaben ver- 
wendete Adresse. Haben Sie danach 
noch keine weiteren Befehle eingege- 
ben, fährt der Assembler in unserem 


Beispiel bei 0109 hex fort: 
#A 

0109 JMP 0 

0196: . 

Sollte einmal der Speicherplatz 


knapp werden, können Sie den Assem- 
bler und Disassembler aus dem Monitor 
»herauswerfen«. Dazu stellen Sie dem 
»A« ein Minuszeichen voran: 

#-1 

# A0100 

7 

»C« ruft ein Unterprogramm an einer 
angegebene Adresse auf. 

Wollen Sie das BC-Register mit 
einem bestimmten Wert versehen, hän- 
gen Sie ihn - durch ein Komma abge- 
trennt - an den C-Befehl an: 
#C0100,3FAC 

Und auch das DE-Register kann mit 
einem 16-Bit-Wert geladen werden: 
#C0100,3FAC,DEDE 

»D« steht für »Dump« oder auch »Dis- 
play Memory«. Der D-Befehl listet Spei- 
cherinhalte hexadezimal und als ASCII- 
Zeichen auf. Sie können ihn ohne Para- 
meter verwenden; dann gibt er die auf 
die zuletzt verwendete Adresse folgen- 
den 192 Byte aus. Entweder mit Start 
oder mit Start- und Endadresse gren- 
zen Sie Speicherbereiche, die aufzu- 
listen sind, ein: 

#DO0300 

#D#4096 

# DFF23,FFFF 
#D'AB'! ,34+#0200 

Sogar einfache Berechnungen, wie 
Addition und Subtraktion, sind bei 
Adressen mit SIDCOM zulässig. 

Gefällt Ihnen die »Zerstückelung« in 
einzelne Bytes nicht, können Sie 


SID.COM anweisen, 16-Bit-Adreßworte 
auszugeben. Dazu hängen Sie an das 
»D« für »Display Memory« ein »We« für 











»Words« an. Alle Optionen bleiben 
erhalten: 

# DW 

# DWO300 

#DWO400, !"AA'+ #24 

Im Wortformat vertauscht SID 8080- 
und Z80-gemäß das Low- und High- 
byte. Steht im »Byteformat» der Code 
»03 CA« im Speicher, ändert er sich bei 
Words in »CAO&«. 

»F« füllt einen Speicherbereich mit 
einem speziellen Wert. Dieses Kom- 
mando verlangt stets drei Parameter: 
die Start- und die Endadresse und das 
einzusetzende Byte. Um in den Spei- 
cher von 1000 bis 3000 hex den Wert 
255 schreiben, geben Sie diesen Auf- 
trag an SID: 

#F1000,3000, #255 

Aber Vorsicht bei der Anwendung 
des F-Befehls, denn allzuleicht ist das 
zu untersuchende Programm oder 
SID.COM selbst überschrieben! Dann 
müssen Sie CP/M neu starten, und die 
ganze Arbeit beginnt wieder von vorne. 

»G« (Go) ruft eine Maschinencode- 
Routine an der gegebenen Adresse 
auf. Zum Beispiel können Sie das vorhin 
von Ihnen eingetippte Maschinencode- 
Programm auch mit »G« aufrufen: 

# GO100 

Der Monitor meldet sich mit der letz- 
ten ausgeführten Adresse zurück: 
*0108 


Sie können beim G-Befehleinenoder 


zwei Breakpoints angeben. Dort stoppt 
die Programmausführung und der Com- 
puter gibt die Kontrolle an den Monitor ° 
zurück. 

Wollen Sie zum Beispiel nur die 
Befehle an den Adressen 0100 bis 
0105 hex ausführen. Tippen Sie ein: 
# G0100,0105 

Achten Sie aber darauf, daß an 
der Stoppadresse ein ausführbarer 
Maschinencode-Befehl steht. An der 
Adresse 0105 hex finden Sie CD, den 
Code für CALL nnnn. Geben Sie hinge- 
gen 0106 hex als Breakpoint an, steigt 
der Computer aus oder stoppt erst viel 
später, weil an 0106 hex der Befehl ja 
nicht beginnt. 

Mit »H« (Hexadecimal Arithmetics) 
können Sie einfache Berechnungen 
durchführen lassen. Sie legen einen 
oder zwei Operanden fest, und der 
Computer addiert und subtrahiert 
beide: 

#H9,6 











000F 0003 
Da aber statt der Operanden auch 

Formeln zugelassen sind, ist die fol- 

gende Darstellungsform besser zu 

gebrauchen: 

# H9+6-3241+34-96 

CD&C #52588 

Auch zur Umrechnung zwischen den 
Zahlensystemen kann man »H« aufru- 
fen: 

#H34 

0034 #52 '4'! 
#H'A' 

0041 #65 'A' 
#H#88 

0058 #88 'X' 

Mit der »I«-Anweisung (Simulate Input 
Line) können Sie dem getesteten 
CP/M-Programm eine Befehlszeile vor- 
geben. Eine normale Befehlszeile für 
MAC.COM sieht beispielsweise so aus: 
A>MAC RIB $AB HZ PX 

Wenn Sie nun MAC von SID aus star- 
ten, müssen Sie dem Programm irgend- 
wie »vormachen«, Sie hätten diese 
Parameter eingegeben. Dazu dient »I«: 
#1 RIB $AB HZ PX 

Der normale CCP-Kommandopuffer 
liegt zwischen 0080 und OOFF hex. Mit 
»D« können Sie sich nach dem I-Befehl 
den Pufferspeicher ansehen: 
#D0080,00FF 

Eine weitere Verwendung findet das 
I-‚Kommando beim R-Befehl, der 
Dateien in den Speicher einliest. 

»L« ruft den integrierten Disassem- 
bler auf. Er listet der Reihe nach die 
8080-Mnemonics an den gegebenen 
Speicheradressen: 

# L0100,0108 

0100 MVI C,09 

0102 LXI D,0300 

0105 CALL 0005 

0108 RST 06 

0109 

Befehle wie »EX AF,AF’«, die nicht zu 
den 8080-Mnemonics gehören, zeigt 
‚der Disassembler als »??= O8«. 

Mit »M« kopieren Sie Speicherblöcke. 
Dazu nennen Sie dem Debugger die 
erste Quelladresse, die letzte Quell- 
adresse und die Zieladresse. Wollen 
Sie den Speicherinhalt der Adressen 
0100 bis OAOO hex nach 1100 bis 
1A0O0 hex kopieren, schreiben Sie: 
#MO0100,0A00,1100 

Diese Monitorroutine von SID ist so 
konzipiert, daß auch sich überlappende 
Speicherbereiche korrekt übertragen 
_ werden. 

Der »P«-Befehl setzt den sogenann- 
ten »Pass Counter«. Dieser zählt bei 
Programmen, die im Einzelschrittmo- 
‚dus abgearbeitet werden, wie häufig 
ein Programmpunkt aufgerufen wird. 
Dazu wird ein Zähler von 255 bis 1 her- 
‚unterzählt. Sobald der Wert 1 erreicht 
ist, verwandelt sich der Passpoint in 
einen echten Breakpoint. 
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#PO140 setzt einen Passpoint an 
die Adresse 0140 hex. Der Zähler ist 1. 
#P0140,34 legt auf die Adresse 0140 
hex einen Passpoint mit dem Zählerwert 
34 hex. #P/listet alle verwendeten Pas- 
spoints zusammen mit dem jeweiligen 
Zähler auf. #-PO0140 entfernt den Pas- 
spoint von der Adresse 0140 hex wie- 
der. 

#-P löscht alle Passpoints. 

Der »R«-Befehl (Read File) dient 
dazu, eine mit »l« angewählte Datei in 
den Speicher einzulesen. 

#R liest die Datei direkt in den Spei- 
cher. 

#R0100 bestimmt einen Versatz von 
0100 hex Bytes. 

»5« (Set Memory) zeigt den Inhalt von 
Speicherstellen an und gibt Ihnen Gele- 
genheit, diesen abzuändern: 

# 50100 
0100 01 FF 
0101 03 'A' 
0102 02 #255 
0103 02 . 
Hier geben Sie FF, A, #255 und den 


Punkt an. Die übrigen Texte sind 
Systemmeldungen. 
Eine Erweiterung erfährt »Set 


Memory« durch die Wort-Option. »SW« 
ändert 16-Bit-Werte ab: 

# SW0200 

0200 3454 FFFF 

0202 4331 # 32767 

0204 3212 'AL!' 

0206 6431 . 

FFFFR #32767, 'AL und der Punkt 
stammen in diesem Dialog vom Benut- 
zer. 

Eine Bearbeitung von Maschinen- 
code-Programmen in Einzelschritten 
ermöglicht »T« - die Trace-Option. 

Wenn Sie »T20« eingeben, arbeitet 
der Computer 20 hex (32) Programm- 
schritte ab. Sie sehen dann, wie gleich- 
zeitig Texte ausgegeben werden und 
das Maschinencode-Programm ab- 
läuft. Die »Registerleiste« zeigt den 
Inhalt der CPU-Register, den Wert des 
Programmzählers und den Maschinen- 
code an der aktuellen Adresse. Sind 
Bits im Flag-Register gesetzt, erschei- 
nen die Namen der Flag-Bits statt der 
Bindestriche, zum Beispiel CZ-I. Es 
gelten folgende Abkürzungen: 

C - Carry-Flag 

Z - Zero-Flag 

M- Minus-Flag 

E - Even-Parity-Flag 
| = Interdigit-Flag 

»I« ohne Parameter arbeitet einen 
Programmschritt ab und übergibt dann 
die Kontrolle wieder an den Debugger. 
»In« führt »n« Maschinencode-Befehle 
aus und ruft danach SID.COM auf. 

Eine Spezialform des Tracings stellt 
»I W« dar, der »Trace without Call«. In die- 
sem Modus, in dem Sie beide T- 
Optionen anwenden können, wird nur 


programme ruft der Computer normal 
auf, zeigt sie aber nicht an. So ist der 
Programmfluß besser zu verfolgen (Bild 
2% 
# TW4 
-—---- A=00 B=0000 D=0000 H= 
0000 5=0100 P=0100 MVI C,09 
----- A=00 B=0000 D=0000 Hs 
0000 5=0100 P=0102 LXI D,0300 
-—---- A=00 B=0009 D=-0300 H= 
0000 5=0100 P=0105 CALL 0005 
-Z--- A=00 B=0009 D=0300 H= 
0000 5=0100 P=0108 RST 06 

»U« (Untrace) arbeitet ähnlich dem 
Trace-Befehl. Im U-Modus wird aber die 
Registerleiste nur beim letzten Befehl 
angezeigt. So zerstört diese Form des 
Tracings nicht den Bildschirmaufbau. 
Erlaubt ist »U« (Ausführung eines 
Befehls), 
Befehlen), »UW« (ein Befehl, aber kein 


Tracing von Unterprogrammen) und 


»UWn« (n Befehle werden ausgeführt, 


Unterprogramme bleiben aber ausge- 


klammert). 

»X« haben Sie bereits verwendet. Es 
dient der Anzeige der Registerleiste 
sowie zur Änderung von Registerinhal- 
ten: 

#X zeigt die Registerinhalte und den 
gerade ausgeführten Maschinencode- 
Befehl an. #XA erlaubt, den Inhalt des 
Z80-Akkumulators abzuändern. Für die 
übrigen Register 
Befehlsaufrufe: 
#XB - BC-Register 
#XD - DE-Register 
#XH - HL-Register 
#XS - SP-Register 
#XP - Programmzähler 

Auch die einzelnen Flag-Bits kann 
man direkt auslesen und setzen bezie- 
hungsweise löschen: 

#XC - Carry-Flag 

#XZ - Zero-Flag 

#XM - Minus-Flag 
#XE - Even-Parity-Flag 
#Xl - Interdigit-Flag 

RMAC und MAC produzieren nicht 
nur HEX- und REL-Dateien, sondern 
auch SYM-Symboltabellen. Sie können 
diese zusammen mit dem Objektcode- 
Programm in SID laden, was die Arbeit 
sehr vereinfacht. 

Die Meldung »SYMBOLS« sagt aus, 
daß SID.COM die Symboltabelle korrekt 


geladen hat und nun mit ihr arbeiten 


kann. »NEXT« ist die erste freie Spei- 
cheradresse. Demnach ist der Bereich 
zwischen 0100 und 0180 hex belegt. 
PC zeigt den aktuellen Stand des Pro- 
grammzählers. END gibt die obere Spei- 
chergrenze an. 

Der Debugger wartet nun auf Ihre Ein- 
gaben. Beginnen Sie damit, ihn die voll- 
ständige Symboltabelle auflisten zu las- 
sen. Tippen Sie dazu einfach den H- 
Befehl ohne Parameter ein: 


das Hauptprogramm ges»tracest. Unter- 


»Un« (Ausführung von n 


gelten folgende 
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#H 
0005 BDOS 
010E CLS 
0009 OUTPUT 
0100 TPA 
0000 WARM 
Überall wo Sie bisher nur hexadezi- 
male oder dezimale Konstanten ange- 
geben haben, »versteht« SID.COM jetzt 
auch Symbole. Machen wir die Probe 
aufs Exempel: Ab dem Label CLS wurde 
in CLS.COM der String abgelegt, der 
unter CP/M Plus den Bildschirm löscht. 
Er ist vier Byte lang, nämlich 
ESC/E/ESCI/H. »Display Memory« gibt 
ihn aus: 
#D.CLS,.CLS+4 
O10E: 1B 45 1B 48 24 .E.H$ 
Um den Wert eines Symbols zu erhal- 
ten, stellen Sie ihm also einen Punkt 
voran. Weitere Beispiele für die Benut- 
zung der Symbole: 
#A.TPA 
#XP 
P=?7?? .TPA 
#D.BDOS 
Der Disassembler fügt automatisch 
die Symbole an den richtigen Stellen in 
den mnemonischen Code ein: 
#L0100,010D 
TPA: 
0100 LXI 5P,0100 .TPA 


0103 MVI C,09 

0105 LXI D,010E ‚GLS 
0108 CALL 0005 BDOS 
010B JMP 0000 WARM 
GLS: 

O10E 


So werden auch Disassembler-Li- 
stings gut lesbar. 

Falls Sie die Labels allerdings beim 
Disassemblieren stören, setzen Sie ein- 
fach vor »L« ein Minuszeichen. Der 
Disassembler unterdrückt dann die 
Symbole. 

Neben der »Punkt-Einleitung« (».TPA«, 
».BDOS«) versteht SID. COM noch AT (), 
den Klammeraffen, sowie das Gleich- 
heitszeichen »=«. 

Das AT-Sign repräsentiert den 16-Bit- 
Wert, der an der Adresse des Symbols 
steht. Entspricht TPA dem Wert 0100 
hex und steht in 0100 hex die Zahl 3F 
hex sowie in 0101 hex der Wert 46 hex, 
so erhalten Sie mit @TPA eben 463F 
hex. »=» macht das gleiche für 
Acht-Bit-Zahlen: 

#H=TPA 
003F #63 '?' 

SID. COM besitzt keinen Befehl, der 
das Speichern von Daten aus dem 
Debugger heraus erlaubt. Dazu hielt 
CP/M 2.2 den residenten Befehl SAVE 
bereit, der in CP/M Plus fehlt. Ihn 





ersetzt jetzt auf der Systemdiskette die 
Datei SAVE.COM. Und so arbeiten Sie 


damit: Sie starten SAVE vor dem 
Debugger-Lauf durch Eingabe des 
Dateinamens ohne Parameter: 
A>SAVE 
Jetzt können Sie SID aktivieren: 
A>SID MAC.COM 

In der Titelzeile gibt SID unter »NEXT« 
die Programmlänge an. Das Lowbyte 
der Zahl ist immer Null. Merken Sie sich 
diese hexadezimale Zahl. Sie können 
jetzt am geladenen Programm die 
gewünschten Änderungen durchfüh- 
ren. Wenn Sie damit fertig sind, drücken 
Sie CTRL-C, worauf SAVE.COM sich 
automatisch reaktiviert: 
CP/M 3 SAVE - Version 3.0 
Enter file (type RETURN to exit): 
MAC2.COM 

Hier will SAVE also den Dateinamen 
des zu speichernden Files wissen. Um 
SAVE.COM zu verlassen, drücken Sie 
nur RETURN oder ENTER. 
Beginning hex address: 0100 
Ending hex address: 2F00O 

Das sind die beiden Adreßangaben, 
die den Anfang und das Ende der Datei 
angeben. Das Sichern sollte vor jedem 
Programmstart geschehen, denn man 
weiß ja nie... 

(Martin Kotulla/Udo Reetz) 





Deutsche Sprache, 
schwere Sprache 


Deutsche Sonderzeichen unter CP/M auf allen drei 
Schneider-Computern bietet »Deutscher Zeichen- 
satz«. Die Vortex-Speichererweiterung darf dabei 
eingebaut bleiben und auch CP/M Plus ist erlaubt. 





| CPC 464 oder den 664 sind schon lange ein »alter 
| Hute«. Anders ist dies unter CP/M Plus auf dem 6128 
oder nach Einbau einer Speicherkarte von Vortex. Denn in 
solch einem Fall ändern sich die Speicheradressen und die 
meisten vorgestellten Routinen arbeiten dann ıinkorrekt. 
»Deutscher Zeichensatz« ist ein universelles Programm für 
alle Schneider-Computer und fast für jede Ausbaustufe 
geeignet. 

Deutsche Sonderzeichen mit Locomotiv-Basic zu definie- 
ren, ist sehr einfach. Der Befehl »SYMBOL AFTER 64« berei- 
tet den Computer auf die Definition der Sonderzeichen vor. 
Dazu werden die Bitmustertabellen, die für das Aussehen der 
Zeichen zuständig sind, ins RAM kopiert. Mit SYMBOL 
AFTER 64 beschränken wir uns dabei auf die nur notwendi- 
gen Zeichen mit den Nummern 64 bis 255. Die Zeichensatz- 
tabelle belegt dann 1,5 KByte Speicherplatz. Unter CP/M 2.2 
gibt es intern eine Entsprechung des SYMBOL AFTER- 
Befehls. Diese Routine eignet sich aber nicht für unseren 
Zweck, denn in der TPA steht nirgends genügend Speicher- 


D::: Sonderzeichen unter CP/M 2.2 für den 





platz zur Verfügung. Das heißt, nirgendwo ist ein so großes 
Stück unbelegter und vor Überschreiben geschützter RAM- 
Bereich vorhanden. »Deutscher Zeichensatz« arbeitet des- 
halb mit einem Trick. Immer, wenn das Betriebssystem ein 
anderes Zeichen als ein Steuerzeichen auf dem Bildschirm 
ausgeben will, wird die Routine »T’XT WRITE CHAR« an der 
Adresse BDD3 hex aufgerufen. An dieser Adresse steht ein 
Sprungvektor zur eigentlichen Zeichenausgaberoutine. Da 
dieser Befehl im RAM des Computers steht, kann durch eine 
Änderung eine »Umleitung« eingeschoben werden. Bevor 
die eigentliche Zeichenausgaberoutine aufgerufen wird, läuft 
somit immer ein Vorprogramm ab. 

Dieses Vorprogramm testet, ob ein deutscher Umlaut aus- 
gegeben werden soll. Wenn ja, wird die interne Nummer des 
Umlautes in einen Wert zwischen 247 und 255 umgerech- 
net. Danach arbeitet das Programm die ursprüngliche Aus- 
gäberoutine ab. Durch diesen Trick braucht die Zeichensatz- 
tabelle im RAM nur noch die Zeichen mit den Nummern 247 
bis 255 umfassen. Statt 1,5 KByte belegt es nur noch 72 
Byte. Von der »Benutzeroberfläche« aus betrachtet (also 
wenn Sie eine Taste drücken), besitzen die deutschen 
Umlaute aber immer noch die ursprünglichen Standardnum- 
mern. 

Unter CP/M 2.2 ist auf allen drei Schneider-Computern der 
Speicherbereich von BEBF bis BFFF hex dem BIOS- 
Maschinenstapel vorbehalten. Tatsächlich werden aber nur 
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eine Handvoll Bytes am Ende dieses Bereiches benutzt. Der 
Rest am Anfang des Stapels ist groß genug, um die Zeichen- 
satztabelle samt »Ausgabeumleitung« aufzunehmen. Experi- 
mente mit dem Disketten-Controller von Vortex zeigen aber, 
daß - anders als bei dem Controller von Schneider - einige 
zusätzliche Bytes hinter der Adresse BEBE hex notwendig 
sind. Damit unsere Routine in allen Ausbaustufen funktio- 
niert, beginnt sie deshalb erst nach einem gewissen Sicher- 
heitsabstand. Das Programm »DEUTSCH.COM« (die CP/M- 
Routine) besteht aus zwei Teilen. In dem Teil ab BEC8 hex 
steht die eigentliche Zeichenausgaberoutine. Der andere 
regelt die Interpretation, ob der Zeichensatz ein- oder ausge- 
schaltet werden soll, das Übertragen der neuen Ausgaberou- 
tine in den Zielbereich und das korrekte Einbinden ins 
Betriebssystem. Beim Einbinden werden die versionsabhän- 
gigen Adressen angepaßt, so daß das Programm auf allen 
drei Schneider-Computern läuft. Allein die Konstante »base« 
legt fest, welche Adresse die Ausgaberoutine endgültig auf- 
nimmt. Wenn Sie den Bereich ab BEBF hex schon anderwei- 
tig vergeben haben, können Sie damit die Routine verschie- 
ben, beispielsweise in den Sound- oder Kassettenheader- 
Puffer. 

Mit einer Vortex-Speichererweiterung ist der passende 
RAM-Bereich schwerer zu bestimmen. Die neue Zeichen- 
ausgaberoutine wird nämlich nur beachtet, wenn sie im 
System-RAM des Computers steht. Normalerweise ist in die- 
ser Ausbaustufe unter CP/M-Modus im Bereich von 8000bis 
FFFF hex nur das Erweiterungs-RAM sichtbar. Vor der Über- 
tragung der Ausgaberoutine muß also das Erweiterungs- 
RAM abgeschaltet und hinterher wieder eingeschaltet wer- 
den. Das gelingt ganz einfach mit dem Maschinencode »OUT 
(c),c«. Die »OUT«-Befehle sind so eingesetzt, daß es nichts 
schadet, wenn keine Erweiterung eingebaut oder diese nicht 
aktiviert ist. Eine spezielle Abfrage auf eine Erweiterung fällt 
also weg. Auch beim CPC 6128, der serienmäßig 128 KByte 
RAM besitzt, haben die »OUT«-Befehle keine negativen Aus- 
wirkungen. 

Damit ein Interrupt »nicht ins Leere« geht, benötigt man 
eine ganz bestimmte ROM/RAM-Konfiguration. Um Schwie- 
rigkeiten zu vermeiden, sind diese, solange das Erweite- 
rungs-RAM abgeschaltet ist, gesperrt. Diese kurze Sperrzeit 
der Tastaturabfrage fällt nicht auf, da die Initialisierung der 
neuen Zeichenausgaberoutine nur eine halbe Millisekunde 
dauert. 


»DEUTSCH.COM« 
ohne Probleme 





Wenn Sie sich in der Maschinensprache des Z80 ausken- 
nen, benutzen Sie sicher das Assemblerlisting (Listing 1) zur 
Eingabe. Die Zeilennummern dienen nur der Übersicht und 
können weggelassen werden. 

Haben Sie im Umgang mit Assembler keine Erfahrung, 
dann geben Sie den Basic-Lader aus Listing 2 ein und spei- 
chern ihn auf einer Diskette. Wenn Sie das Programm mit 
»RUN« starten, wird die Datei »DEUTSCH.COM« auf der Dis- 
kette angelegt. Bei der Meldung »Alles O.K.« steht das 
eigentliche Zeichensatz-Programm dann korrekt auf der Dis- 
kette. Unter CP/M schaltet »A>DEUTSCH EIN« und 
»A>DEUTSCH AUS« den deutschen Zeichensatz ein und 
aus. Das Programm aus Listing 1 brauchen Sie jetzt nicht 
mehr. Aber bewahren Sie es für den Fall, daß Sie beim Eintip- 
pen einen Fehler gemacht haben, sicherheitshalber noch 
auf. Wenn schon beim ersten Lauf des Programms die Mel- 
dung »Tippfehler in Zeile x« auftritt, müssen Sie diese Zeile 
ausbessern. Auch wenn das Basic-Programm mit einer Feh- 
lermeldung abbricht, befindet sich eine Datei mit dem Namen 
»DEUTSCH.COM« auf der Diskette. Diese ist aber nicht ein- 
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satzfähig, also löschen. Beachten Sie, daß das Basic- 

Programm nicht alle Eingabefehler entdeckt. Zu diesen Feh- 

lern zählen, wenn: 

- in einer Zeile zwei benachbarte Zahlen ausgetauscht 
werden (merkt nur Explora) 

- eine ganze Zeile vergessen wurde 

- zwei aufeinanderfolgende Zeilen vertauscht wurden. 


Die Anordnung der Buchstaben auf der Tastatur und das 


Abbild der Buchstaben auf dem Bildschirm ist völlig unabhän- 
gig voneinander. Das Zeichensatzprogramm verändert zwar 
das Aussehen der Zeichen »@[\][1] « in »sAÖOUäöü«, deren 
Anordnung auf der Tastatur wird aber nicht beeinflußt. Das 
»ß« erreichen Sie auf der normalen ASCili-Tastatur mit 
»CTRL-2«, das »ä« mit »SHIFT-[«, das »ü« mit »SHIFT-]« und 
das »ö« mit »@«. Die großen Buchstaben der deutschen 
Umlaute liegen jeweils in der anderen Ebene der entspre- 
chenden Tasten. Zum Anlegen der deutschen DIN-Tastatur 
müssen Sie also zusätzlich das Programm »SETUPCOM« 
(auf der Schneider-Systemdiskette) 
»INSTALL.COM« (bei Vortex) bemühen. 

Einen Vorschlag für eine Tastenanordnung, die der DIN- 
Tastatur entspricht, zeigt die Tabelle. Für jede zu ändernde 


Taste ist die Tastennummer dezimal und hexadezimal und die 


Belegung dezimal, hexadezimal und im Zeichen gegeben. So 
können Sie sich die für Ihre System-Routine notwendigen 
Angaben leicht heraussuchen. Tasten, die nicht geändert 
werden müssen, sind in dieser Tabelle nicht vermerkt. 

Unbelegte Tasten haben übrigens nicht den Code 0, son- 
dern 255. Tasten, die einen Wert zwischen 128 und 159 auf- 
weisen, werden als Funktionstasten interpretiert. So können 
die Funktionstasten auch auf andere Tasten als den Zehner- 
block der Tastatur gelegt werden. Die CLR-Taste besitzt bei 
uns den Code für »CTRL-H« (Backstep). Unter CP/M können 
Sie dann diese Taste zum Löschen benutzen. Die DEL-Taste 
unterstützt nämlich nicht alle Programme. Die ESC-Taste 
wurde mit dem Code für den Standard-ESC versehen. Nur 
auf der Taste CTRL-ESC bleibt der ursprüngliche - nicht stan- 
dardgemäße - Wert erhalten. So lassen sich auch Pro- 
gramme bedienen, die speziell für die Schneider-Computer 
entwickelt wurden. 

Die deutschen Sonderzeichen werden beim Lesen vom 
Bildschirm und bei der Ausgabe in der Entsprechung des 
Basic-Zeichenausgabemodus »TAG« nicht erkannt. Unter 
CP/M kommen diese Routinen aber so gut wie nie zur ÄAnwen- 
dung, so daß dies keine Einschränkung darstellt. 

(Helmut Tischer/hg) 


Tasten- 


nummer Belegung 


Taste und CTAL 
Dez Zeichen Hex Dez Zeichen Hex Dez Zeichen 
08 8 "HIBS) 8 "HiBS) 08 8 “HIBS) 
2B 43 + 42 ; FF 255 (frei) 
23 35 # 39 - FF (frei) 
3C 60 < 62 > FF (frei) 
(RS) 
’ (unverändert) 
93 1D 29 "1GS) 
7B 123 91 iB 27 +"IlESC) 
7C 124 92 iC 28 N"iFS) 
2D 45 - 95 IF 31 "_{uUS) 
(unverändert) 58 : (unverändert) 
(unverändert) 81 FF 255 (frei) 
(unverändert) 59 (unverändert) 
(unverändert) 47 (unverändert) 
TA 172 zZ 90 " 1A 26 "Z(SUB) 
(unverändert) Ä 64 00 0 "@(NUL) 
(unverändert) (unverändert) FF 255 (frei) 
1B 27 TESC)h 18 27 7"IIESC) (unverändert) 
ı 7 78 17 Y 59 589 Y 198 25 "YIEM) | 


Taste und SHIFT 


Taste normal 


Hex Dez Hex 


255 
255 


5E 94 ’ 96 1E 30 
TE 126 SF ? 
| 
| 


7D 125 





Tabelle. So legen Sie Ihre DIN-Tastatur an 
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Deutscher Zeichensatz unter CP/M 2.2 für Schneider-Computer 


en 
f1g454 
mtabl4 
mtabl& 


en 
txtwrt 
oldstk 


equ 
equ 
equ 


@0B294h 
8B734h 


equ 
equ 


GOBDDSh 
1200h 


Computertypabhängige Adressen 
4Ah 


Lo-Byte Bildschirmausgabe 464 
Zeiger auf Usermatri»flags 464 
sUsermatrixflags 6647/6128 


Adressen sowohl für CPC454 als auch CPCs54 


; TXT WRITE CHAR 
lokaler Stapelbereich 


bdos 
dma 


type 
2 ee 
base 


auaSh 
Basah 
Brh 


er Lag 
BECBh 
BiBGh 


Ersatz wichtiger Z88-Befehle 

equ BBBEDh ; Z88-Befehl 
equ B49EDh : Z80-Befehl 
equ AaDF?h ı ZBB-Befehl 


equ 
equ 
equ 


Endgülti 
equ 
org 


e des Programms bestimmen 
shier unbelegter Speicherplatz 


- Eee 2 2 
ldir 
outcc 
eHH 


"Idir' 

"out {c),c’ 

'erx ' 

’ 

ı###+## Texte und KEIEIERBERERGRE 
entr 
17,13,18, Deutscher Zeichensatz für Schneid'’ 
'er CPC 4654/664/6128 unter CP/M 2.2,',13,18,7 
"mit und ohne Vortex RAM-Erweiterung, ',„13,180,9 
"mit Schneider- oder Vortex-Floppydisc’,15,18 
18, '’tc) 3.03.1985 by Helmut Tischer ’,15,10,9,7 
‘“ Asternstraße 40, D-80852 Moosburg ’„15,1B8,26 
13,18, Ungültige Eingabe: Erlaubt ist nur """ 
"DEUTSCH EIN’ ' und °"’DEUTSCH AuS''°,13,10, '$ 
13,18,‘ 'sAöl”äöüß'" Deutscher Zeichensatz ' 
"inaktiv’,13,10, +’ 
13,10, '' "sASoUTäadsuß” 
"aktiv’,13,18,°$' 


Stapel initialisieren 
h , BRBBH 

sp 

oldstk-2 

sp,oldstk-2 


Deutscher Zeichensatz 


ob einschalten oder ausschschalten 

d,strngi Fehlermeldung: falsche Eingabe 
h,dma ‚Hier steht die Eingabe 

a,m 


4 


1.Byte=Eingabelänge=4 
finis 


; Meldung anzeigen+FProgrammende 
aA,m 
’E' 
ein 
'A' 
finis 


inx 
cpi 
iz 

cpi 
inz 


Text 'EIN'’ erkannt 
Text 'AUS' erkannt 
;Meldung anzeigen+Progr ammende 


3 
;######+ Deutschen Zeichensatz abschalten 
s (Expansions-RAM im Bereich 88G0-FFFF abschalten) 
di ;Interrupts sperren 
db ;Z80-Befehl '’exx' 
mov ;bc' enthält Konfiguration 


exxk 
e,c 
a,c 
OFh 
c,a 
outcc 


sohne Erweiterung wirkungslos 


;Z8@-Befehl 'out (c),c’ 
c,e ;Register c restaurieren 
| exx ; ZBB-Befehl 'exx 
ob Zeichensatz schon ausgeschaltet) 
ilda txtwrt+2 ‘Hi-Adresse von TXT WRITE CHAR 
ani Bcöh ;Zeigt ins ROM oder RAM? 
iz quitof Zeigt schon ins ROM 
ihld | 4+1l+versa a iger Routine 
ER N REN 5 AIR TE u ee 
h 


chensatz-absc 
shld txtwrt+1 ;Zeiger restaurieren 
(Alte RAM- und ROM-Konfiguration wiederherstellen) 
quitof: = 
w 


EeXH :Z8@0-Befehl 'exx' 
db 


ı (Test, 


outcc ;Z88-Befehl "out (c),c' 
exx ;Z88-Befehl ’exx' 

;Interrupts freigeben 
mmende) 

Meldung: inaktiv 

; Textausgabe+Warmstart 


ei 
A re und FProgra 


“1 
| jmp 


’ 

‚###%#%#%* Deutschen Zeichensatz einschalten 

: (Expansions-RAM im Bereich BRAU-FFFF abschalten) 

ein: di ; Interrupts sperren 
;Z88-Befehl 'exx' 

bc’ enthält Konfiguration 


d,strng2 
finis 


eHX 
e,c. 
a,c 
Fh 
c,ä 
outcc 


sohne Erweiterung wirkungslos 


‚Z80-Befehl 'out (c),c' 





































290897 
2aRaF78 
2200979 
2a2120 
222121 

280102 
200103 
200104 
BRB1B5 
2OB10& 
200107 
BE21B28 
200109 
Baa11® 
BaB111 

200112 
202113 
280114 
282115 
BaB11& 
200117 
2@2118 
280119 
DaB120 
2888121 

220122 
200123 
290124 
200125 
200126 
200127 

200128 
280129 

220138 
Da@131 

200132 
200133 

290134 

2a0135 

200134 


280178 
220179 
220190 
222181 
280182 
000183 


280184 


BBB185 
000196 
200187 
220188 
200189 


Listing 1. Das Assembler-Listing für den »Deutschen Zeichensatz« 


e db EXK ;ZBB-Befehl 'exx' 

; (Test, welche Computerversion vorliegt) 
ihld txtwrt+1 ‚Interne Adresse TXT WRITE CHAR 
mOw a,h ;sZeigt ins ROM oder ins RAM? 
ani Och 
jnz quiton ; Zeichensatz bereits aktiv 
mov a,l ;LO-Adresse = Flag 4654/664/5128 
lxi d.,mtab14 :Usermatrixpointer EPC464 
cepi f19464 ;CPC4647? 
jz config 
lxi d,mtablö sUsermatrixpointer CPCö654 


; (Zeichensatzprogramm Konfigurieren) 


Config: shld cromi+i1 ;hl enthält Routinenadresse 
shld cerom2+1 
shld cromS+1 
shld ceromd4+1 
xchg ;de nethält Zeiger auf 
shld maromi+i ;Usermatrixflags 
shld marom2+1 
in h sweitere Flagbytes 
inx h 


shld mbromi+i 
shld mbrom2+1 


; (neuen Betriebssystemvektor eintragen) 
l«i h,base 
shld txtwrt+i 
; (Verschieben des Programms an endgültige Position 
lxi d,base ‚Endgültige Lage 
lxi h,start sjetzige Lage 
lx«i b,ende-start ;Progr amml änge 
dw ldir Z88-Befehl ’LDIR’ 
; (Alte RAM- und ROM-Konfiguration wiederherstellen) 
quiton: db Eexx ;Z880-Befehl '’exx 
dw outcc ; Z88-Befehl "out tc),c' 
Jar EeXXx ;Z8B-Befehl 'exx ' 
;Interrupts freigeben 
ißilBachiteealiiine und Programmende) 
lxi d,strng3 
’ 
;s#####%#+ Programmende, Rücksprung in CCP 
finis: mi c,type ; Textausgabe 
call bdos 
ihld oldstk-2 
sphl 
ret 


F 
HH 
;Hier beginnt der systenresidente Teil des Programm 


; (Umkodieren: deutsche Zeichen in Bereich F7h bis FFh) 
25 


start: cpi 
iz code48+versatz ;Codewandlung 
cpi M 
eromi: ic 5-# ‚später wird Sprung zu 
cpi gr ;TXT WRITE CHAR eingetragen 
je codeSf+tversatz ;Codewandlung 
cpi ä’ 
crom2: jc $—-$ ;keine Änderung 
cpi 7Fh 
crom3: jnc 5-# ;keine Änderung 
code7f: adi BCAh ‚ä6üß—->Codes FCh-FFh 
code40: adi B1Ah ;5->Code F?7h 
codeäf: adi 2B7Dh A450” ->Codes F8öh-FBh 
ı (selbstdefinierte Matrix einschalten) 
push h 
lxi h,örFrfrF?h sUsermatrix ab Zeichen F?h 
maromi: shld 5-$ ‚später wird Adresse eingesetzt 
lxi h,matrix+tversatz 
mbromi: shld ag Adresse der Usermatrix 
pop | 
; (normale Zeichenausgabe) 
crom4: call :-$ ;Lader trägt hier Adresse ein 
;tiZeichenmatrix ausschalten) 
push h 
1xi h , DOGah 
marom2: shld +-$ 
mbrom2: shld 5-$ 
pop h 


ret 


; (Zeichensatztabelle für deutsche Zeichen '6Aöü*äöüß') 


matrix: 


3 

ende: 
Fa 2 2 220 
versatz 


BS3Sch „Bößh „B3ch „Bööh „‚Bööh „B3ch ‚BQöh ,‚BSch 
| Bc&h,®38h ‚Böch, ‚Bcöh, ‚üfeh, ‚Oc6h, Gcöh, ‚aaah 
db Bc&h ,®38h,Böch, Bc&h, @cöh, ‚Qöch, ash, DBGh 


db @c&h ,BB0h ‚Bc&h ‚Bcöh,@cäh,@c&h,@7ch ,@@@h 
db Di@h ‚assh, Böch, Bcöh, BO0h, "a00h. ‚@a0h, adah 
db Böch „BOßh, 278h, Bach ’B7ch,@cch, 87&öh, ‚a00h 
db Böch, gaoh, ‚@35ch,@64h,@&sh, Dash „B3ch „DBOah 
db Böäch, 220h ,@00h, Bcöh,@c&öh,Bcöh, ‚@7eh, "a20h 
db Bich „B3&4h ‚B664h,Böch, BObäh ‚@66h,@cch, aaah 


Versatz jetzige <-> endgültige Lage 
rar base-start 
en 












































































ai 
ze RZ £ 
E} L’ N 


PT m! 
- 
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oc 


"DEUTSCH 


R we | a, ö 

Bas Lader fuer die Datei [8s0A1 
110 ° [DDB2] 
128 OPENDUT" DEUTSCH. COM“ [5D7C] 
158 E[DFBö] 
148 z4=100008 CD404] 
158 READ d$:WHILE d#<>"Ende" [271E] 


150 d#=VAL t"&"+d$) :PRINT#F7 ,CHR$ (di) ; :p%= 
d# [FEFB] 


178 FOR i%=1 TO 7 [&CAA] 
| 188 READ ds: d%=VAL ("&"+d$) LF2FC]I 
| 1998 PRINT#? ,,CHR$ (d%) ; :p#4=p%+d% [65A74] 

208 NEXT [CDBE2]I 

zZ1@ READ qg% CB40A] 

228 IF p%<>q% THEN PRINT"Tippfehler in Z 

eile "z%:CLOSEOUT:END [C48C5] 

230 zi%=z%+1D C2D78] 

248 READ d$:WEND [8AC4]I 

258 CLOSEDUT [EF74A] 

258 PRINT"Alles 0.K." [2F28] 

278 END CAE2B] 

280 ' [acc2] 

10008 DATA C3,84,82,11,8D0D,8A,44,65, 538 L[C872] 

iBn1ıa DATA 75,74,73,63,68,65, 72, 20, 798 L[C884] 

108028 DATA 5A,85,69,63,68,65,6E es, 825 LCFEC&ö] 
| 18058 DATA 51,74, 7a, 20,66, 7D, 72,20, 74B L[B84BE] 
| 12048 DATA 53, 63,68, ’&E, 65, 69, ‚64, ‚65, 883 L[AEA6] 
18058 DATA 72, 20.43, 50,43, 20, 34, 36, 498 C[B34A] 

10040 DATA 34,2F,36,36, 3. 2F „36,31, 487 [3496] 

10078 DATA -32,38, 20, 75, &E, 7A, 65, "72, 696 LCEB9SEI 

1B088 DATA 28,453,580, '2F ‚4D,20, ‚32, 2E„ 431 I[DBBE] 

100978 DATA 32,2C, 2D, aA,„a?, &D,69, 74, 456 L[C7ADE] 
1B1B@a DATA 28, 75,6E, ‚64, ’20, öF,68,4E, 716 [EACH] 
18118 DATA 65, 290,565,6F, 72, 74, 65,78, 781 L[347E] 

18128 DATA 20,52. 41,4D, ‚2D, 45,72 77. #03 C[4CB6] 

18138 DATA 55,69, 74, 65, 72,75,6E,67, 867 LCD8C2] 

182148 DATA 2C.0D.8A,09,60,69,74,20, 438 LF7DB] 

10158 DATA 53,63,68,6E,65,69,64,65, 8853 L[71AA] 

18158 DATA 72,2D,20,4F ,64,65, 72,20, 647 L[Lö4A4] 
18178 DATA 56, öF, 72,78, 65, 78,2D,46, 763 L[7CD®] 
| 18188 DATA &C, BF, 70,70,79, ‚64,69, 735, 884 L[CEDC] 
| 18192 DATA 63, oD, an, an, 28, 63,29 ‚28, 344 LCBE9IEI 

18288 DATA Tr. ZE ‚30,33, ZE,31, ‚39 ‚>38, 404 L[öD7A] 

18218 DATA 3, 20, 62,79, 20, 48, 65,6C, 418 [D484] 

18228 DATA 50D,75,74,28, 54, a 73 Es 777 L[D2A4] 

182358 DATA 58,55, 72, ‚2D,0A,07,09, 20, 392 C[D@972] 

18240 DATA 41,73, ‚74, 55,72,6E, 73,74, 852 [A49C] 

18258 DATA 72, öl, 7E, 65,28, 34, ‚30,2C, 614 [BF8A] 

18260 DATA 20,44, '2D, ‚38, 308,35,32,20, 584 L[D45E] 

18270 DATA 4D,4F,6F, 73, b2, 75,72,67, 846 L[EBF4] 

18288 DATA 8D,BA,i1A ‚oD,aA, 55,6E, ‚67, 378 CAS4FA]I 

18298 DATA 7D, kC, 74,69, 67,65, 20, ‚45, 757 L1iDD8] 

183508 DATA 59, ‚sE, 67,61,62, ‚65, ‚3A, 20, 78a CB85A8] 

18518 DATA a5. 72,6C,&61, 75, 62, 74, ‚2@, 751 L[947E] 

19328 DATA 67,73,74 ‚20.6E, 75,72, ‚2@, 741 L[LB568] 

18338 DATA 27.44.45,55,54,53,43,48, 567 


C9D76] schnell eingegeben 


DATA 29,45,49,4E,27,28,75,6E, 55@ L169E] 


10350 DATA 64,20,27,44,45,55,54,53, 568 L3FSE] 
10368 DATA 43,48,20,41,55,53,27,0D, 456 L75781 
10370 DATA 0A,24,00,0A,27,40,5B,5C, 355 L[7@D4] 
10388 DATA 5D.SE.7B,7C,7D,7E,27,20, 756 [6548] 
10390 DATA 44,65,75,74,73,63,68,65, 821 LF198] 
10400 DATA 72.20.5A,65,69,63,68,65, 746 L[F&9A] 
1041@ DATA 4E.73,61,74,74,20,69,6E, 8087 L15D4] 
10428 DATA 61,6B,74,69,76,0D,0A,24, 602 LD2B4] 
18430 DATA aD,@a, 27,40,5B,5C,5D,5E, 496 L1F12] 
10448 DATA 7B,7C,7D,7E,27,20,44,65, 738 L[EBFA] 
108450 DATA 75, ur 73.63.68,65,72,20, 798 LC494] 
10460 DATA 5A,65,69,63,68,65,6E,73, 825 L[@2D6] 
10470 DATA 61,74,7A,20,61,6B,74,649, 792 L[42BA] 
10488 DATA 75,00,8A,24,21,00,00,39, 267 L9IF7A] 
10498 DATA 22.FE,@F.S1,FE,OF,11,ES, 865 L[B73E] 
12580 DATA B1,21,80,00,7E,23,FE,04, 581 [2494] 
10510 DATA C2.20,03,23,7E,23,FE,45, 748 L7FD@®] 
10520 DATA CA,CC,®2,FE,41,02,20,03, 956 [29182 
10538 DATA F3,D9,.59.79,E6,9F,4F,ED,1375 L[@BAB] 
108548 DATA 49.4B,D9,3A,D5,ED,E6,C0,1247 [6B86] 
18558 DATA CA,C1,802,2A,F&,BE,22,D4,1121 L[9EACI 
108540 DATA EBD.D9,ED,49.D9,FB,11,2A,1243 LAQA&] 
10578 DATA 82.03,20,03,F3,D9,59,79, 902 L8FC6] 
10588 DATA E&.9F.AF.ED,49,4B,D9,2A,1112 LSE9A] 
10598 DATA D4,BD,7C.E6.C0,C2,18,03,1168 [1848] 
10608 DATA 7D.11,94,B2,FE,4A,CA,EC,1234 [8284] 
106418 DATA 02,11,34,B7,22,32,03,22, 375 LFG4A] 
106422 DATA 30,03,22,41,03,22,58,03, 290 L[B14E] 
10430 DATA EB,22,4E,03,22,5F,03,23, 517 L[2ABE] 
10648 DATA 23,22,54,03,22,62,03,21, 324 [®42A] 
10650 DATA C8.BE.22.D4,BD,11,C8,BE,1232 L[768C) 
106640 DATA 21.2A.03,01,84,00,ED,BG, 424 L[12A8] 
108478 DATA D9,ED,49,D7,FB,11,58,02,11@2 -LEF4A] 
1068® DATA BE.89.CD,05,@2@,2A,FE,@F, 544 [BA2B] 
10698 DATA F9,C9.FE,AB,CA,ES,BE,FE,1641 IFOFC) 
10780 DATA 5B.DA,B®.@@,FE,SF,DA,ES,11@5 L[EC74] 
1@071@ DATA BE,FE,7B.DA,@Q,@0,FE,7F,1166 L[@9B2] 
18722 DATA D2,08,00,C6,CA,C6,1A,C6,1832 [8422] 
18730 DATA 9D.E5.21.F7,FF,22,00,08, 755 L8@FE] 
1074@ DATA 21.04,BF,22,00,00,E1,CD, 692 L97CE] 
10758 DATA 82,00,E5,21.20,00,22,00, 296 L[C132] 
10750 DATA 09,22,00,00,E1,C9,3C,40, 616 LA7BEI 
108770 DATA 3C,66.66.30,06,3C,06,38, 644 L44F6] 
10780 DATA 40.C6,FE.C6,C6,00,C6,38,121@ [8862] 
10798 DATA 40.C06,06,6C,38,00,C6,00, 866 LA4F@EI 
12800 DATA C6,C6,C6,C6,7C,00,10,38, 988 L[CA@CI 
10810 DATA &C,06,00,20,20,00,6C,00, 414 [4370] 
10822 DATA 78.80,7C.CC,76,00,6C,00, 686 LAS@2] 
10830 DATA 30,66,66,66,30,00,6C,0@, 534 LFFB6] 
10840 DATA 20.06.C6.C6,7E,00,1C,36, 802 L[ZEEA] 
108508 DATA 56,6C0,66,66,CC,20,80,00, 418 L[53B4] 
10848 DATA Ende [SBAA]I 


Listing 2. Mit dem Basic-Lader ist das Zeichensatzprogramm | 





Wordstar de Luxe 


Ein bißchen Geschick paßt Wordstar noch besser 
an Computer und Drucker an. Denn verbesse- 
rungsbedürftig ist hier einiges. 


m zweiten Schneider-Sonderheft fanden Sie eine 
Wordstar-Anpassung für die Schneider-Computer unter 
CP/M 2.2. Viele Besitzer des CPC 6128, deren Wordstar 
für CP/M Plus angepaßt ist, schreiben uns, ob es nicht auch 
für ihre Version eine verbesserte Druckerroutine gibt. Wir 
haben ihre Anregung aufgenommen und mit »Wordstar de 
Luxe« eine Anpassung geschrieben, die auf jedem CP/M- 
Computer eingesetzt werden kann. 

Normalerweise ist Wordstar so installiert, daß die Steuer- 
zeichenfolgen zum Hoch- und Tiefstellen von Zeichen nur 
benutzt werden können, wenn der Drucker einen echten Zei- 
lenvorschub nicht nur vorwärts, sondern auch rückwärts aus- 
führt. Intern kennt Wordstar aber eine Steuerzeichenfolge, 
die nur einen halben Zeilenvorschub aufruft. Und diese 
Anweisung versteht nahezu jeder Drucker. Damit können 
auch Geräte, die nur Papiervorschub kennen, Zeichen hoch- 
oder tiefgestellt ausdrucken. Mit Hilfe dieser Routine führt Ihr 
Drucker zwischen zwei Zeilen nicht einen ganzen, sondern 
zwei halbe Zeilenvorschübe aus. Zwischen diesen beiden 











Schritten wird (im wahrsten Sinne des Wortes) »zwischen 
den Zeilen« das Tiefgestellte der vorhergehenden und das 
Hochgestellte der nächsten Zeile gedruckt. Falls Ihr Drucker 
keinen differenzierten Zeilenvorschub kennt, stellen Sie ein- 
fach die Zeilenhöhe generell auf halbe Höhe und geben bei 
der Steuerzeichenfolge für normalen doppelten Vorschub 
an. Besonders bei Ausgabe von Formeln lernen Sie das neue 
Schriftbild bald schätzen. 

Die meisten Drucker arbeiten neben dem Standard-ASCIl- 
Zeichensatz auch mit Grafiksonderzeichen. Häufig findet 
man darunter griechische Buchstaben oder ähnliches. Nor- 
malerweise läßt Wordstar diese nicht zu. Mit der hier gezeig- 
ten Anpassung ändert sich das. CTRL-P und dann E gedrückt 
sagt Wordstar, daß er das nächste Zeichen als Grafikzeichen 
interpretieren soll. Das normale ASCIl-Zeichen übersetzt er 
dann unmittelbar vor dem Ausdruck in das entsprechende 
Grafikzeichen. Auf ähnliche Weise kann man mit CTRL-P und 
R zwischen amerikanischem und deutschem Zeichensatz 
hin- und herschalten. 

Neben diesen besonderen Routinen installiert unsere 
Anpassung natürlich auch die »gewöhnlichen« Druckarten. 
Komprimierte Zeichen werden mit CTRL-P A ein- und CTRL-P 
N ausgeschaltet. Da die meisten Drucker keinen automati- 
schen Farbbandwechsel kennen, wurde die dafür vorgese- 
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hene Steuerfunktion CTRL-P Y mit Breitschrift belegt. Die 
beiden restlichen frei definierbaren Steuerzeichen CTRL-PQ 
und CTRL-Q W regeln das Ein- und Ausschalten der Schön- 
schrift. Doppeldruck, Fettdruck, Unterstreichen, Hervorhe- 
ben, Überdrucken, Rückwärtsschritt, Phantom-Leerzeichen 
und Hardspace gibt es auf jedem Drucker, da sie vollkommen 
hardwareunabhängig gelöst wurden. 

Alle hier gezeigten Anderungen beruhen auf der Anpas- 
sung bestimmter Teile der Datei »WS.COM«. Die meisten 
neuen Funktionen werden einfach durch Verändern 
bestimmter reservierter Steuerzeichentabellen und Markie- 
rungen installiert. Schwieriger ist die Zeichensatzwahl und 
die Ausgabe von Grafikzeichen. Anstelle der reservierten 
Steuerzeichentabellen für die Textmarkierungen CTRL-P E 
und CTRL-P R haben wir normalerweise auf dem Drucker 
nicht definierte Pseudosteuerzeichen eingesetzt. Zusätzlich 
wurde die Druckroutine durch eine neue ersetzt. Soll keines 
der Pseudosteuerzeichen ausgegeben werden, arbeitet die 
neue Routine wie das Original. Tritt aber eines der Pseudo- 
steuerzeichen auf, wird dieses nicht ausgegeben, sondern 
zu einer ganzen Steuerzeichenfolge übersetzt. Das Resultat 
hängt dabei von verschiedenen Werten bestimmter Variablen 
innerhalb der Routine ab (zum Beispiel ob der deutsche Zei- 
chensatz ein- oder ausgeschaltet wird). 

CP/M besitzt eine Betriebssystemroutine, die testet, ob der 
Drucker gerade beschäftigt ist oder ein Zeichen übernehmen 
kann. Wenn man diese Routine nur dann aufruft, wenn der 
Drucker wirklich bereit ist, gibt es keine Probleme. Im ande- 
ren Fall passiert es häufig, daß sich der Computer aufhängt. 
Leider ist diese Routine von der Betriebssystemversion 
abhängig. In Wordstar wird sie deshalb nur unterstützt, wenn 
sie wirklich vorhanden ist. Und das ist sie standardmäßig 
nicht. Da Sie Ihre Betriebssystemversion nur äußerst selten 
wechseln, haben wir diese Routine gleich miteingebunden. 





;Wordstar besonders qut an verschiedene Drucker anpassen 


e 
d 
@ 
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Wordstar kennt nicht nur eine Druckerausgaberoutine, } 
sondern vier. Das Programm wird deshalb so installiert, daß 
automatisch diejenige aufgerufen wird, die wir angepaßt | 
haben. Das ist die, die mit dem CP/M-LST:-Kanal arbeitet. Eine 2 
entsprechende Meldung auf dem Bildschirm ist auch vorge- e 
sehen. Der Platz der anderen drei Routinen wird nicht mehr 
benutzt und steht für die neuen Routinen zur Verfügung. 


Anpassung leicht gemacht 


Das folgende Programm kann auf jedem beliebigen CP/M 
2.2-Computer benutzt werden. Für CP/M Plus muß eine 
kleine Änderung eingefügt werden. Die Druckersteuerzei- 
chen sind fast alle für Epson-kompatible Drucker angepaßt. 
Ganz speziell sind sie aber für die Schneider-Drucker 
»NLQ401«, »DMP 2000« und »Seikosha SPIOOOCPC« ge- 
eignet. Weiter unten finden Sie die Anpassung an andere 
Drucker. 

Als erstes müssen Sie mit einem beliebigen Texteditor das 
Assemblerlisting (Listing 1) eingeben. Das Programm muß 
zum Übersetzen unter dem Namen »WSDRUCK.ASM« ge- 
speichert sein. Wenn Sie das Programm mit Ihrem Wordstar 
eintippen, wählen Sie bitte den Menüpunkt »N« (für »Pro- 
grammeingabe - Non-Dokument-Modus«). Unter »D« (Text- 
eingabe) fügt Wordstar nämlich unsichtbare Steuerzeichen 
in den Text ein, die später den Assembler durcheinanderbrin- 
gen würden. 

Noch ein paar Tips, die die Eingabe erleichtern. Dem von 
uns verwendeten Assembler ist es völlig gleichgültig, ob Sie 
den Quellcode mit Groß- oder Kleinbuchstaben eingeben. 
Sogar in einem einzigen Wort dürfen Sie beide beliebig 
mischen. Bei der Eingabe brauchen Sie also auf solche Klei- 
nigkeiten nicht achten. 


































BBOBBB2 ; (Version 22.4.86) 
BOBBOS ; Ä 
BORBRB4 ; - nur geeignet für Drucker, die über den gewöhnlichen 

Boune5 ; CP/M-'"LST: '-Kanal gesteuert werden können 

BOBBB& ; -—- nur geeignet für Wordstar, Version 3.8, CP/M-808 

BaBBR7 ; - aber für beliebige 8888- oder Z88-Computer 

Bopnaus ; und beliebige WS-Installationen 
BBBBB? ; (z.B. Schneider CPC464/664/6128, Commodore C128) | 
BBBBIB ; - Hier aber Voreinstellungen ähnlich Epson-Drucker 

eBaoB1i ; (insbesondere Schneider NL0481, Schneider DMP2B88 

BuaBi2 ; und Seikosha SP1RBOCPC) 

BOBB1iS3 ; 

DRBBI4 ;Diese Datei mit ’ASM’ assemblieren und die HEX-Datei (nicht COM) 

BBBB15S ; mit Hilfe von 'DDT’ und 'I’-Befehl der Datei WS.CODM überlagern 

BRBBIA ; 

BaaB1?7 ; 

BOBBIiIB ;*#####*+ Hier die CP/M-Version eintragen 

BaaRa1? false equ 

BoBa2O true equ not false 

poan21 cpmplu equ false ‚für CP/M PLus 'true’ eintragen 

poann2?2 ; 

20088253 ;#####* Wie hoch soll eine Zeile sein (nur gerade Zahlen erlaubt) 

Ba@Ra24 ; «Angabe in der kleinsten Einheit, bei NLO481 z.B.: 1/21& Zoll 

BRDR2S5 hoehe equ 36 5 Zeilen pro Zoll 

ln Tr et 

BOBUZ27 ;%*%***# Einschaltmeldung über Drucker (Zeichenanzahl nicht verändern) 

DODR28B org 81B3h 

202027 db ; Schneider NLD4B1 „15,8 

BuBaa350 db No communications protocol ',15,8 Listing 1. 

BaaBS31 db Primary list device ',15,0,26 Verbe S 
bona32 ; rbessern Sie 
BOBBSS ;*####+## Grundeinstellungen für den Drucker Ihren Wordstar 
aaBa54 org AbFah 

BaBa3S5 db BOFFh ;Drucker kann kein Backspace 

BORDT& db 2 Anzahl Anschläge für Fettdruck r 
BBBu537 db 2 ‚Anzahl Anschläge für Doppeldruck 

BDB0S8 ; 

000057 ;*%*##%##* verschiedene druckerabhängige Steuerzeichenfolgen 

BaaRaA0 ; (jeder Tabellensatz besteht aus einem Byte für die Länge 

BEBBA4i ; gefolgt von den eigentlichen Steuercodes) 

Ba0B42 org B6497&h ;Wagenrücklauf und Zeilenvorschub | 
BRO045 db 2,13,18 | 
D20244 org Q&öAlh sWagenrücklauf ohne neue Zeile 

Ba0B45 db 1,13 









sein halber Zeilenvorschub 
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db 
org aa 
db oO 

org B&uBSh skomprimierte Schrift einschalten 
db 1,15 
org BöBAh ‚komprimierte Schrift ausschalten 
db 1,18 

as BöBFh ;Hochstellen ein/Tiefstellen aus 

b 
org B&sC4h ı Tiefstellen ein/Hochstellen aus 
db 1] 
org B&4C9YHh ‚'*P@’„, Hier: Schönschrift ein 

db ' | 
org ‚'’“PW’„ Hier: Schönschrift aus 

db 
org ; '“PE’, Hier: Graphikausgabe 

db | ;Pseudosteuerzeichen 

org | ; ’“PR’„ Hier: deutsch/amerikanisch 
db ;Pseudosteuerzeichen 

org | srotes Farbband, hier: Breitschrift 
db 

org Bö ‚schwarzes Band, hier: Ende Breit 
db 

org 7 Drucker vorbereiten (vor Druck) 
db 6,13,27,'3'’,hoehe,27,'6' 

org u Drucker abschalten (nach Druck) 
db | 

org a7BBh Zeichen zum durch/unterstreichen 
db Te # 


„153,27, 'J’„hoehe/2 
A&AFh ‚Backspace (nur wenn Drucker kann) 


Unterprogrammeinsprünge zur Druckereinstellung 
org 278Dh 

nop Drucker vorbereiten 
nop 

ret 

nop Drucker abschalten 
nop 

ret 


Welche En kinder tsee werden verwendet 


org 
db [n] Ausgabe an CP/M-'LST: '-Kanal 
db BOFFh :Druckerstatusroutine vorhanden 


Die Druckerausgaberoutinen für CP/M-'LST: '-Kanal 

org B71Ah 

jmp busy ;Sprung zur neuen Busy-Routine 
mov e,ä Zeichen an Drucker schicken 

mwi Ess ; BDOS-Funktionsnummer 

call print normal BDOS-Aufruf, jetzt neu 
ora a 

ret 

nop Zeichen vom Drucker holen 

stc snur für manche serielle Drucker 
ret sund primitive Schnittstelle mötig 


a 
;##%*#*#+ Dieser Bereich ist nur frei bei Ausgabe an CFP/M-'LST: '’-Kanal 
: «wird hier für neue Druckerroautinen zweckentfremdet) 
org D728h 
: (neue Drucker-Busy-Routine, Version für CP/M 2.2) 
if .not cpmplu ıCP/M 2.2 ? 
busy lxi d .BaZAh 
call bios ıBios-Aufruf 
cma sa ist 255, wenn nicht beschäftigt 
Ze carry ®, wenn nicht beschäftigt 
ret 
ihld BaBih Anfangsadresse des BIOS holen 
dad d ‚relative Routinenadresse addieren 
pchl ;BIOS-Routine aufrufen 
endif 
;tneue Drucker-Busy-Routine, Version für EP/M Plus) 
| if cpmplu scP/M Plus ? 
busy lxi d,regist Anfangsadresse Registerpuffer 
mwvi cC,oB :Indirekter BIDS-Aufruf 
call aaaS5Sh Als BDOS-Routine 
lda regist+1 A-Register holen 
cma sa ist 255, wenn Drucker bereit Listing 1. 
Em scarry 8, wenn Drucker bereit Verbessern Sie 
re 
regist db 15 ;BIOS-Nummer "Druckerstatus’ Ihren Wordstar 
db i 0,0,0,0,8,0,8 ‚7 Bytes reservieren (Fortsetzung) 
endif 
: (neue Druckerausgaberoutine) 
print cpi 38 :Pseudoszeichen für Zeichensatz? 
jz chrset ; Zeichensatzumschaltung 
lxi h,flag Flag für Graphikmodus 
inr m ;:Graphikmodus zur Probe einschalten 
cpi 31 Pseudozeichen für Graphikmodus? 
rz sja -> Graphikmodus bleibt ein 
der m :Graphikmodus korrigieren 
iz aBaSh jetzt aus ->normaler Druck 
; (Graphikzeichen an Drucker senden) 
gramod der m ;Graphikmodus testen 
mwi md sund löschen 
Zeichen und Modus aufheben 
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Escape an Drucker 
‚ausgeben 
:Graphikzeichensatz einschalten 


call sende 
mvi e,'=' 
call sende 
pop psw 
jz notran 
ani iFh 
jinz notran 
der a 
mov e,ä 
call sende 
mvi e,d 
sende 





‚Graphikzeichen und Modus holen 
keine übersetzung 

sin Bereich 85h bis ?7Fh 

;besondere Behandlung für Code FFh 


;Ausgeben 
:Graphikmodus löschen 


jmp 
; (deutschen/amerikanischen Zeichensatz einschalten 


chrset mwi e,27 
call sende 
lxi h,flag#i 
mow a,m 
“ri Bih 
ng ma 


; (Byte an 5 Drucke ausgeben) 
sende mwi Gy 
J a02Sh 
; (verschiedene Flags) 
flag: db 14] 
db '&' 


; BDOS-Funktion drucken 
; BDOS-Aufruf 


;‚Escape-Code 
Escape an Drucker 
shier steht Zeichensatznummer 


bit 8 invertieren 
sneue Zeichensatznummer 
e,a sins e-Register 


Listing 1. 
Verbessern Sie 
Ihren Wordstar 
(Schluß) 


sam Anfang kein Graphi kmodus 
Flag für deutschen Zeichensatz 


5 
s######+ Wie wird Kommunikation mit Drucker abgewickelt? 


org 2B7B&5h 
db [1] 
db 127 


end 


Alles was in einer Zeile hinter einem Strichpunkt steht, gilt 
als Kommentar und dient allein der Übersichtlichkeit. Sie 
dürfen die Kommentare nach eigenem Ermessen weglassen 
oder dazusetzen. Ebenfalls nur der Überschaubarkeit wegen 
stehen die Zeilennummern voran. Auch diese dürfen ersatz- 
los gestrichen werden. 

An den Stellen, an denen ein oder mehrere Leerzeichen 
stehen, dürfen sich beliebig viele Leerzeichen (und auch 
Tabulatoren) befinden. Die Anzahl der Leerzeichen sind als 
rein optische Hilfe anzusehen. Das gilt nicht für Leerzeichen 
zwischen Anführungszeichen. Dabei handelt es sich um 
Texte, die unverändert ins Programm übernommen werden 
müssen. Hier können Sie zwar den Text nach eigenem Gut- 
dünken abändern, aber die Gesamtzahl der Zeichen muß 
erhalten bleiben. Keinesfalls dürfen Sie innerhalb von Anfüh- 
rungszeichen Leerzeichen durch Drücken der »TAB«-Taste 
einfügen. 

Alles folgende ist jedoch von entscheidender Wichtigkeit. 
Im Gegensatz zu Basic wirkt sich auch nur eine einzige fal- 
sche Zeile fatal aus. Deshalb sollten Sie das Listing zur 
Sicherheit noch einmal genau überprüfen. 

Ein Abschnitt des Programms heißt »Betriebssystemver- 
sion anpassen«. \Venn Ihr Wordstar nicht unter CP/M 2.2, 
sondern unter CP/M Plus arbeitet (also für den 6128 gedacht 
ist), ersetzen Sie die Zeile »cpmplu equ false« durch »cpmplu 
equ true«. 

Um unser Quellprogramm dem Computer verständlich zu 
machen, brauchen Sie die Programme »ASM.COM« und 
»DDT.COM« von Ihrer CP/M-Systemdiskette - und natürlich 
den gerade eingetippten Text »WSDRUCK.ASM« sowie 
»WS.COMe, »WSMSGS.OVR« und »WSOVLY1.OVR«. Um die 
Originale zu schützen, kopieren Sie am besten alle Pro- 
gramme auf eine leere Diskette. 

Als nächstes ist »WSDRUCK.ASM« zu assemblieren. Das 
geschieht einfach durch Eingabe von »ASM WSDRUCK. 
AAZ«. Beachten Sie, daß die etwas seltsame Zeichenfolge 
»AAZ« im Namen kein Druckfehler ist, sondern den Assem- 
bler steuert. Während des Ablaufs von »ASM.COM« darf 
außer einigen Angaben über den verbrauchten Speicher- 
platz keine Meldung auf dem Bildschirm erscheinen. Sobald 
auf dem Bildschirm‘ irgendeine Zeile aus der Datei 
- »WSDRUCK.ASM« ausgegeben wird, die Sie selbst einge- 
tippt haben (eventuell mit einigen Zusätzen), ist diese Zeile 

















skein ETX/ÄACK oder XON/XOFF-Protokoll 
;Druckerpuffer (hier bedeutungslos) 





fehlerhaft. In diesem Fall starten Sie den Editor noch einmal 
und korrigieren das Programm. Beachten Sie aber, daß es 
sich bei dem angezeigten Fehler auch um einen Folgefehler 
handeln kann. Untersuchen Sie also immer das ganze Pro- 
gramm. Wenn alles geklappt hat, befindet sich auf der Dis- 
kette jetzt eine weitere Datei mit dem Namen »WSDRUCK. 
HEX«. 

Als nächstes rufen Sie DDT durch »DDT WS.COM« auf. 
Wenn kein Fragezeichen erscheint, ist alles in Ordnung. 
Taucht ein Fragezeichen auf, dann prüfen Sie, ob die Diskette 
alle notwendigen Dateien enthält. Ein zweiter Versuch muß 
dann erfolgreich sein. 

Erscheint ein Bindestrich, geben Sie »IWSDRUCK.HEX« 
und danach »R« ein. Wenn nach »R« das Diskettenlaufwerk 
anläuft und kein Fragezeichen zu sehen ist, ist alles in Ord- 
nung. Im anderen Falle müssen Sie das Programm mit CTRL- 
C abbrechen. Bei diesem Befehl ist eine häufige Fehlerursa- 
che ein fehlendes »ORG« in der Datei »WSDRUCK.ASM« 
oder eine überhaupt fehlende Datei »WSDRUCK.HEX«. Also 
bitte darauf achten! 

Als nächstes brechen Sie das DDT-Programm mit CTRL-C 
ab. Dann tippen Sie »SAVE x WS.COM« ein. Der Wert der Zahl 
x muß aber zuerst noch berechnet werden. Sie erhalten ihn, 
indem Sie die vierfache Größe der Datei »WS.COM« in KByte 
nehmen. Wenn Ihre Wordstar-Version also 16 KByte lang ist, 
geben Sie »SAVE 64 WS.COM« ein, bei 32-Byte-Programm- 
änge »SAVE 128 WS.COM«. 

Beachten Sie, daß nach einem mißglückten Versuch, das 
Wordstar-Programm zu ändern, die Datei »WS.COM« zerstört 
ist. Damit Sie im Programm »WSDRUCK.ASM« nicht vergeb- 
lich nach Fehlern suchen, müssen Sie deshalb nach jedem 
Versuch das Wordstar-Programm durch eine neue Kopie 
ersetzen. Änderungen, die Sie schon früher angebracht 
haben (zum Beispiel um die Bildschirmausgabe zu verbes- 
sern), stören natürlich nicht. Als Ausgangsdatei ist ein schon 
früher veränderter, aber fehlerfreier Wordstar durchaus ver- 
wendbar. Wenn Sie Pech haben, hat die frühere Änderung 
vor der jetzigen Vorrang. Derartige Fälle sind aber sehr sel- 
ten. Bestimmte Fehler löschen die ganze Wordstar-Diskette, 
weshalb Sie die neue Version immer auf einer leeren Diskette 
testen sollten. Nach Ende von »DDT.COM« stürzt auch ein 
korrektes Wordstar-Programm manchmal ab. Dagegen hilft 
ein kurzes Aus- und Wiedereinschalten. 
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Falls in der Testphase das Programm nicht korrekt läuft, fin- 
den Sie hier ein paar Hinweise auf mögliche Fehlerursachen. 

- Haben Sie im DDT-Programm bei »I« »WSDRUCK.HEX« ein- 
gegeben und nicht versehentlich »WSDRUCK.ASM«? 

- Befand sich die neueste Version von »WSDRUCK.HEX« auf 
der Diskette? 

- Haben Sie zwischen dem Abbruch von DDT und dem SAVE- 
Befehl kein anderes Programm gestartet? 


“s 
Ber 





1B200 












































5° erzeugen, 
Fe le aller Graphikzeichen ausgibt L783C] Nach einem Lauf steht auf der Diskette eine ASCII-Datei mit 
* 1801@ OPENOUT"Drucker2.tst" [BC x ee 
De 10015 PRINT#9,".POB" a an es dem Bes rn STe, > m de > 
B- ıga20 F HR$ (25) "Unter WO mi sgedr rden . Di sgabe funktioni ler- 
5, t dem Drucker NLQ401" LAC2EI a at hs ch uses ch 5 — fol “ 
Br er ie A tC7182 Be is ern, bei en eIC ee; ae ü a 
E, 1084 Li. cı en Grafikzeichensatz einschaltet. Das sind mit Sicherheit 
ge 10058 PRINT#9,TAB a Ve | teh a 5 ; 
ei; = aeg eaicnunFrgung SEEN eg | die Schneider-Drucker NLQ401 und DMP2000 sowie der 
ei, en el ta (21) 5TRING$ (37,"=") Eınan Seikosha SP1000CPC, aber auch die meisten Epson- 
= 10080 PRINT#9 ‚LF2@4] kompatiblen Geräte. Ein Versuch kann nichts schaden. 
iR. 18878 PRINT#? LF986] Geben Sie mit Hilfe von Wordstar als nächstes Listing 3 
Pr u ä ’ i 1 a ri ei 
- 48100 ERINTA? Druck Eingeb®t pruck Eınga | (Test der Schriftarten) ein und drucken Sie es aus. 
(aa um pe! Druck Eingabe" [50863 Der letzte Test betrifft die Druckerstatusabfrage. Schalten 
Dr 18118 PRINT#F, "---—--—------- 4 - Be DR | 
0.09 ee > EEE Eee Sie dazu den Drucker aus und vergewissern Sie sich, daß auf 
Be ; -=-- 4+-- --- nn! CFFDA] kein | ri unlitiarar 
3 en on tee 0 50 aus Ihrem Computer kein Druckerspooler aktiv ist. Dann editieren 
18138 PRI NTRg, CHR Rs (SICHRE (SI CHRS (+60) u Sie einen beliebigen Text. Während der Ausgabe sollten Sie 
| 15 $ -PE*PE"CHR$(i%X+64)" ! "3 ([7B98] ; . inati r i i 
Z 18148 PRINTS9CHRS(SICHR$ Ci X+32) "(5 SPAC die Tastenkombination CTRL-K P drücken und danach einen 
er. cum ErTEE ces nei we32) “a SPACE} : = En C8D52] Dateinamen eingeben. Mit ESC starten Sie dann den Aus- 
‚(ar 1158 IC iktö4)" | n imi i na eina = 
- EPAPE"LÜRSUIRHEAI "LA SPACE)! "3 us druck der angegebenen Datei. Diese wird ohne einen spe 
5 10168 IF i%<>31_THEN PRINT#9 ,CHR$ (5) CHR$ ziellen Druckerspooler parallel, während der Bearbeitung 
rast), sn DE eines anderen Textes, ausgedruckt. Wenn die Statusabfrage 
n 18178 IF i%<8 THEN READ c$: PRINT#7 ,CHR$ ( nicht funktioniert, versucht der Computer vergeblich, ein Zei- 
- ‚2 E$CHR$ (18) "5 SPACEI"PR"C$""PR ae chen auszudrucken und stellt sich »tot«. Ist die Abfrage aber 
Er 19188 PRINT#9F [CAB6] in Ordnung, wird gar nicht erst der Versuch, ein Zeichen aus- 
: ‚B19@ NEXT 1EB4] Ä er ' | r Über- 
us CLOBEOUT [26823 zugeben, unternommen, solange der Drucker zur Über 
= 18218 DATA @,C,\,J,t,1,” L4B3E] nahme nicht bereit ist. In diesem Fall können Sie genauso 
= LACBE problemlos weiterarbeiten, als würde im Hintergrund über- 
B Listing 2. Alle Grafikzeichen im Überblick haupt kein Text ausgedruckt. 
_ ’ : . Funktioniert alles wunschgemäß, so schalten Sie den 
B 2BOGQB1 ;Neuer Text für das Drucker-Menue von Wordstar 
= - BROB02 ; (Vers. 22.4.86) 
Ber 200084 ;Diese Datei mit 'ASM’ assemblieren und die HEX-Datei (nicht COM) 
Fir BBORB05 ; mit Hilfe von 'DDT’ und '’I' der Datei 'WSMSGS.OVR’ überlagern 
= Bon00& ; 
B= j######+ Lage des Menues 
- org BD3SCh 
- db 19,17 Kopf des Menues 
# Die Texte des Menues 
r ; tjede Zeile muß genau 79 Zeichen enthalten und durch ein Byte 
3 ; mit dem Wert BEh abgeschlossen sein. A h 5 
Mi ; Ausnahmen: erste Zeile 66 Zeichen lang, enthält genau einen Tab 
| ; letzte Zeile 74 Zeichen lang (7 Zeilen insgesamt) 
m ; zur besseren ‚über sicht gird jede Zeile in drei Abschnitte geteilt) 
2 db ‘“P KOMMAND ",9, Steuer ' 
P db "zeichen in den Text einfueg’ 
ı db 'en „14 
a db '"T/V=Hoch/Tief ein/aus ? 
= db "C=Druckpause ; 
D db "Y=Breitschrift ein/aus „14 
(a db 'S=Unterstreich. ein/aus 
| db 'B=Schattenschr. ein/aus 
Be, db 'D=Doppanschlag ein/aus "„i4 
"2 db "A=komprimierte Schrift ; 
I -- db "N=komprimiert abschalten 3 
Be db "X=Durchstreichen ein/aus "„ı4 
>. db "O=sfester Leerschritt 
IR / db "F=Phantom Leerschritt 
I db 'H=Rueckwaertsschritt ',14 Listing 4. 
j db Han scene le Ein Ri Ihr Wordstar kennt die 
Er: "R=deutsch/amerikanisc : neuen Befehle auc! 
.. db "ENTER=Zeile ueberdrucken ’,14 % en 
Br db "W=Schoenschrift aus x 
we, db 'E/*PE=sGraphikzeichen folgt ° 
=. db 'Leerschritt=Abbrechen ',14 
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- Traten beim Assemblieren von »WSDRUCK.ASM« Fehler- 
meldungen auf? 
- Haben Sie beim Start von DDT den korrekten Namen 
»WS.COM« angegeben? 
- Sind Sie sicher, daß Sie die neueste Version von »WS.COM« 
getestet haben? 
- Stimmt in der Datei »WSDRUCK.ASM« der Wert von 
»cpmplue? 

Zu Ihrer Übersicht finden Sie im Listing 2 eine Tabelle aller 
Grafikzeichen. Eingegeben wird das Programm unter Basic. 











Fr Menues: 





Drucker nun ein. Jetzt beginnt der Drucker zu arbeiten. 

Wenn die neue Wordstar-Version einwandfrei läuft, brau- 
chen Sie die Dateien »WSDRUCK.ASM« und »WSDRUCK. 
HEX« nicht mehr. Für den Fall, daß Sie sich aber einmal einen 
anderen Drucker kaufen, brauchen Sie aber die Assembler- 
datei wieder - also an einem sicheren Ort aufheben. 

Im Abschnitt »druckerabhängige Steuerzeichenfolgen« 
können Sie die Steuerzeichen angeben, die zur Wahl einer 
bestimmten Druckerfunktion notwendig sind. Hinter jeder 
Zeile, die mit »db« beginnt, steht dabei ein Tabellensatz. Das 
erste Byte gibt die Anzahl der folgenden Bytes an. Danach 
folgen die auszugebenden Steuerzeichen. Bei Epson-kom- 
patiblen Druckern stellt man zum Beispiel den Druck in dop- 
pelter Breite durch die Drei-Byte-Folge »ESC W SOH« ein. 
Wie man aus jeder ASCIl-Zeichensatztabelle entnehmen 
kann, besitzt ein »ESC« den Wert 27 und ein »SOH« den Wert 
1. Der Buchstabe »W« kann in Anführungszeichen direkt ein- 
gesetzt werden. Im entsprechenden Abschnitt der Datei 
»WSDRUCK.ASM« steht deshalb »db 3,27 'W’1«. Wenn Sie 
einen anderen Drucker besitzen, können Sie die entspre- 
chenden Werte leicht anpassen. Schwieriger gestaltet sich 
die Zeichensatz- und Grafikumschaltung. Wenn Sie selbst 
kein Assemblerspezialist sind, hilft Ihnen sicher gerne ein 
Spezialist aus einem Club weiter. 


Ein neues Druckermenü 





Wenn Ihr neuer Wordstar richtig funktioniert, wollen Sie 
sicher die neuen Druckerroutinen auch im Menü (Aufruf mit 
CTRL-P) finden. Dazu geben Sie Listing 4 ein. Das weitere 
Vorgehen entspricht genau dem bei der Anpassung von 
»WS.COMe«. Geändert wird jetzt aber die Datei »WSMSGS. 
OVR«. Statt »DDT WSCOM« müssen Sie jetzt »DDT 
WSMSGS.OVR« eingeben und statt »SAVE 64 WS.COM« 
»SAVE 99 WSMSGS.OVR«. Überlagern müssen Sie damit 
natürlich die Datei »WSMSGS.HEX« Dazu tippen Sie 
»|WSMSGS.HEX« ein. Wenn der erste Versuch nicht klappt, 
kopieren Sie vor dem nächsten Versuch eine neue Kopie der 
Datei »WSMSGS.OVR« auf die Arbeitsdiskette. Die Texte zwi- 
schen den Anführungszeichen in der Datei »WSMSGS.ASM« 
können Sie nach Belieben ändern. Beibehalten müssen Sie 
allerdings die Anzahl der Zeichen zwischen den Anführungs- 
zeichen und alles, was außerhalb der Anführungszeichen 
steht. Ebenfalls verboten sind Tabulatoren innerhalb der 
Anführungszeichen. 

Interessant ist das »Phantom-Leerzeichen« (CTRL-P F). 
Ausgedruckt sieht es wie ein echtes Leerzeichen aus. Inner- 
halb von Wordstar wird es aber wie ein normales Zeichen 
behandelt. Eine nützliche Anwendung enthalten die unterstri- 
chenen Textteile. Leerzeichen zwischen unterstrichenen 
Worten werden normalerweise nicht mitunterstrichen. Wenn 
Sie statt dem echten Leerzeichen nun das Phantom-Leer- 


Hear-Letter-Quality 
Schnellschrift 
normal T 


} Hort 
1eTtgestell! 


normal vergrößer t normal 
normal kögrieiari normal 

normal Doppeldruck normal 

normal Schattenschrift norma 
normal Berehgestrtchen norma 


Kormal Unterstrichen mit Fhantomspace norma Listing 3. 
Backstoo: volilä blentöt ® 
Zeichensätze: Asclia "BEXITIH* Testen Sie 
bin! Y [= 1] WE die neue 
Code Bih..FFhr no. 
Code AOh..FEh: Druckerroutine 
Code FFhn: 


Graphikzeichen: 


normal 











Bild 1. Der Bildschirm.... 
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Bild 2. ...und der Druckertext 


zeichen benutzen, gilt esnichtals Leerzeichen und wird beim 
Drucken ebenfalls unterstrichen. 

Der Rückwärtsschritt funktioniert mit unserem Programm 
auch bei Druckern, die keinen echten »Backstep« kennen. 
Mit seiner Hilfe kann man beispielsweise zwei Zeichen über- 
einanderdrucken und damit Akzente darstellen. 

Wenn Sie mit Wordstar viele Formeln mit hoch- und tiefge- 
stellten Indizes eingeben, wirkt die Formel durch die vielen 
CTRL-V- und CTRL-T-Anweisungen schnell ziemlich zerfled- 
dert. Spätestens dann, wenn Sie zweifache Indizes einset- 
zen, verlieren Sie endgültig die Übersicht. Das verhindert 
jedoch ein kleiner Trick. Die Tastenfolge CTRL-P M bewirkt, 
daß die nächstfolgende Bildschirmzeile die vorhergehende 
Zeile überdruckt. Auf dem Drucker erfolgt also ein Wagen- 
rücklauf, aber kein Zeilenvorschub. Fügen Sie nun am Anfang 
und am Ende der ersten Zeile jeweils ein Steuerzeichen 
CTRL-P T ein, so daß die erste Zeile hochgestellt wird. Auf 
dem Bildschirm erscheinen zwei vollständig getrennte Zei- 
len, während auf dem Drucker die Zeilen nur den halben Zei- 
lenabstand aufweisen. Statt am Ende der ersten Zeile darf 
das zweite CTRL-P T auch am Anfang der zweiten Zeile ste- 
hen. Dadurch kommen auf dem Bildschirm untereinanderste- 
hende Spalten auch auf dem Drucker untereinander zu ste- 
hen. Die Tastenfolge CTRL-P T, CTRL-PM, CTRL-P T, CTRL-M 
schafft so einen größeren »entzerrten« Bereich. Wenn Sie 
jetzt noch mit der TAB-Taste die Zeilen bis zum Rand mit Leer- 
zeichen füllen und den Einfügemodus abschalten, können 
Sie den Cursor innerhalb des entzerrten Bereiches beliebig 
bewegen und an beliebigen Stellen Formelzeichen einset- 
zen. Ohne weitere Unordnung stiftende Steuerzeichen ent- 
stehen auf diese Weise die kompliziertesten Formeln mit 
hoch- und tiefgestellten Indizes. Das Entscheidende ist 
dabei, daß dadurch die normale Zeilenzählung von Wordstar 
überhaupt nicht durcheinandergerät. Der Kopf einer Seite 
erscheint auch bei beliebig vielen entzerrten Bereichen 
immer ganz oben auf einer Seite. Wie das aussieht, sehen Sie 
auf Bild 1. Zum Vergleich sehen Sie den zum abgebildeten 
Text passenden Ausdruck in Bild 2. Sie sehen, ohne großen 
Aufwand entstehen so perfekte Formeln. 

(Helmut Tischer/hg) 
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J. Hückstädt 
CP/M 2.2 Anwenderhandbuch 


CPC 464/664/6128 
1985, 212 Seiten 


Wenn Sie glücklicher Besitzer eines Schneider- 
Computers sind und mehr wissen wollen über 
das leistungsstarke Betriebssystem CP/M 2.2, 
dann ist dieses Buch genau das richtige für Sie! 
Es behandelt CP/YM 2.2 nicht nur in seiner allge- 
meinen Form, wie sie für sämtliche CP/M- 
Computer gültig ist, sondern bezieht auch die 
Hardware der CPC-Computer mit ein. 

Best.-Nr. MT 859 

ISBN 3-89090-204-9 

DM 46,-/sFr. 42,30/65 358,80 





J. Hückstädt 
CP/M Plus Anwenderhandbuch 


CPC 6128 
1986, 256 Seiten 


Ein unentbehrliches Nachschlagewerk für die 
praktische Arbeit mit CP/M-Plus und seinen 
Hilfsprogrammen. Mit zahlreichen Beispielen. 
Best.-Nr. MT 90197 

ISBN 3-89090-197-2 

DM 46,-/sFr. 42,30/05 358,850 
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G. Straush 
Schneider CPC 


Grafik-Programmierung 
Januar 1986, 231 Seiten 


Dieses Buch wendet sich an 
die Schneider CPC-Besitzer, 
die alles über die Grafiklähig- 
keiten ihres Computers wis- 
sen wollen. Es bietet einen 
umfassenden Überblick über 
die verschiedenen Anwen- 
dungsbereiche der Grafikpro- 
grammierung: zwei- und drei- 
dimensionale Diagrammdar- 
stellungen, Definition und Be- 
wegung von Sprites, Entwurf 
von Titelgrafiken, Einsatz der 
Grafik bei der Unterstützung 
anderer Programme. Alle Bei- 
spiele auf Diskette. (Best.-Nr. 
MT 898, DM 34,90") und 
Kassette (Best.-Nr. MT 873, 
DM 29,90*). 
Best.-Nr. MT 90182 
ISBN 3-89090-182-4 
DOM 46,-/sFr. 42,30/65 358,80 
* inkl, MwSt 

Unwerbindiche Preisempfehlung 


J. Hückstädt 


Der Schneider CPC 6128 
1985, 273 Seiten 


Dieses Buch ist für jeden CPCG 
6128-Besitzer eine wertvolle 
Hilfe, die vielfachen Möglich- 
keiten dieses bisher einmali- 
gen Computers kennenzuler- 
nen und anzuwenden. Der 
Computerneuling wird Schritt 
für Schritt in den Umgang mit 
dem Computer und in die 
BASIC-Programmierung ein- 
geführt, bis er alle notwendi- 
gen Kenntnisse besitzt, die 
mancher Profi bereits mit- 
bringt. Aber an dieser Stelle 
wird das Programmieren mit 
dem GPC 6128 erst interes- 
säant, nämlich dann, wenn es 
darum geht, eine eigene 
Dateiverwaltung aufzubauen 
oder Grafik und Sound zu pro- 
grammieren. Weiterhin erfah- 
ren Sie alles über GP/M Plus 
auf dem CPC 6128, 

Best.-Nr. MT 90192 

ISBN 3-89090-192-1 

DM 46,-/sFr. 42,30/05 358,80 


Bestellungen im Ausland bitte an den 
Buchhandel oder an untenstehende Adressen. 
Schweiz: Markt& Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, & 042/41 5656 
Österreich: Ueberreuter Media Handels- und 
Verlagsges. mbH, Alser Straße 24, 1091 Wien, 
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G, Straush 
DR-LOGO auf dem 


Schneider CPC 
2. Quartal 1986, ca. 250 8. 


Speziell auf die Schneider 
Computer anwendbar finden 
Sie in diesem Buch eine struk- 
turierte Anleitung für die prak- 
tische Arbeit mit der Program- 
miersprache LOGO. Mit zahl- 
reichen Beispielen zur Grafik- 
und Soundprogrammierung. 
Das letzte Kapitel enthält 
nützliche Utilities (z.B. SORT- 
Routinen), vieleinformationen 
über die Aufteilung des Spei- 
chers (Speicheranalyse und 
Tastendefinition),  Erklärun- 
gen zu den Editorkommandos 
über die deutschen LÖGO- 
Befehle sowie Läsungsvor- 
schläge zu den Aufgaben. 
Best.-Nr. MT 90210 

ISBN 3-89090-210-3 

DM 46,-/sFr. 42,30/65 358,80 
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H. Tischer 
Programmentwicklung 
unter GP/M 2.2 auf dem 


CPC 464/664 
Februar 1986, 340 Seiten 


Dieses Buch wermittelt alle 
Informationen, die zum selb- 
ständigen Entwickeln won 
CP/M 2.2-Programmen nötig 
sind Besprochen wird 
sowohl die grundlegende 
Funktionsweise des CP!M 
Betriebssystems als auch alle 
dem Anwender schon zur Ver- 
fügung stehenden System- 
roulinen, die diesem wie 
Arbeit ersparen. Zwei Kapitel 
beschäftigen sich dabei aus- 
schließlich mit den zusätzli- 
chen Möglichkeiten, die nur 
die Computer CPC 464/664 
bieten. 

Kenntnisse der 8080- oder 
Z80-Assemblersprache sind 
erforderlich. 

Best.-Nr. MT 90209 

ISEN 3-89090-209-% 

DM 52,-/sFr. 47,80/65 405,60 
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Hans-Pinsel-Straße 2, 8013 Haar bei München 





T. Mossakowski/J. Janneck 


ROM-Listing CPC 464/664/6128 
Februar 1986, 676 Seiten 


Dieses Buch enthält in konzentrierter Form 
umfassende Informationen über den Aufbau 
Ihres Computers. Um es optimal nutzen zu kön- 
nen, söllte man mit dem Schneider-BASIG ver- 
traut sein und erste Erfahrungen in der Maschi- 
nensprache des Z80 besitzen. Zu jeder Rou- 
tine im Listing sind die Übergabe-Parameter 
aufgeführt. Verschiedene Tabellen erleichtern 
das Auffinden einer bestimmten Routine. 
Best.-Nr. MT 90134 

ISBN 3-89090-134-4 

DM 64,-/sFr. 58,90/0$ 499,20 


Th. Erpel 
CPC BASIG-Kurs 
1985, 376 Seiten 


Ein Buch für den Einstieg in die Bedienung 
und Programmierung der Schneider-Computer. 
Alle Beispiele auf Kassette erhältlich. (Best.-Nr. 
MT 846, DM 29,90*) 

Best.-Nr. MT 828 

ISBN 3-89090-167-0 

DM 46,-!sFr. 42,30/65 358,80 


"inkl MwSt. Unverbindliche Preisempfehlung 





GC. Straush 

CPC 464 - Programmieren 
in Maschinensprache 
1985, 276 Seiten 

Dieses Buch weiht in die 
Arbeitsweise des BASIC- 
Interpreters ein underklärt die 
Funktionsweise der Bautelle 
des Geräts und deren Zusam- 
menwirken 

Besi.-Hr. MT 879 

ISBN 3-89090-166-? 

DM 46,-/sFr. 42,30/05 358,80 


Dr, P. Albrechi 
MULTIPLAN für den 
Schneider CPC 

1985, 226 Seiten 

Best.-Nr. MT 835 

I3EN 3-39090-186-7 

DM 49,-/sFr. 45.10/55 382,20 








G. Jürgensmeier 

WordStar 3.0 mit 
MailMerge für den 
Schneider CPC 

1985, 435 Seiten 

Das unentbehrliche Zusatz- 
Handbuch für die Arbeit mit 
dem Schneider GPC 

Best.-Nr. MT 779 

ISBN 3-839090-180-8 

DM 49,-/sFr. 45,10/6$ 382,20 


Cr. P, Albrecht 
dBASE II für den 


Schneider CPC 

1985, 280 Seiten 

Best.-Nr. MT 90188 

ISBN 3-89090-188-3 

DM 49,-/sFr. 45.10/6$ 382,20 
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3 ”-Disk für 
Schneider 
exclusiv bei 


ED LONPUTER DISCO" 


erhältlich 







Vier Spiele-Hits 
zum Preis 
von EINEM! 


Auf Kassette und Diskette 
für Commodore 64/128 
Schneider CPC (RAD | n/a —w 
Spectrum 48 K Kt 7: 2 Kell ayal ı V\aYz 
U.S. Gold u GmbH | 2 u 


u,5. Gold Computerspiele erhalten Sie in den Fachabteilungen von wa = und sowie in gutsortierten Computershogs 


